Hallo,

ich habe ein Modul in dem Benutzer Daten erfassen. Wenn sie auf "senden" drücken, werden die Daten in ein anderes Tabellenblatt in eine Gesamtliste kopiert. So weit geht das auch:

 Sub senden()
 
 ' Aussteller
Sheets("Datalist").Range("F3").Value = Sheets("Störmeldung").Range("D8").Value
 Sheets("Störmeldung").Range("D8").Value = ""
 ' Maschinen-Nr
 Sheets("Datalist").Range("B3").Value = Sheets("Störmeldung").Range("D11").Value
  Sheets("Störmeldung").Range("D11").Value = ""
 ' Beschreibung
 Sheets("Datalist").Range("D3").Value = Sheets("Störmeldung").Range("B16").Value
  Sheets("Störmeldung").Range("B16").Value = ""
 ' Datum und Uhrzeit
 Sheets("Datalist").Range("G3").Value = Sheets("Störmeldung").Range("C5").Value
  Sheets("Datalist").Range("H3").Value = Sheets("Störmeldung").Range("E5").Value
' Maschinenstillstand
 Sheets("Datalist").Range("I3").Value = Sheets("Datalist").Range("I1").Value
  Sheets("Datalist").Range("I1").Value = ""
 ' Art der Störung
 Sheets("Datalist").Range("P3").Value = Sheets("Datalist").Range("P1").Value
  Sheets("Datalist").Range("P1").Value = ""
 
Dim ObjOLE  As OLEObject

   For Each ObjOLE In Sheets("Störmeldung").OLEObjects
      If TypeOf ObjOLE.Object Is MSForms.CheckBox Then
         ObjOLE.Object.Value = False
      End If
   Next ObjOLE
 
 MsgBox "Störmeldung erfolgreich gesendet"
 
 End Sub

Allerdings möchte ich, dass die Daten in der Gesamtliste immer in die nächste freie Zeile kopiert werden. Momentan überschreibt es immer die gleiche Zeile, weil die Befehle direkt auf eine Zelle bezogen sind.

Danke für eure Unterstützung im Voraus,

Steffi