Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen.
Der bei jeder Zelle auszuführende „If, Then, End If“-Teil funtioniert, ich muß bisher nur den Makro bei jeder Zelle einzeln ausführen.
Das könnt ihr doch nicht wollen…
Also falls jemand den Code für mich hat, schon mal vielen Dank.
regs.
Christian
Hallo Kollege,
Deine Frage ist sehr ungenau, deshalb kann ich auch nur kurz darauf antworten. Ich habe einmal 1 Suchstring in der 1.Spalte einer EXCEL-Tabelle mit folgendem kurzen Makro gefunden:
Sub Suchen()
izl = 1
Do Until inh = „ABC“
inh = Cells(izl,1).Value
izl = izl + 1
Loop
MsgBox "ABC gefunden in Zeile " & izl - 1
End Sub
Anschließend kann man mit dem gefundenen Wert machen, was man will - ich weiß nicht, was Du machen willst. Man kann das Makro auch beliebig verlängern und andere Begriffe in anderen Zellbereichen suchen, Änderungen machen usw.
Gruß
F.N.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Christian,
dafür gibt’s jede Menge Möglichkeiten - eine davon wurde ja schon beschrieben.
Eine andere Möglichkeit ist es, Kollektionen zu durchlaufen (z.B. die Auflistung aller Zellen eines Arbeitsblattes oder genau eine Zeile oder den Bereich von…bis oder den markierten Bereich oder…) nach dem Grundkonstrukt
Dim myCell As Cell
For Each MyCell In
'Jetzt hat man über myCell Zugriff auf eine
'der Zellen in der Auflistung
Next MyCell
In der Online-Hilfe gibt’s dazu jede Menge Beispiele und Tips!
Kurt
http://www.fortwaengler.de
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]