Spalten mit bestimmten Überschriften formatieren
13.08.2018 18:44:09
Hans
ich habe neulich von Nepumuk eine tolle Lösung für das Problem "Spalten mit bestimmten Überschriften formatieren" bekommen.
Meine Frage, kann man gleich die Füllfarbe für die Zelle festlegen?
Hier das bisherige Makro
Public Sub Formatieren()
Dim lngColumn As Long
For lngColumn = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
Select Case Cells(1, lngColumn).Value
Case "Betrag"
Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)).NumberFormat _
= "#,##0.00"
Case "Datum"
Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)). _
NumberFormatLocal = "TT.MM.JJJJ"
Case "Uhrzeit"
Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)). _
NumberFormatLocal = "HH:MM:SS"
End Select
Next
End Sub
Anzeige