Thema Datum  Von Nutzer Rating
Antwort
21.06.2019 07:07:59 Matthias
NotSolved
21.06.2019 09:12:46 Werner
NotSolved
21.06.2019 10:05:50 Matthias
NotSolved
Blau Nur Sichtbare Zellen kopieren und übertragen
 21.06.2019 10:28:24 Werner
NotSolved
21.06.2019 10:42:24 Gast25167
NotSolved
21.06.2019 11:33:16 Werner
NotSolved
21.06.2019 16:27:20 Matthias
NotSolved
25.06.2019 15:21:04 Gast72110
NotSolved
26.06.2019 08:00:23 Matthias
NotSolved
26.06.2019 09:11:32 Werner
NotSolved
26.06.2019 12:33:35 Matthias
NotSolved
26.06.2019 12:51:15 Werner
*****
Solved
27.06.2019 10:58:42 Gast3324
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
21.06.2019 10:28:24		 Views:
495		 Rating:
     
Antwort:
  Ja
Thema:
Nur Sichtbare Zellen kopieren und übertragen

Hallo,

hast du Spalten ausgeblendet?

Option Explicit
 
Sub Übertrag_Montagefirma()
Dim loAnz As Long, loLetzte As Long
Dim raBereich As Range, raZelle As Range
 
Application.ScreenUpdating = False
 
With Worksheets("Montagefirma")
    .Range("A1:AA" & .Cells(.Rows.Count, "A").End(xlUp).Row).ClearContents
End With
With Worksheets("Terminplan")
    Set raBereich = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
    For Each raZelle In raBereich.SpecialCells(xlCellTypeVisible)
        If raZelle.Text = .Range("B7").Text Then
            raZelle.EntireRow.SpecialCells(xlCellTypeVisible).Copy
            loAnz = loAnz + 1
            With Worksheets("Montagefirma")
                loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
                If .Cells(1, "A") = "" Then loLetzte = 1
                .Cells(loLetzte, "A").PasteSpecial Paste:=xlPasteValues
            End With
        End If
    Next raZelle
End With
Application.CutCopyMode = False
MsgBox "Es wurden " & loAnz & " Sätze übertragen."
           
Set raBereich = Nothing
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.06.2019 07:07:59 Matthias
NotSolved
21.06.2019 09:12:46 Werner
NotSolved
21.06.2019 10:05:50 Matthias
NotSolved
Blau Nur Sichtbare Zellen kopieren und übertragen
 21.06.2019 10:28:24 Werner
NotSolved
21.06.2019 10:42:24 Gast25167
NotSolved
21.06.2019 11:33:16 Werner
NotSolved
21.06.2019 16:27:20 Matthias
NotSolved
25.06.2019 15:21:04 Gast72110
NotSolved
26.06.2019 08:00:23 Matthias
NotSolved
26.06.2019 09:11:32 Werner
NotSolved
26.06.2019 12:33:35 Matthias
NotSolved
26.06.2019 12:51:15 Werner
*****
Solved
27.06.2019 10:58:42 Gast3324
NotSolved