VBA kopieren eine Zeile nach unten verschieben

Bild

Betrifft: VBA kopieren eine Zeile nach unten verschieben
von: Cindy
Geschrieben am: 10.11.2015 15:55:56

Hallo,
ich habe ein an sich funktionierendes Makro... Mein Problem, er soll das Kopierte auf Blatt 2 nicht in die erste Zeile sondern erst ab Zeile 2 schreiben... Wie mache ich das?
Sub neu()
Dim i As Integer
Dim e As Integer
Dim Sht1 As Worksheet
Dim Sht2 As Worksheet
Dim Finde As String
Set Sht1 = Sheets("Tabelle1")
Set Sht2 = Sheets("Tabelle 2")
Finde = Sht2.Range("A2")
e = 1
'Filterergebnisse vorher löschen
'Spalte Z ist mal von mir angenommen als letzte zu kopierende Spalte
Sht2.Range("B2:Z" & Sht2.UsedRange.Rows.Count).Clear
For i = 2 To Sht1.UsedRange.Rows.Count
If CStr(Sht1.Range("A" & i)) = Finde Then
Sht1.Range("B" & i & ":Z" & i).Copy Destination:=Sht2.Range("B" & e)
e = e + 1

End If
Next
Vielen Dank für eure Hilfe

Bild

Betrifft: e=2 owT
von: Rudi Maintaire
Geschrieben am: 10.11.2015 17:06:12


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA kopieren eine Zeile nach unten verschieben"