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