Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

FindMethode Spuckt ;-)

FindMethode Spuckt ;-)
02.08.2006 15:24:55
alex
Dieses mal hab ich einen wirklich merkwürdigen Fehler in meinem Makro entdeckt. Ich hoffe, dass mir nicht in letzter Minute doch nur ein "rechtschreibfehler" oder sonst ein kleiner (dummer) Fehler einfällt, der diesem Forum nicht würdig ist, nun:
ich suche mit einer "genauen" FindMethode nach einem Wort, es heisst "DK". Der Wert "DK" wird in die String-Variable produktName geschrieben.
Selection.Find(What:=produktName, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
Zeile = ActiveCell.row 'weil ich eigentlich nur wissen will, in welcher Zeile dieser Wert vorkommt
In meiner ganzen Spalte gibt es jedoch kein "DK" (!!) - zum debuggen, habe ich mir die Zelle ausgeben lassen, die er gefunden hat. Diese Zelle hat folgenden "Formel"Inhalt: 10.11.2013 16:37:44 in der Zelle wird aber nur "10.11.13" angezeigt.
seltsam, seltsam.. Meine Funktion funktioniert sonst tadellos. Ändere ich "DK" in "123DK" erhalte ich meine Fehlermeldung..
"

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

Betreff
Datum
Anwender
Anzeige
AW: FindMethode Spuckt ;-)
02.08.2006 15:43:50
Andi
Hi,
Deinen Fehler habe ich leider nicht reproduzieren können; aber mal was anderes: Dein Code sieht irgendwie ziemlich nach Makro.Rekorder aus mit dem ganzen Rattenschwanz in der Find-Methode und der Selektiererei. Probier mal folgendes, das is übersichtlicher und sollte eigentlich das gleiche machen:

Sub tt()
Dim produktName As String
Dim zelle As Range
Dim zeile As Long
produktName = "DK"
Set zelle = Selection.Find(produktName)
zeile = zelle.Row
MsgBox zeile
End Sub

Schönen Gruß,
Andi
AW: FindMethode Spuckt ;-)
02.08.2006 16:07:37
alex
ich muss mich zurückziehen, dass ist ein bombenfehler ;-)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige