Durchsuchen mit Variablem Suchindex
09.10.2015 10:57:19
Martin
ich habe ein Makro, welches mir aus einem Register die Kommentare in ein neues Register in eine Tabelle schreibt. Das Funktioniert soweit und er gibt mit auf die Zelle, aus der er den Kommentar geholt hat mit aus.
Jetzt möchte ich in einem Neuen Makro nach diesen Zellen Filtern. bzw. genauer gesagt nur nach der Zeile. Wenn er eine Zeile gefunden hat soll er wieder in das Register springen aus dem er die Kommentare hat und soll noch eine andere Zelle koppieren.
Meine Frage ist jetzt, kann ich die Zeilen 10-250 über eine Variable suchen lassen oder muss ich 240 If Anweisungen schreiben? Hier schonmal mein Code, der für je eine Abfrage funktioniert:
active = 1
anZahl = active
Do While Cells(anZahl, 3) ""
If Cells(anZahl, 3) Like ("*10") Then
Cells(anZahl, 1) = Worksheets("Oktober").Range("A10")
End If
anZahl = anZahl + 1
Loop
anZahl = active
Do While Cells(anZahl, 3) ""
If Cells(anZahl, 3) Like ("11*") Then
Cells(anZahl, 1) = Worksheets("Oktober").Range("A11")
End If
anZahl = anZahl + 1
Loop
Ich hoffe, dass mir da jemand weiter helfen kann, damit ich diesen Code nicht 240 mal einfügen und ändern muss ;-)