in einem Makro hab ich u.a. folgenden Code drin:
With Sheets(Monat_Register)
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = dteDatum_text
.Offset(1, 2) = dtetag
.Offset(1, 4) = txtVeranstaltung
.Offset(1, 6) = txtVerein
.Offset(1, 8) = txtOrt
End With
.Range("A2:J65536").Sort _
Key1:=.Range("A2"), Order1:=xlAscending, _
Key2:=.Range("i2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Range("A1").Value = Monat_Register
End With
Dieser Code - Teil dient dazu verschiedene Datensätze in die Zellen-Felder einer Excel-Arbeitsmappe zu schreiben.
dies läuft auch einwandfrei, allerdings möchte ich den Code so anpassen, dass mit dem Schreiben des Datensatzes in der Zeile A1 begonnen wird, B1 soll leergelassen werden, dann C1, D1 leer, E1 ect....
wie müsste ich meinen Offset-Bereich anpassen dass zwischen jedem Feld bloss eine Zelle leergelassen wird ?
(jetzt ist es so, dass das Makro den Inhalt aus der Variablen dteDatum_text in die Zelle A1 schreibt, den Inhalt der Variable dtetag in Zelle H1 oder sogar noch weiter hinten...
Besten Dank für Eure Hilfe !