<p> Hallo,</p> <p> </p> <p> ich hoffe ihr könnt mir weiter helfen.</p> <p> </p> <p> Ich baue gerade eine Projektstruktur. Um das richtige Projekt auszuwählen, wählt man in der Combobox Projektsuche ein Projekt aus. Anschließend soll folgendes Makro alle Fahraufträge ohne Duplikate in cmbFahrauftragsuche schreiben</p> <p> </p> <pre class="brush:vb;"> 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 </pre> <p> Das Problem tritt auf, nachdem ich den Button Speichern Drücke. Und Die Excel Datei schließe.</p> <p> </p> <pre class="brush:vb;"> 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</pre> <p> </p> <p> </p> <p> Wenn ich nun die Datei öffne und das Mako in der Userform startet kommt es zum Absturz.</p> <p> Das öffnen des Debug Modus löst das Problem, außerdem funktioniert alles ohne Probleme wenn ich den Code im Einzelschrittmodus durchlaufe.</p> <p> </p> <p> </p> <p> Ich verstehe es einfach nicht.</p>
|