Hallo,

ich hoffe ihr könnt mir weiter helfen.

Ich baue  gerade eine Projektstruktur. Um das richtige Projekt auszuwählen, wählt man in  der Combobox Projektsuche. Anschließend soll folgendes Makro alle Fahraufträge ohne Duplikate in cmbFahrauftragsuche schreiben

Sheets("Fahrdaten_Projekte").Select
cmbFahrauftragsuche.Clear
txtMessungsanzahl.Value = ""
ErsteZeileProjekt.Value = ""
txtWANummer.Value = ""

Speichern.Enabled = False
Dim eintrag As String
Dim Listenwert, Suchewert As String

For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    With Sheets("Fahrdaten_Projekte")
   
    Listenwert = cmbProjektsuche.Value
    Suchewert = .Cells(i, 1)
    eintrag = .Cells(i, 3).Value
        
        If Listenwert = Suchewert Then
            
            
            
            'doppelte Einträge aus Combobox löschen
             For z = 0 To cmbFahrauftragsuche.ListCount - 1
            If cmbFahrauftragsuche.List(z) = eintrag Then _
            cmbFahrauftragsuche.RemoveItem (z)
            Next            
            cmbFahrauftragsuche.AddItem eintrag
           
        End If
    End With
Next

Das Problem tritt auf, nachdem ich den Button Speichern Drücke. Und Die Excel Datei schließe.

Private Sub Speichern_Click()
'Speichern
Dim messungenan, zähler, Listenwert As Integer
messungenan = txtMessungsanzahl.Value
ErsteZeile = ErsteZeileProjekt.Value


  For zähler = 1 To messungenan
    With Sheets("Fahrdaten_Projekte")
  
    'Zeilenwert
    
    Listenwert = zähler + ErsteZeile - 1
    
    
    .Cells(Listenwert, 2) = Bearbeitung.Controls("txtWANummer").Value
  
     .Cells(Listenwert, 8) = Bearbeitung.Controls("Fahrer" & zähler).Value
  
    .Cells(Listenwert, 9) = Bearbeitung.Controls("GefahrenAm" & zähler).Value
    
    '.Cells(Listenwert, 10) = Bearbeitung.Controls("Start" & zähler).Value
    
    .Cells(Listenwert, 11) = Bearbeitung.Controls("Ende" & zähler).Value
    
   .Cells(Listenwert, 12) = Bearbeitung.Controls("ReifenID" & zähler).Value

    .Cells(Listenwert, 13) = Bearbeitung.Controls("Reifengröße" & zähler).Value
    
   .Cells(Listenwert, 14) = Bearbeitung.Controls("Reifenbenennung" & zähler).Value
    
     .Cells(Listenwert, 15) = Bearbeitung.Controls("Ort" & zähler).Value
    
    .Cells(Listenwert, 16) = Bearbeitung.Controls("Strecke" & zähler).Value
    
    .Cells(Listenwert, 17) = Bearbeitung.Controls("Speed" & zähler).Value
    
    .Cells(Listenwert, 18) = Bearbeitung.Controls("Druck" & zähler).Value
    
    .Cells(Listenwert, 19) = Bearbeitung.Controls("Laps" & zähler).Value
    
    .Cells(Listenwert, 20) = Bearbeitung.Controls("Messungszeit" & zähler).Value
    
    .Cells(Listenwert, 21) = Bearbeitung.Controls("Gefahren" & zähler).Value
        End With
    
    Next



Unload Bearbeitung

MsgBox "Der Fahrauftrag wurde aktualisiert"

Sheets("Übersicht").Select

Application.CutCopyMode = False

ActiveWorkbook.Save

End Sub

Wenn ich nun die Datei öffne und das Mako in der Userform startet kommt es zum Absturz.

Das öffnen des Debug Modus löst das Problem, außerdem funktioniert alles ohne Probleme wenn ich den Code im Einzelschrittmodus durchlaufe.

Ich verstehe es einfach nicht.