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![]() Forum des Excel-Verein 2015 e.V. |
Das Clever-Excel-Forum
|
|
[VBA] einzelnes Arbeitsblatt abspeichern
|
|
|