Office: goto anweisung in verschiedenen modulen

Hallo,

wie kann ich mit einer goto anweisung in ein anderes modul springen?

er sagt mir in modul 4, dass er die sprunganweisung nicht findet, diese wurde jedoch definiert, jedoch in einem anderen modul.

habs schon mit

goto jump

goto main() jump probiert

aber beides geht nicht


hmm hab grad gefunden, dass goto gar nicht bei verschiedenen prozeduren funktioniert.

wie kann ich dann von einer prozedur in die andere springen?
hier mal mein ganzer code bzw. der code der probleme macht:

modul 1:
Sub Main()

Dim ActivCell1 As String
Dim intRow As Integer, intRow2 As Integer, intRow3 As Integer
Dim i As Long, iMax As Long

intRow = 2 'Zeilenindex Tabelle 1
intRow2 = 10 'Zeilenindex Tabelle 2
intRow3 = 13 'Zeilenindex Tabelle 3
iMax = 2500 'wichtig für Fortschrittsbalken, Wert Max des Balkens)

i = 0 'Aktueller Wert des Fortschrittbalkens


Windows("index.xls").Activate 'Indexdatei aktivieren
Cells(intRow, 1).Select 'Zelle selektieren

With ActiveCell 'Prüfen ob Zelle gültig ist"
If Not IsEmpty(.Value) Then
ActiveCell1 = .Value 'ActiveCell1 den Wert der Zelle zuweisen
End If
End With


Do Until (ActiveCell1 = "") 'Schleife solange Zelle nicht leer


Windows("PCB_Estimation.xls").Activate ' ergebnissdatei aktivieren
Cells(intRow2, 1).Select 'Zelle selektieren
With ActiveCell
.Value = ActiveCell1 'Den Wert von ActiveCell1 in die Zelle kopieren

End With
setPos i, iMax 'Aufruf der Funktion um den Fortschrittsbalken zu aktualisieren

i = i + 1 'Hier werden alle Indizes inkrementiert
intRow = intRow + 1
intRow2 = intRow2 + 1
intRow3 = intRow3 + 1
ActiveCell1 = "" 'ActiveCell1 leeren
Windows("index.xls").Activate 'Index Datei aktivieren
Cells(intRow, 1).Select 'Zelle selektieren
With ActiveCell
If Not IsEmpty(.Value) Then
ActiveCell1 = .Value
End If
End With
Loop
End Sub

Function setPos(i As Long, intMax As Long) 'Funktion welche meinen Fortschrittsbalken (ProgressBar) aktualisieren soll

With ProgressDlg
ProgressDlg.Caption = "Proseccing...." 'Überschrift des Balkens
If i Mod 5 = 0 Then ProgressBar i / intMax 'Wenn Modulo Null ist, dann soll der Balken aktualisiert werden mit dem %-Wert i/iMax

.Show 'Fortschrittsbalken auf dem Bildschirm anzeigen, er springt jetzt beim ersten mal zu Private Sub Userform_Initialize
End With
End Function


Formular: ProgressDlg (nicht mehr Modul1)


Private Sub UserForm_Initialize() 'Erstes Initialisieren des Fortschrittbalkens (Code ist nicht von mir, verstehen ich auch ehrlich gesagt nicht ganz, was hier gemacht wird, wahrscheinlich wird die Position des Balkens festgelegt

With Me.lblDone ' set the "progress bar" to it's initial length
.Top = Me.lblRemain.Top + 1
.Left = Me.lblRemain.Left + 1
.Height = Me.lblRemain.Height - 2
.Width = 0
End With
End Sub

Jetzt springt er hier rein:

Private Sub UserForm_Activate() 'Hier soll der Fortschrittsbalken am Bildschirm ausgegeben werden

Hier bleibt jetzt mein Programm stehen und geht nicht mehr weiter, ich möchte aber wieder in Sub main() zurück und zwar zum Anfang der Do Until Schleife


End Sub


ich hoffe ihr könnt mir helfen, leider ist der code sicher nicht astrein, aber ich bin vba anfänger

 

erledigt, habs mit viel probiererei hinbekommen ;)