Suche per Makro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suche per Makro

18.07.2006 16:35:23

IngGi

AW: Suche per Makro

18.07.2006 16:44:26

Thorsten

AW: Suche per Makro

18.07.2006 17:04:46

IngGi

AW: Suche per Makro

18.07.2006 16:50:26

fcs

AW: Suche per Makro

18.07.2006 17:08:42

Thorsten

Suche Text und Zahl

18.07.2006 18:08:26

Thorsten

AW: Suche Text und Zahl

18.07.2006 20:44:58

fcs

Hallo Thorsten,
beim Suchen/Vergleichen von Werten aus Rechenergebnissen auf "=" kann es Probleme mit der Rechengenauigkeit von EXCEL geben, die irgendwo bei 13 oder 15 signifikannten Stellen liegt. Es bleiben dann minimale Reste über, die einen "="-Vergleich ins leere Laufen lassen. Falls der Vergleich kritisch ist, dann sollte man in der Formel das Ergebnis Runden und diese "kleinen" Reste so abschneiden.
z.B. =Runden(A1+A2+A3;5)
Anderes Problem: nach der Übernahme aus Datenbanken können Zahlen als Text in den Tabellen eingetragen sein. Dann können bestimmte Suchoperationen ins Leere Laufen, auch wenn sich Excel "(leider?!) bemüht" alles was irgendwie nach Zahl riecht auch als Zahl zu behandeln.
In deiner Code-Zeile muss du für "What" eine Variant-Variable statt einer String-Variablen verwenden , dann sollte auch das Finden von Zahlenwerten funktionieren
Set rng = objSh.Range("A1:B65536").Find(What:=VariantFind, _
lookat:=xlPart, LookIn:=xlValues)
mfg
Franz

Hallo
Du muß natütlich die Variable ggf. entsprechend deklarieren. Bei Suche nach Zahlen macht lookat=xlpart keinen Sinn - hatte ich leider übersehen.
Für Zahlen muss das Makro etwa so aussehen. Es sucht im Bereich alle Zellen mit Wert 100 und zeigt die Zelladresse an.


Sub Test()
Dim varFind As Variant, rng As Range, objsh As Worksheet, ErsteAdresse As String
Set objsh = ActiveSheet
varFind = "100"
If IsNumeric(varFind) Then
'Zahlen-Suche, Findet Zellen mit Zahlen und Zellen die nur Zahlen als Text enthalten
Set rng = objsh.Range("A1:B65536").Find(What:=varFind, lookat:=xlWhole, LookIn:=xlValues)
ErsteAdresse = rng.Address
Do
MsgBox VaraintFind & "gefunden in Zelle: " & rng.Address
Set rng = objsh.Range("A1:B65536").FindNext(rng)
Loop Until rng Is Nothing Or rng.Address = ErsteAdresse
Else
'Text Teil-String-Suche, Findet Zellen, die den gesuchten String enthalten
Set rng = objsh.Range("A1:B65536").Find(What:=varFind, lookat:=xlPart, LookIn:=xlValues)
ErsteAdresse = rng.Address
Do
MsgBox VaraintFind & "gefunden in Zelle: " & rng.Address
Set rng = objsh.Range("A1:B65536").FindNext(rng)
Loop Until rng Is Nothing Or rng.Address = ErsteAdresse
End If
End Sub

gruss Franz

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread