suchbegriff_spaltenmarkierung

Forumthread: suchbegriff_spaltenmarkierung

02.11.2004 11:31:30

redneck

Hallo benutze folgenden Code


Sub suchbegriff_spaltenmarkierung()
Dim such As Range
Set such = Cells.Find(InputBox("Bitte den Suchbegriff eingeben"))
such.EntireColumn.Select
End Sub

bei dem Wert Müller bekomme ich immer den Wert Steinmüller, was mache ich falsch?
mfg Redneck

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: suchbegriff_spaltenmarkierung

WernerB.
AW: suchbegriff_spaltenmarkierung

redneck

AW: suchbegriff_spaltenmarkierung

WernerB.

Hallo Redneck,
wie gefällt Dir das?


Sub suchbegriff_spaltenmarkierung()
Dim such As Range
Set such = Cells.Find(InputBox("Bitte den Suchbegriff eingeben"), lookat:=xlWhole)
If Not such Is Nothing Then
such.EntireColumn.Select
Set such = Nothing
Else
MsgBox "Suchbegriff nicht gefunden !"
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

AW: suchbegriff_spaltenmarkierung

redneck

Vielen Dank, funktioniert!
mfg Redneck

Forumthread: suchbegriff_spaltenmarkierung

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread