hiermit schreibe ich die Daten aus einer Textbox in die erste leere Zelle in Spalte D, in diesem Fall ist es D13.
Nachdem der entsprechende Wert eingetragen wurde, wird die Textbox geleert und es kann ein neuer Wert eingetragen werden.
Die nachfolgenden Daten werden logischerweise in die Zellen D14; D15 . eingetragen.
Diese neuen Daten müssen aber in einem Abstand von jeweils 4 Zeilen in die entsprechende Zelle eingetragen werden.
Wie müsste ich diesen Befehl entsprechend ändern?
Sheets("Tabelle1").Cells(Range("D65536").End(xlUp).Offset(1, 0).Row, 4) = TextBox1
Me. TextBox1.Text = ""
Danke schon mal im voraus
Gruß Josef