Aus String-Währungs-Werten Summe bilden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
toll, dass Ihr Euch so promt gemeldet habe! Danke dafür! Ja, ich bin bei Euch, den "Text"-Kram würde ich definitiv am liebsten weglassen. Aber Ihr kennt die Vorgeschichte nicht. Mein Thread Ersten Wert in einer Spalte suchen - Matthias 17.04.2023 18:20:23
endete mit einem Makro, für das ich die Formatierung in meinen Tabellenblatt-Zellen von "Währung" auf "String" umändern musste. Onur hat mir dabei geholfen, bzw. als Erster eine gangbare Lösung gefunden, um dieses echt widerspenstige Makro zum Laufen zu bringen. Ursprünglich wollte ich nur einen Wert der Variablen a in der Spalte G meines Tabellenblattes finden, um mit der Zeilennummer dieses Wertes weiterzumachen. In dieser Spalte G stehen lauter Zahlen, die als "Währungs-Zahlen" formatiert wurden. Also z.B. 16,32. Aber ohne diese umständliche "Umformatierung" von Zahl nach String bekomme ich dieses Makro einfach nicht zum Laufen. Natürlich wäre es mir viel lieber, die Formatierung der Zellen als "Währung" zu belassen. Langer Rede kurzer Sinn: Guckt Euch den Thread vom 18.4. an, wenn Ihr Lust und Laune habt, wenn Ihr ne andere Idee habt, einen Wert in einer Zelle der Spalte G per Makro zu finden, wäre mir das 1000-mal lieber!
Liebe Grüße,
Matthias

Hi
mit .FIND suchst du in den angezeigten Werten (mit den Parametern LookAT:=xlwhole und LookIn:=xlvalues)
dh du musst den Zellwert so angeben, wie er in der Zelle angezeigt wird.
Bei Zahlen wird es allerdings etwas tricky, da Excel und VBA englisch miteinander reden.
Dh hast du eine Zahl in Excel mit dem Standard-Dezimalzeichen (in deutsch Komma) formatiert, musst du für die Suche in VBA ebenfalls das Standard-Dezimalzeichen angeben und das ist für VBA immer der Punkt.
Ebenso das Währrungssymbol. Formatierst du die Zelle mit dem Standard-Währungsymbol (in Deutschland ), so musst du für VBA auch das Standard-Währungssymbol für die Suche verwenden und das ist in VBA aber Länderunabhängig immer $.

wenn also in der Zelle angezeigt wird "12,45 " muss dein Suchwert für das .FIND lauten: "12.45 $", damit du in deinem deutschen Excel einen Treffer bekommst.
Die Logik hinter dem ganzen ist "Standard". Wenn du in Excel das Standard-Symbol verwendest (Dezimalzeichen, Währung) dann musst du auch in VBA das Standard-Symbol verwenden. In Excel sind die Standardsymbole jedoch länderspezifisch, in VBA immer amerikanisch.

Wenn du Zahlen suchst, könntest du auch einfach mit einer Schleife über den Bereich drüberlaufen:

dim Zelle as Range
dim Suchwert as Double
for each Zelle in Range(...)
    if Zelle.value = Suchwert then exit for
Next

nach dieser Schleife ist dann Zelle die erste Zelle mit dem gesuchten Wert, ober eben Nothing, wenn der Suchwert nicht gefunden ist.
Aber hier suchst du dann mit den tatsächlichen Zellwerten und kannst einfacher nach Zahlen oder ähnlichem Suchen.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1	699,00		701,00
2	2,00
3
4
5

Zelle	Formel
A1	=WENN(B22F22=0;"";WENN(ODER(C22="Taxi";C22="DB";C22="Hotel");B22F22(100+Tools!F12)/100;B22F22))
C1	=SUMME(A1:A3)

Aus String-Währungs-Werten Summe bilden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread