Excel hängt sich auf

Hallo liebes Forum und Helfer,
ich habe folgendes Problem und hoffe auf Eure Hilfe.
In Excel 2002 habe ich ein Makro programmiert, welches nun in Excel 2010 nur noch ca. 56 mal läuft und dann hängt sich Excel komplett auf. Schließe ich Excel und öffne die Datei wieder, so läuft das Makro wieder 56 x und dann stürzt Excel wieder ab. Kann mir da jemand nen Tipp geben, woran das liegt? Ich habe ne vage Vermutung, das ne Variable volläuft, hab aber keinen Plan wo ich da suchen müßte.
Viele Grüße Dörte
So sieht mein Code aus(die Variablen habe ich in einem Extra-Modul):

Private Sub CommandButton1_Click()
pLetzte = Plist.Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
j = "KW " & WPL_Lief.Cells(7, 8)
  bei dieser Zeile springt der Debugger nach 56 Ausführungen an  
 Set lZelle = Plist.Range("J1:BJ1").Find(j, lookat:=xlWhole, LookIn:=xlValues) 'KW spalte
Call Schutz_Aus_EK_Preisliste
'preise wegschreiben in DZ-liste
i = WPL_Lief.Cells(6, 8) & " " & WPL_Lief.Cells(1, 5).Value & " " & WPL_Lief.Cells( _
ActiveCell.Row, 2)
Set kZelle = Plist.Range("A2:A" & pLetzte).Find(i, lookat:=xlWhole, LookIn:=xlValues)
If Not kZelle Is Nothing Then
If IsNumeric(TextBox1) Then
Plist.Cells(kZelle.Row, lZelle.Column) = CDbl(TextBox1) 'preis
Else
Plist.Cells(kZelle.Row, lZelle.Column) = TextBox1.Value  'preis
End If
End If
If kZelle Is Nothing Then
Plist.Cells(pLetzte + 1, 1) = i
Plist.Cells(pLetzte + 1, 2) = WPL_Lief.Cells(1, 5)  'lief.nr.
Plist.Cells(pLetzte + 1, 3) = WPL_Lief.Cells(1, 4) 'lieferant
Plist.Cells(pLetzte + 1, 6) = WPL_Lief.Cells(ActiveCell.Row, 1)  'wg
Plist.Cells(pLetzte + 1, 7) = WPL_Lief.Cells(ActiveCell.Row, 2)  'art.nr.
Plist.Cells(pLetzte + 1, 8) = WPL_Lief.Cells(ActiveCell.Row, 4)  'artikel
If IsNumeric(TextBox1) Then
Plist.Cells(pLetzte + 1, lZelle.Column) = CDbl(TextBox1) 'preis
Else
Plist.Cells(pLetzte + 1, lZelle.Column) = TextBox1.Value  'preis
End If
End If
Call Schutz_Ein_EK_Preisliste
If Label2.Caption = TextBox1.Value Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 15
End If
If IsNumeric(TextBox1) Then
ActiveCell.Value = CDbl(TextBox1)
Else
ActiveCell.Value = TextBox1
End If
Unload Me
Application.ScreenUpdating = True
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dörte,
in dem Vba-Code ist überhaupt nicht zu erkennen, wie die verwendeten Variablen definiert sind:
pLetzte, j, lZelle, kZelle, i
Setze am Anfang jedes! Moduls diese Anweisung:
Option Explicit
oder setze in den Optionen des Vba-Editor das entsprechende Häckchen dazu. Dann ist der Codeschreiber verplichtet, jede Variable zu deklarieren.
An der genannten Stelle kann der Debugger nur anspringen, wenn Plist.Range("J1:BJ1") nicht definiert ist. Außerdem ist es nicht gut, Übergabeparameter in einem Mischmasch von benamten und nicht benamten Parametern zu verwenden, wenn benamt, dann aber alle.
https://msdn.microsoft.com/de-de/VBA/Excel-VBA/articles/range-find-method-excel
in diesem Link findest Du unter Bemerkungen, welche Parameter bei jedem Suchlauf angegeben werden sollen einschließlich Begründung: LookIn, LookAt, SearchOrder und MatchByte
Nasch jedem Find-Befehl unbedingt prüfen ob er Suchwert auch gefunden wurde:
If Not (kZelle Is Nothing) Then (siehe dazu die Vba-Hilfe)
Der Vba-Code würde viel professioneller aussehen, wenn Du für gleiche Sachen auch die selbe
Schreibweise verwendest:
mal so dann wider anders
CDbl(TextBox1) | TextBox1.value
WPL_Lief.Cells(6, 8) | WPL_Lief.Cells(1, 5).Value | WPL_Lief.Cells(ActiveCell.Row, 2)
Und entscheide Dich hier nicht unbedingt auf die mögliche Minimalvariante, sondern für die ausführliche Schreibweise, daß erleichtert später das Lesen des Codes, wenn Schwierigkeiten aufatreten.
Definierte Objektvariablen wie 'kZelle' sollte man vor Verlassen der Sub/Function mit Nothing ins Nirvana schicken. Und immer daran denken, Vba ist nicht VB.Net, denn da richtet Vieles der Roslyn-Compiler.
So jetzt genug mit dem Gemeckere. Den Fehler ohne eine Beispieldatei zu finden ist mehr als eine Glückssache.
Deshalb noch einen Tipp.
Wenn beim näschaten Mal diese Zeile:
Set lZelle = Plist.Range("J1:BJ1").Find(j, lookat:=xlWhole, LookIn:=xlValues)
den Fehler verurscht und gelb hinterlegt ist, dann::
- auf Debuggen klicken (nicht Abbrechen)
- im Direkt-Fenster (Strg+G) diese Befehle eingeben
? Plist.Name
? Plist.Cells(kZelle.Row, lZelle.Column).Address
Sollte hier der Compiler meckern, dann verurlsacht 'Plist' den Fehler, ist also nicht definiert.
Gruß von Luschi
aus klein-Paris

Public Sub WkSh_Set() Set ASt = Worksheets("Artikelstamm") Set Kat = Worksheets("Kategorie") Set wks_ZMP = Worksheets("ZMP") Set Rank_Pro = Worksheets("Ranking_Pro") Set Plist = Worksheets("EK_Preisliste") Set DZ_Plist = Worksheets("DZ_EK_Preisliste") Set APlist = Worksheets("Abgabe_Preisliste") Set WPL_Pro = Worksheets("WPL_Produktion") Set WPL_Lief = Worksheets("WPL_Lieferant") Set wks_EinAbg = Worksheets("Eingabe_Abgabe") Set wks_Lief = Worksheets("Lieferanten") End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel hängt sich auf

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread