ich benötige ein Makro für folgenden Zweck :
Ich habe in z.b. Zeile B viele Werte stehen, diese werden addiert. Diese Summe hätte ich dann gerne fett markiert und mit dem Währungszeichen USD versehen.
Vielen Dank für euere Hilfe
Gruß
Dietmar
Option Explicit
Sub formatieren()
Dim lzeile As Long
Dim rng As Range
lzeile = Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Range(Cells(1, 2), Cells(lzeile, 2))
rng.NumberFormat = "#,##0.00"" USD"""
rng.Font.Bold = True
End Sub
ACHTUNG! Der Code gilt so wie er ist für das Active Tabellenblatt und nicht für ein Bestimmtes Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen