Ich möchte gerne in einer Spalte suchen - in diesem Falle die Spalte A -
nach einer Variable suchen (String) und zwar nur von der Zeile so und so
bis Zeile so und so.
Wäre euch echt dankbar für Rat
AS
Sub Suchen()
a = InputBox("Suchwert genau eingeben" & Chr$(13) & Chr$(10) & Chr$(10) & _
"Gross- Kleinschreibung beachten" & Chr$(13) & Chr$(10) & Chr$(10) & _
"Nach was suchen Sie ?", "")
With Worksheets("Tabelle1").Range("a5:c70")
Set Zelle = .Find(a, LookIn:=xlValues)
If Not Zelle Is Nothing Then
ersteAdresse = Zelle.Address
Do
Zelle.Interior.ColorIndex = 4
'Pattern ".Pattern"wird grau markiert keine Markierung =Interior.ColorIndex = xlNone
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> ersteAdresse
Else: MsgBox "Nix solches da", , "Nichts gefunden"
End If
End With
End Sub
Sub Suchen()
Dim a As String, Zelle As Range
a = InputBox("Suchwert genau eingeben" & Chr$(13) & Chr$(10) & Chr$(10) & _
"Gross- Kleinschreibung beachten" & Chr$(13) & Chr$(10) & Chr$(10) & _
"Nach was suchen Sie ?", "")
With Worksheets("Tabelle1").Range("A3:A100")
Set Zelle = .Find(a, LookIn:=xlValues)
If Not Zelle Is Nothing Then
Application.Goto Zelle, True
Else: MsgBox "Nix solches da", , "Nichts gefunden"
End If
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen