Ich möchte Spalte A und B von oben nach unten nach einem bestimmten Inhalt durchsuchen.
Weiter bin ich bei meiner Recherche nicht gekommen:
sFind = InputBox("Bitte Suchbegriff eingeben:")
Wenn mir jemand beim Rest helfen könnte...
Danke
Gruß
Marcus
Option Explicit
Sub SuchenMitVBA()
Dim StrFind As String
Dim IntAnfangsZeile As Integer, IntEndZeile As Integer
Dim IntAnfangsSpalte As Integer, IntEndSpalte As Integer
Dim IntZeilenZähler As Integer, IntSpaltenZähler As Integer
Dim BlnGefunden As Boolean
StrFind = InputBox("Suchbegriff Eingeben", "Eingabe Suchbegriff")
IntAnfangsZeile = InputBox("Ab welcher Zeile soll gesucht werden?", "Startzeile")
IntEndZeile = InputBox("Bis zu welcher Zeile soll gesucht werden?", "Endzeile")
IntAnfangsSpalte = InputBox("Ab welcher Spalte soll gesucht werden?", "Startspalte als Zahl")
IntEndSpalte = InputBox("Bis zu welcher Spalte soll gesucht werden?", "Endspalte als Zahl")
For IntSpaltenZähler = IntAnfangsSpalte To IntEndSpalte
For IntZeilenZähler = IntAnfangsZeile To IntEndZeile
If Cells(IntZeilenZähler, IntSpaltenZähler) = StrFind Then BlnGefunden = True
If BlnGefunden Then GoTo Gefunden
Next
Next
Gefunden:
If Not BlnGefunden Then Exit Sub
MsgBox ("Suchbegriff gefunden in" & Chr(13) & "Zeile " & IntZeilenZähler & " Spalte " & _
IntSpaltenZähler)
End Sub
Dim Suchbegriff$
Suchbegriff = InputBox("bitte Suchbegriff eingeben", , "Test")
If StrPtr(Suchbegriff) = 0 Then Exit Sub
Cells.Find(What:=Suchbegriff, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole).Activate
weiter:
Cells.FindNext(After:=ActiveCell).Activate
If MsgBox("Fund in " & ActiveCell.Address & vbLf & "weiter suchen?", vbYesNo, "Suche in allen Zellen") = vbYes Then GoTo weiter
Dim Suchbegriff$
On Error GoTo Fehler
Suchbegriff = InputBox("bitte Suchbegriff eingeben", , "Test")
If StrPtr(Suchbegriff) = 0 Then Exit Sub
Cells.Find(What:=Suchbegriff, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole).Activate
weiter:
Cells.FindNext(After:=ActiveCell).Activate
If MsgBox("Fund in " & ActiveCell.Address & vbLf & "weiter suchen?", vbYesNo, " Suche -> " & _
Suchbegriff) = vbYes Then GoTo weiter
Exit Sub
Fehler:
MsgBox "Suchbegriff wurde nicht gefunden"
Guß Matthias