Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Daten aus Modul in Gesamtliste kopieren |
19.01.2018 11:49:59 |
Steffi |
|
|
|
19.01.2018 12:57:54 |
Gast83817 |
|
|
|
22.01.2018 11:54:24 |
Steffi |
|
|
|
22.01.2018 13:18:51 |
Gast92850 |
|
|
Von:
Steffi |
Datum:
19.01.2018 11:49:59 |
Views:
904 |
Rating:
|
Antwort:
|
Thema:
Daten aus Modul in Gesamtliste kopieren |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Daten aus Modul in Gesamtliste kopieren |
19.01.2018 11:49:59 |
Steffi |
|
|
|
19.01.2018 12:57:54 |
Gast83817 |
|
|
|
22.01.2018 11:54:24 |
Steffi |
|
|
|
22.01.2018 13:18:51 |
Gast92850 |
|
|