Code-Probleme mit dem GoTo-Befehl
12.11.2004 14:19:37
Sven
Ich habe ein Problem mit einem Code. Dieser befindet sich in einem aufgerufenen Modul, läuft aber nicht richtig. In dieser ComboBox99 stehen einfach Namen(WPName)untereinander, an die ein "_oeffnen" drangehängt werden soll.
Funktiert auch bis dann die Stelle mit dem "GoTo WPAuswahl" kommt. Da bleibt es hängen. Dabei soll er da ja als WPAuswahl den ausgewählten Wert der ComboBox haben um dann zum richtigen GoTo zu springen. Geht aber nicht, und ich weiß nicht warum?
Sub Auslesen_WPWahlbox()
Dim WPName$
WPName = Sheets("SUMME").ComboBox99.Text
If WPName "" Then
WPAuswahl = WPName & "_oeffnen"
GoTo WPAuswahl
Else:
MsgBox "fehler"
Exit Sub
End If
Exit Sub
WP01calc_oeffnen:
MsgBox "wp01"
Exit Sub
Wp02calc_oeffnen:
MsgBox "wp02"
Exit Sub
Kalte Grüße, Sven