ich habe folgendes Makro, funktioniert auch:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim jdate
Dim Verzeichnis As String
Dim myFSO As Object, myDrv As Object, strFS As String
jdate = Format(Now, "dd.mm.yyyy hh:mm")
Sheets("Schloß").Select
Sheets("Schloß").Range("d27").Value = Application.UserName & _
" Datum/Uhrzeit: " & jdate
End Sub
Ich möchte gern das der nächste Eintrag in d28, d29 u.s.w. geschrieben wird,
nach 10 Einträgen, sollen die Einträge in E27 geschrieben werden und dann die nächsten 11-20 ab E37 u.s.w .
Hat jemand eine Idee ?
Mit freundlichen Gruß Walter