Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range.Find findet keine formatierten Zahlen

Range.Find findet keine formatierten Zahlen
16.11.2019 10:36:54
Stefan
Hallo,
die Range.Find - Methode findet einen aus einer Zelle (Value) ausgelesenen Wert in einem Zellbereich nur,
wenn dieser Zellbereich die Standard-Formatierung hat. Die Find-Methode wird mit SearchFormat:=false aufgerufen. Ich suche nach einer Möglichkeit eine Zahl unabhängig vom Ausgabeformat ohne eine zellenweise Loop-Schleife zu finden.
Kann da jemand einen Tip geben ? Bei Suche Datumsformat mit Find hab ich gelesen, dass das nur über LookAt:=xlFormulas funzt. Die Möglichkeit habe ich nicht, da die Zahlen teils mittels Formel errechnet werden.
Grüße

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 10:47:25
Hajo_Zi
frage jemand der neben Dir sitzt der sieht die Datei.
Die meisten hier sehen Sie nicht.
Da Sie nicht auf Deinen Rechner schauen.
Vielleicht sollte die Datei verlinkt werden?
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Das ist nur meine Meinung zu dem Thema.
Ich vermute Value ist Text.

AW: Range.Find findet keine formatierten Zahlen
16.11.2019 10:56:38
Stefan
Hallo,
Upload nicht möglich, da riesiges VBA-Projekt.
Ich hoffte, die Frage recht eindeutig gestellt zu haben, ohne dass man sich durch Code wurschteln muss.
Anbei die aufgerufene Funktion:
Private Function FindContent(r As Range, v) As Range
Dim p As Range, k As Range, f As Range
Set f = Nothing
Set p = r.Find(What:=v, LookIn:=xlValues, LookAt:=xlWhole, SearchFormat:=False)
If Not p Is Nothing Then
Set f = p
Set k = p
Do
Set k = r.FindNext(After:=k)
Set f = Union(f, k)
Loop Until k.Address = p.Address
End If
Set findcontet = f
End Function
aufgerufen wird die Funktion mit:
...
LookFor = Selection.Cells(1, 1) ' LookFor ist Variant
...
Set r = FindContent(Intersect(List.DataBodyRange, r.EntireColumn), LookFor)
' Suchbereich ist anwendungsspezifisch
Grüße
Anzeige
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 10:58:44
Hajo_Zi
gut ich schaue nicht auf fremde Rechner um meine Vermutung zu bestätigen. Ich bin dann raus.
Gruß Hajo
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 11:15:57
Stefan
ähm ?
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 11:22:20
Nepumuk
Hallo Stefan,
kannst du nur die Tabelle in der du suchst hochlanden? Zudem brauche ich den genauen Suchbegriff.
Gruß
Nepumuk
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 17:43:39
Stefan
Hallo Nepumuk,
habe das mal als Beispiel in eine kleine Mappe gepackt.
Es wird die gleiche Suchfunktion für einen Bereich mit formatierten Zahlen und Standard (General) benutzt mit unterschiedlichen Ergebnissen. Ich kann auch nicht über eine Textsuche gehen, da Zahlen verschieden formatiert sein könnten.
https://www.herber.de/bbs/user/133256.xlsm
Gruß
Anzeige
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 18:32:20
Nepumuk
Hallo Stefan,
teste mal so:
G
4$B$4

ZelleFormel
G4=suche(B3:B26;F3)

Und dieser Funktion:
Public Function Suche(ByRef probjRange As Range, ByVal pvvntSearchTerm As Variant) As String
    Dim avntValues As Variant
    Dim ialngIndex As Long
    avntValues = probjRange.Value2
    For ialngIndex = LBound(avntValues, 1) To UBound(avntValues, 1)
        If avntValues(ialngIndex, 1) = pvvntSearchTerm Then
            Suche = probjRange.Cells(ialngIndex, 1).Address
            Exit For
        End If
    Next
End Function

das dürfte sogar etwas schneller sein als die Find-Methode da diese nicht zu den schnellsten zählt.
Gruß
Nepumuk
Anzeige
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 19:23:02
Stefan
Danke Nepumuk,
das klappt.
Hätte mir nicht vorstellen können, dass eine VBA-Schleife schneller sein soll als eine Standardroutine.
Abschließende Frage zu deinem Vorschlag:
Der "Umweg" über ein Array ist aus Geschwindigkeitsgründen gewählt ?
Sonst wäre ja auch ein
For Each r in probjRange.Cells
... und Vergleich r.Value mit dem zu suchenden Inhalt denkbar.
LG Stefan
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 19:42:20
Nepumuk
Hallo Stefan,
die Zellen einzeln abzuklappern ist die langsamste Methode. Du musst dir nur im Objektkatalog die Range-Klassen ansehen. Die hat jede Menge Eigenschaften und die müssen ja alle in den Arbeitsspeicher geladen werden auch wenn du nur eine einzige benötigst. In meinem Code wird nur zweimal aus das Range-Objekt zugegriffen. Einmal um die Value2-Eigenschaft zu lesen (das sind die unformatierten Zellwerte) und einmal um die Adresse zurückzugeben. Darum ist das schnell, denn die Array-Funktionen sind in Millisekunden durch. Selbst wenn du eine Liste mit einer Million Einträgen abarbeitest ist es immer noch schneller als die Find-Methode.
Gruß
Nepumuk
Anzeige
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 20:25:04
Stefan
hab vielen Dank, wieder was gelernt :-)
AW: Range.Find findet keine formatierten Zahlen
17.11.2019 07:37:23
Luschi
Hallo Stefan,
oder so: 

Public Function Find_1(r As Range, LookFor) As Variant
Dim p As Range, v As Variant
v = Application.Match(LookFor, r, 0)
If IsError(v) Then
Find_1 = "/"
Else
Find_1 = r.Cells(v).Address
End If
End Function
Gruß von Luschi
aus klein-Paris
AW: Range.Find findet keine formatierten Zahlen
16.11.2019 10:50:34
Stefan
Ergänzung:
Suche ich mit Zellbereich.Find( .. LookIn:=xlFormulas ..), findet er die Zahlen, die im Blatt mit Tausenderpunkt und ohne Nachkommastellen formatiert sind. Allerding natürlich nur die direkt eingegebenen Zahlen. Sobald eine Zahl aus einer Formel berechnet wird, findet die Methode diese natürlich nicht in Zelle.Formula. Also bin ich auf LookIn:=xlValues angewiesen, bisher ohne Erfolg.
Der zu suchende Zahlenwert kommt aus Zelle.Value (ohne Formatierung).
Anzeige

271 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Anzeige
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Finden in VBA
dierkrat

Guten Tag,
ich werde leider aus den vorhandenen Einträgen nicht schlau, so daß ich leider nachfragen muß. Ich habe in einer Zelle folgenden String 'abcdefg (huhu)'. Ich möchte hier jetzt nur 'huhu' ausschneiden und insofern nach dem Zeichen '(' suchen, um anschließen die Länge zu adjustiere...
29.09.2009 12:47:53
Thread-ID: 1106179
9 Beiträge
VBA - Letzte Tabelle Finden und Formel einfügen
André

Hallo Forum,
ich habe jetzt ein paar VBA Funktionen gefunden und in meine Datei eingebaut,
komme aber trotzdem nicht zum Schluss.
Ich habe 5 Tabellenblätter (1 - 5). Für die KW 6 will ich per VBA ein neues Blatt
einfügen und in A1 der Tabelle6 mittels Makro die Funktion
"vo...
07.12.2009 13:31:49
Thread-ID: 1122185
5 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
5
4
13
2
3
8
4
6
4
3
6
2
2
2
6
12
3
10
5
8
2
6
5