Liebe VBA-Profis,
ich brauche dringend Eure Hilfe:
Aus einer Tabelle muss ich 3 Bereiche kopieren und einfügen.
Der erste Bereich wird gefunden, indem die Spalte B nach dem Wort "Markierung:" abgesucht wird. Dann wird Spalte B und C bis zu der gefundenen Zelle markiert und kopiert.
Das Makro sieht so aus und funzt gut:
For i = 2 To 20
If ActiveSheet.Cells(i, 2) Like "Markierung:" = True Then
ActiveSheet.Cells(i, 2).Activate
End If
Next i
Range("B1", ActiveCell.Offset(-2, 1)).Select
Selection.Copy
Mein Problem liegt in dem 2. Bereich. Hier soll ebenfalls Spalte B nach dem Wort "Markierung:" abgesucht werden. Wenn es 2 mal vorkommt (öfter wird es nicht vorkommen), dann soll der Bereich dazwischen kopiert werden.
Für den 3. Bereich soll von unten die Spalte B nach dem Wort "Markierung:" abgesucht werden. Wenn gefunden, soll ab dort bis zur letzten gefülltnen Zelle in C markiert und kopiert werden.
Das funzt leider auch nicht so richtig mit dem folgenden Makro, denn, wenn das Wort "Markierung:" 2 mal vorkommt wird nur die 1. Markierung von oben gefunden.
For i = 2 To 50
If ActiveSheet.Cells(i, 2) Like "Markierung:" = True Then
ActiveSheet.Cells(i, 2).Activate
End If
Next i
Range(ActiveCell.Offset(2, 0), Cells(Rows.Count, 3).End(xlUp).Offset(0, 0)).Select
Selection.Copy
Ich hoffe, ich habe mich einigermaßen verständlich ausgedrückt und freue mich schon riesig auf Lösungsvorschläge.
Vielen Dank schonmal an jeden, der sich Gedanken hierüber macht.
Viele liebe Grüße,
Scheinchen