suchen in nSpalten
19.04.2005 13:20:09
smart8900
Habe hier eine Suche Option ... wie kann ich die ändern, damit nur in Spalte A gesucht wird ? Spalte A wichtig, da gleiche Zahlen auch in anderen Spalten vorkommen.
Habe selber ein wenig experimentiert, aber meine Kenntnisse reichen nicht aus ... bekomme nur Fehlermeldungen !
Sub Suchen()
Dim Eingabe As String
Dim Feld As Range
Dim Gefunden As Boolean
Dim Antwort As Long
[A1].Select
Eingabe = Application.InputBox("Paketnummer in Tabelle?", "Suche", "7551")
If Eingabe <> "" Then
For Each Feld In ActiveSheet.UsedRange
If InStr(UCase(CStr(Feld.Value)), UCase(Eingabe)) > 0 Then
Gefunden = True
Feld.Select
Antwort = MsgBox("Weitersuchen?", vbQuestion + vbYesNo)
If Antwort = vbNo Then
Exit For
End If
End If
Next Feld
If Gefunden = False Then
MsgBox "'" & Eingabe & "' nicht gefunden!", vbInformation
End If
End If
End Sub
Für Hilfe danke ich schon jetzt !
Anzeige