Einfacher Finden-Befehl fehlt mir ...

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

Betrifft: Einfacher Finden-Befehl fehlt mir ...
von: tom-tom
Geschrieben am: 22.03.2005 18:42:38
... und zwar weil ich den VBA-Assistenten nicht installiert habe und
auch nicht mehr kann, weil mein Sohnemann die Excel-CD zerkratzt hat.
Also bitte ich einen barmherzigen Samariter mir hier die Anweisung zu posten.
Die Anweisung soll in der Spalte A den Begriff "Name" finden.
Wenn in der Zelle nur "Name" drinvorkommt z.B. weil in der Zelle
"Vorname" steht, soll das keinen Treffer geben.
Nach weiteren Begriffen wird übrigens nicht gesucht, also fände
ich eine Lösung ohne Eingabe-Fenster toll.
Lieben Dank für Eure Zeit, tom-tom

Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: ransi
Geschrieben am: 22.03.2005 18:52:27
hallo tom
der syntax ist so:
Ausdruck.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
für dich hieße das so:
dim gefunden as range
gefunden=range("A:A").find what:="Name",lookat:=Xlwhole
ransi
Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: tom-tom
Geschrieben am: 22.03.2005 19:50:56
Hallo ransi,
schon mal vielen Dank für Deine Hilfe, doch ich bekomme die Meldung "Syntaxfehler":
Hier das Makro:

Sub Datensort()
Dim gefunden As Range
gefunden = range("A:A").find what:="Name",lookat:=Xlwhole
End Sub

Liebe Grüße, tom-tom
Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: Josef Ehrensberger
Geschrieben am: 22.03.2005 19:54:11
Hallo tom-tom!
Ransi hat das "Set" vergessen!

Set gefunden = range("A:A").find what:="Name",lookat:=Xlwhole


Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: tom-tom
Geschrieben am: 22.03.2005 21:19:46
Hallo Sepp,
vielen Dank für Dein Posting. Leider bekomme ich immer noch eine Fehlermeldung:
"Fehler beim Kompilieren: Erwartet: Anweisungsende"
Dabei ist "what" gehighlightet.

Das Makro sieht also jetzt so aus:

Sub Datensort()
Dim gefunden As Range
Set gefunden=range("A:A").find what:="Name",lookat:=Xlwhole
End Sub

Vielen Dank für Deine Zeit, Sepp!
Grüße, tom-tom
Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: tom-tom
Geschrieben am: 22.03.2005 21:26:35
habe ein bischen rumprobiert. Wenn ich folgende Syntax habe:
Set gefunden = Range("A:A").Find(what:="Name", lookat:=xlWhole)
... dann gibt es keine Fehlermeldung mehr. Allerdings findet die Routine
"Name" nicht, die Zelle wird nicht angewählt und auch sonst tut sich nichts
sichtbares ...
Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: Bert
Geschrieben am: 22.03.2005 21:37:56
Set gefunden = Range("A:A").Find(what:="Name", lookat:=xlWhole)
If Not gefunden Is Nothing Then
Msgbox "Gefunden: " & gefunden.Address(0,0)
end if
Bert
Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: tom-tom
Geschrieben am: 22.03.2005 21:49:49
Genau Bert !!!!
Jetzt funzt´s!
Ist es möglich, daß die Routine in die entsprechende Zelle springt, anstatt der Message-Box??
Danke!!!!!!!!!!!!!!!! ... und viele Grüße, tom-tom
Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: Bert
Geschrieben am: 22.03.2005 21:53:01
Set gefunden = Range("A:A").Find(what:="Name", lookat:=xlWhole)
If Not gefunden Is Nothing Then gefunden.select
Bert
Bild

Betrifft: AW: Einfacher Finden-Befehl fehlt mir ...
von: tom-tom
Geschrieben am: 22.03.2005 22:01:07
Jaaaaaaaaaaaa! Es funzt!!!!!!
Dank für die Hilfe in Anbetracht der fortgerückten Stunde.
Gute Nacht! Liebe Grüße, tom-tom
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Einfacher Finden-Befehl fehlt mir ... "