globale Variable nicht global

Oberschlumpf · 2006-09-25T11:33:45+00:00

Hallo Leute Weiß jemand, woran es liegen kann, dass eine im allg. Modul mit Public als global deklarierte Variable (eindimensionales Array) auf einmal während der Laufzeit keine Gültigkeit mehr besitzt? Ich arbeite schon seit ca. 1 Woche an einer Datei, in der eben diese eine globale Variable immer einwandfrei ihren Dienst tat. Nun, seit vor ca. 1 Std. steigt das Programm an der Stelle aus, an der auf die Werte in der Variablen zugegriffen werden soll, weil die Variable noch nicht mal mehr dimensioniert ist. Warum das? An keiner Stelle im Code wird die Variable gelöscht. Hier sind die Subs, in der die Variable pstrAlleTabellen() verwendet wird: Public piBlattDel As Integer, pstrBlattDel As String, pstrAlleTabellen() As String Sub SheetRowsDel() Dim liSuche As Integer, liIndex As Integer, lboNoDel As Boolean Application.EnableEvents = False Do Until pstrAlleTabellen(liIndex) = "" For liSuche = 1 To ThisWorkbook.Sheets.Count If pstrAlleTabellen(liIndex) = ThisWorkbook.Sheets(liSuche).Name Then lboNoDel = True Exit For End If Next If lboNoDel = True Then lboNoDel = False Else Call DelRows(pstrAlleTabellen(liIndex)) End If liIndex = liIndex + 1 Loop Application.EnableEvents = True End Sub Sub SheetsCollect() Dim liSuche As Integer ReDim pstrAlleTabellen(ThisWorkbook.Sheets.Count) For liSuche = 0 To ThisWorkbook.Sheets.Count - 1 pstrAlleTabellen(liSuche) = ThisWorkbook.Sheets(liSuche + 1).Name Next End Sub Vielen Dank für eure Antworten, Ideen, etc. Ciao Thorsten

Hallo Luschi
Boahh! Hab ich gedacht. Liegt es tatsächlich daran, dass die eine Schleife mit 1 beginnt? (ich selbst hatte die 1 noch gar nich gesehn - thx for info!)
Aber leider war es das auch nicht.
Ich versuch mal zu erklären, was ich bisher zur Fehlersuche getan hab.
1. Habe Stop-Befehl im Open-Ereignis gesetzt
2. Nach Speichern, Schließen und wieder Öffnen Stop direkt nach Private Sub...
3. Im Debugger-Mode Schritt für Schritt den Code abgearbeitet, bis alle Startparameter gesetzt waren, und in der Datei gearbeitet werden kann
Hier wurde die


Sub SheetsCollect() das erste mal aufgerufen
Nach Durchführung der 

Sub hab ich vor End 

Sub den Befehl
MsgBox pstrAlleTabellen(0)
gesetzt.
Ergebnis = Anzeige von erstem Sheet-Namen - die Variable wird also gefüllt
4. Vor Klick auf "New Sheet"-Button in Tabelle hab ich für den Button Stop-Marke gesetzt
5. Nach Klick auf den Button wieder im Debug-Modus Schritt für Schritt alle Befehle abgearbeitet.
Nach jedem Aufruf einer 

Sub (stehen alle in Klick-Ereignis vom Button) hab ich wieder den Befehl
MsgBox pstrAlleTabellen(0)
gesetzt.
Ergebnis immer = erster Sheet-Name - funktioniert also immer noch
6. Dann war "New Sheet" irgendwann erfolgreich fertig, und ich war wieder in der Tabelle
7. Nun rechter Mausklick auf neuen Sheetnamen und "Löschen" ausgewählt.
Hier wird nun die 

Sub SheetRowsDel() aufgerufen, die ich auch wieder mit Stop markierte.
Und nach Stop wieder Schritt für Schritt...
Schon die Befehlszeile
Do Until pstrAlleTabellen(liIndex) = ""
unterbricht den Code mit Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs
Tja...bis hier bin ich bisher gekommen - und ich weiß nicht, wie es weitergeht.
1 Woche ging alles gut. Ich weiß nicht, was für Änderungen ich bis hier vor nahm, die nun diesen Fehler verursacht.
Wer von euch kann mir helfen?
Ciao & Danke
Thorsten

Hallo Heiko
Vielen Dank auf jeden Fall für de Mühe, die du gemacht hast.
Ich hatte versucht, einiges an Code zu löschen, hatte dabei aber a) festgestellt, dass eben viele Subs sich mehr oder weniger gegenseitig aufrufen (was ja so auch gewünscht ist) und b) dass beim Löschen von Code ja nicht unbedingt mehr das "Umfeld" da ist, als wenn der gabze Code noch da ist.
In einem Punkt allerdings muss ich dir Recht geben. Die Sub, in der das Problem mit dem Array auftritt, ruft noch eine Sub auf, in der dann erst die Zeilen gelöscht werden - was ja eigtl auch schon in der Fehler-Sub passieren könnte.
Nun denn...wir VBAler sind ja hin und wieder auch nur fehlerproduzierende Maschinen..ähh...Menschen! :-)))
Das Ausschalten einiger Menübefehle, z Bsp Löschen von Zellen/Zeilen/Spalten, muss leider sein, weil diese Datei von mehreren Leuten benutzt wird.
Und hin und wieder denkt der Eine oder die Andere sich an dieser Datei mal als "Tabellen-Designer" :-) betätigen zu müssen, was nicht selten zur Folge hat, dass sich das ursprüngliche Design der Datei verändert (z Bsp mehr oder weniger Zellen/Zeilen/Spalten), und somit der VBA-Code Fehlerwerte berechnet und diese dann eben auch nicht mehr in die richtigen Zellen schreibt - du verstehst? :-)
Und wenn nun meine neueste Version dieser Datei endlich funktioniert, dann is für die Anderen nix mehr zu tun als "Tabellen-Designer" :-)
Nichts desto trotz hatte ich mich noch mal ca. 30 Minuten erfolglos an dem Problem mit der Variablen versucht, und hab es nun endlich doch gelöst - auf einem anderen Weg :-)
Und zwar so:


Sub ZeileDel()
Dim liZeileHL As Integer, liZeileWS As Integer, lboGefunden As Boolean
Application.EnableEvents = False
ProtectNo
With Sheets("Summary NCEs + LCM")
For liZeileHL = 3 To .Cells(Rows.Count, 26).End(xlUp).Row
lboGefunden = True
For liZeileWS = 3 To Sheets.Count
If .Range("A" & liZeileHL).Hyperlinks(1).Name <> Sheets(liZeileWS).Name Then
lboGefunden = False
Else
lboGefunden = True
Exit For
End If
Next
If lboGefunden = False Then
.Rows(liZeileHL & ":" & liZeileHL).Delete Shift:=xlUp
Exit For
End If
Next
End With
With Sheets("PTS")
For liZeileHL = 3 To .Cells(Rows.Count, 26).End(xlUp).Row
lboGefunden = True
For liZeileWS = 3 To Sheets.Count
If .Range("B" & liZeileHL).Hyperlinks(1).Name <> Sheets(liZeileWS).Name Then
lboGefunden = False
Else
lboGefunden = True
Exit For
End If
Next
If lboGefunden = False Then
.Rows(liZeileHL & ":" & liZeileHL).Delete Shift:=xlUp
If .Cells(Rows.Count, 26).End(xlUp).Row > 3 And .Cells(Rows.Count, 26).End(xlUp).Row < 14 Then
.Rows(.Cells(Rows.Count, 26).End(xlUp).Row + 1 & ":" & .Cells(Rows.Count, 26).End(xlUp).Row + 1).Insert Shift:=xlDown
.Rows(.Cells(Rows.Count, 26).End(xlUp).Row + 1 & ":" & .Cells(Rows.Count, 26).End(xlUp).Row + 1).Interior.ColorIndex = xlNone
Else
If .Cells(Rows.Count, 26).End(xlUp).Row <= 3 Then
.Rows("4:4").Insert Shift:=xlDown
.Rows("4:4").Interior.ColorIndex = xlNone
End If
End If
Exit For
End If
Next
End With
ProtectYes
Application.EnableEvents = True
End Sub

Hier wird nur noch eine Sub und nicht wie vorher 3 Subs benötigt (da hatte ich echt viel zu viel geschrieben..hmm)
Auch ein Array brauche ich nicht mehr.
Ich vergleiche nach demm Löschen eines Sheets die noch vorhandenen mit den ebenso vorhandenen Hyperlink-Adressen, die zu den Sheets verweisen.
Und wenn ich DEN Hyperlink finde, der auf ein nicht vorhandes Sheet verweist, so hab ich auch DIE Zeile gefunden, die gelöscht werden muss.
...und alles wird guuuuuut :-)....
Ciao
Thorsten

Forumthread: globale Variable nicht global

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

globale Variable nicht global

Forumthread: globale Variable nicht global

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread