Hallo,

ich bin VBA Neuling und habe mit Mühe und Not einen für mich passenden Code aus verschiedenen Forum im Inet zusammen suchen können.

Jetzt stoße ich an meine Grenzen.

Ich möchte das bestimmte Suchergebnisse Ignoriert werden und zwar welche die nur aus Zahlen bestehen.

Zahlen Buchstabenkombinationen hingegen sind ok.

Alternativ sollen Suchergebnisse welche in definierten Spalten gefunden werden ignoriert werden.

Hier mein Code welchen ich bisher zusammengestellt habe.

Danke für eure Hilfe

Sub suchen()
Dim strSuch As String, ws As Integer, rng As Range, strNeu As String
Start:


Do
ActiveSheet.Protect Password:="Test" 'Passwort anpassen

strSuch = InputBox("Bitte scannen oder Seriennummer eingeben")
If strSuch = "" Or Len(strSuch) = 0 Then Exit Sub
Loop While Len(strSuch) < 3
ws = 1
Do While ws <= Worksheets.Count
Sheets(ws).Select
Set rng = Cells.Find(What:=strSuch, after:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)


ActiveSheet.Unprotect Password:="Test" 'Passwort anpassen



If rng Is Nothing And ws = Worksheets.Count Then
strNeu = MsgBox("Keine Übereinstimmung gefunden!" & Chr(13) & "Möchten sie erneut suchen?", vbYesNo)
If strNeu = vbNo Then
Sheets("Digitalfunk Fahrzeuge").Select 'Tabellenblatt anpassen

ActiveSheet.Protect Password:="Test" 'passwort anpassen

Exit Sub
Else
GoTo Start
End If
ElseIf rng Is Nothing And ws < Worksheets.Count Then
ws = ws + 1
Else
rng.Select

rng.Offset(0, 2) = Clear & Date


ActiveSheet.Protect Password:="Test" 'passwort anpassen



Exit Sub
End If
Loop
End Sub