Thema Datum  Von Nutzer Rating
Antwort
Rot Makro bringt Excel zum Absturz, im Debug dunktiniert es jedoch ganz normal
18.01.2017 17:37:49 DerExclärr
NotSolved
18.01.2017 18:53:30 gast
NotSolved
19.01.2017 13:42:50 Gast82856
NotSolved

Ansicht des Beitrags:
Von:
DerExclärr
Datum:
18.01.2017 17:37:49
Views:
572
Rating: Antwort:
  Ja
Thema:
Makro bringt Excel zum Absturz, im Debug dunktiniert es jedoch ganz normal

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro bringt Excel zum Absturz, im Debug dunktiniert es jedoch ganz normal
18.01.2017 17:37:49 DerExclärr
NotSolved
18.01.2017 18:53:30 gast
NotSolved
19.01.2017 13:42:50 Gast82856
NotSolved