18.02.2016, 13:26
Code:
With Sheets("Datenbankliste")
.Cells(Rows.Count, 1).End(xlUp).offset(,8).NumberFormat = "dd.mm.yyyy"
Sheets("RechnungsVorlage").[K23] = Application.Max(.columns(8)) + 1
End With
[VBA] einzelnes Arbeitsblatt abspeichern
|
|