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