Wenn Zeichenfolge Teil der Zelle, ganze Zeile kopieren
16.01.2020 16:58:59
moonrunner
ich möchte aus einer großen Tabelle die ganze Zeile kopieren, wenn in der Spalte E die Zeichen mit "2019" beginnen, Die Zeichenkette in Spalte ist 8 Zeichen lang.
Meine Ansätze sind:
Dim A As String
A = Left(2019, 8)
ThisWorkbook.Worksheets(1).Activate
ActiveSheet.Range("A1:Z9999").AutoFilter
ActiveSheet.Range("A1:Z9999").AutoFilter 5, A
ThisWorkbook.Worksheets("2019 gesamt").Cells.Clear
ActiveSheet.Range("A1:Z9999").Copy Destination:=ThisWorkbook.Worksheets("Ziel").Range("A1:Z9999")
Anschließend möchte ich diese Werte in einem neuen Blatt ablegen.
Könnt ihr mir vielleicht weiterhelfen ?
MfG
Nico