wer kann mir helfen?
Ich habe mit Hilfe eines Macros eine Spalte erzeugt, nun sollte ich diese auch gleich komplett formatieren(Datum, Zeit, etc.)
Gruß
Hannes
Sub spalte()
On Error GoTo errh
Dim spalte
ActiveCell.EntireColumn.Insert
Set spalte = ActiveCell.EntireColumn
With spalte
.NumberFormat = "@"
.Interior.Color = VBA.RGB(0, 240, 240)
.Font.FontStyle = "Bold Italic"
.Font.Size = 10
.Font.Color = VBA.RGB(10, 20, 30)
.Font.Name = "Arial"
End With
Exit Sub
errh:
MsgBox Err.Description, vbCritical, "Error"
End Sub