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