ihr könnt mir doch sicher wieder helfen.
Ich habe ein bestimmtes Datum welches in Spalte A steht und die Zeile als Varaible erhalten. Nun möchte ich diese Zeile und die 11 Zeilen davor kopieren.
Vielen Dank schonmal in Voraus
Grüße
Set c = Sheets("Historie Auswertung").Range("A:A").Find(Auswertdatum)
If Not c Is Nothing Then
c1 = c.Row
If c1 > 13 Then
Sheets("Historie Auswertung").Range(Rows(c1), Rows(c1).Offset(-11)).Copy _
Sheets("Schreiben").Cells(52, 1)
Else
Sheets("Historie Auswertung").Range(Rows(13), Rows(13).Offset(-11)).Copy _
Sheets("Schreiben").Cells(52, 1)
End If
End If