Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1424to1428
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
Inhaltsverzeichnis

Zellenformate per VBA dynamisch ändern

Zellenformate per VBA dynamisch ändern
20.05.2015 11:42:29
Melsator
Guten Tag,
ich suche eine VBA Lösung mit deren Hilfe ich ein Zellenformat dynamisch ändern kann.
Beispiel:
Spalte A enthält ein Summe (z.B. 100,00), die ich in der Wärung aus Spalte B (z.B. "EUR") in Spalte C als Zahl darstellen möchte;
Das Ergebnis soll eine Zahl im Format "xxx #0,00" sein, also bei xxx=EUR wäre das EUR 100,00. In der nächsten Zeile könnte dan bei xxx=USD "USD 100,00" stehen usw.
Die Währung kann von Zeile zu Zeile wechseln.
Wie kann man das in VBA darstellen?
Gruß
Melsator

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

Betreff
Datum
Anwender
Anzeige
AW: Zellenformate per VBA dynamisch ändern
20.05.2015 14:29:03
ChrisL
Hi
Sub Makro1()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 3) = Cells(i, 2)
Cells(i, 3).NumberFormat = "[$" & Cells(i, 1) & "] #,##0.00"
Next i
End Sub

cu
Chris

AW: Zellenformate per VBA dynamisch ändern
21.05.2015 13:58:56
Melsator
Hi, Danke, super funktioniert.
Gru0ß
Melsator
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige