Hallo, bin ein Neuling was VBA betrifft.
Nun habe ich über zwei Comboboxen abfragen entwickelt und will im Nachgang die gesammelten
Informationen aus beiden Boxen über die Funktion inErsterZeile abspeichern.
Das alle funktioniert auch einfandfrei wenn ich im Nachgang über VBA in die Userform gehe.
Wenn ich diese nicht mache speichert er nicht.
VBA ist per Passwort geschützt
Marko ist per Passwort geschützt
Vielleicht hat ja jemand eine Idee ?? Admin aktivieren oder so!
Vielen Dank
Gruß Mark
'Fügt die eingetragene Werte in Tabellen Blatt und schließt es Fomular Kundendaten
ThisWorkbook.Worksheets("Tabelle1").Activate
Dim intErsteLeereZeile As Long
With ActiveWorkbook.Sheets(1)
intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intErsteLeereZeile, 1).Value = Kundendaten.txtDatum.Value
.Cells(intErsteLeereZeile, 2).Value = Kundendaten.txtKDNR
.Cells(intErsteLeereZeile, 3).Value = Kundendaten.txtNL.Value
.Cells(intErsteLeereZeile, 4).Value = Kundendaten.txtADM.Value
.Cells(intErsteLeereZeile, 5).Value = Kundendaten.txtKunde
.Cells(intErsteLeereZeile, 6).Value = Kundendaten.txtStrasse
.Cells(intErsteLeereZeile, 7).Value = Kundendaten.txtPLZ.Value
.Cells(intErsteLeereZeile, 8).Value = Kundendaten.txtOrt
.Cells(intErsteLeereZeile, 9).Value = Kundendaten.txtMaster
.Cells(intErsteLeereZeile, 10).Value = Answer
.Cells(intErsteLeereZeile, 11).Value = Application.UserName
End With
'Daten einblenden und Abspeichern
Worksheets("Daten").Activate
Worksheets("Daten").Visible = xlSheetVisible
ThisWorkbook.Save
|