Zellformate
19.05.2006 12:19:18
Volker
ich möchte in einer Zelle den Zellwert mittels folgendem Code um 1 erhöhen:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then
Sheets("Tabelle1").Range("D19") = Sheets("Tabelle1").Range("D19") + 1
End If
End Sub
Allerdings wäre es schön, das inclusive der vorangestellten Nullen, also
"0001, 0002," usw. geschehen würde.
Kann mir jemand auf die Sprünge helfen?
Danke Gruß Volker