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-Treffen
findet vom 19.09. - 21.09.2025 in Bad Arolsen statt. Zu den Infos kommt Ihr oben über den Link. |
[VBA] einzelnes Arbeitsblatt abspeichern
|
|