Rechnungsnummer inkrementieren
06.05.2004 23:10:44
Dominik
Private Sub Workbook_Open()
With Worksheets(1).Range("a1")
.Value = .Value + 1
End With
End Sub
...............es funzt!!! Wirklich!!!..............