suchen in nSpalten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: suchen in nSpalten
von: smart8900
Geschrieben am: 19.04.2005 13:20:09
Hallo Spezies !
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 !
Bild

Betrifft: AW: suchen in nSpalten
von: Dr.
Geschrieben am: 19.04.2005 14:15:10
Das sollte es tun:
For Each Feld In ActiveSheet.Range("A:A")
Bild

Betrifft: AW: suchen in nSpalten
von: Holger
Geschrieben am: 19.04.2005 14:30:12
For Each Feld In ActiveSheet.UsedRange.Columns(1)
mfg Holger
Bild

Betrifft: AW: suchen in nSpalten
von: smart8900
Geschrieben am: 19.04.2005 20:01:42
Hallo Ihr zwei ...
Danke für die schnelle Hilfe ... funktioniert natürlich einwandfrei :)
An ("A:A") hatte ich auch gedacht, aber die "Rechtschreibung" vernachlässigt ...
Tausend Danke ...
 Bild

Beiträge aus den Excel-Beispielen zum Thema "suchen in nSpalten"