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.
|