Suchen und Kopieren
16.07.2020 13:12:22
Michi84
komme bei meinem Excel Projekt derzeit leider nicht weiter und hoffe auf eure Mithilfe.
Zum Projekt:
Tabelle 1 enthält Daten im Zellenbereich bspw. A1-bis D20
Nunmehr soll das Makro nach einem Wort in Column A suchen und dieses (sowie den Zellenbereich A-D) in die Tabelle 2 in die Zelle A10 ff. kopiert werden.
Parallel hierzu nach dem gleichen Wort in Column B gesucht werden, und der betreffende Zeilenbereich (A-D) in die Tabelle 2 in Zelle bspw. E5 gesetzt werden.
(Hoffe es ist verständlich genug)
Leider bekomme ich es derzeit nur hin, dass die Ergebnisse immer nur in die Zelle A1 statt bspw. _ ab A10 wie gewünscht angezeigt werden.
Sub Lauf2()
Dim RngZ As Range, x As Long
x = 0
Worksheets("Tabelle2").Columns(1).ClearContents 'hier wird Ziel erst geleert
For Each RngZ In Worksheets("Tabelle1").Range("A1:A11")
If RngZ Like "*Hallo*" Then x = x + 1: Worksheets("Tabelle2").Cells(x, 1) = RngZ
Next
End Sub
Viel Dank im Voraus
Anzeige