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
|