|
Guten Morgen
Leider bekomme ich noch eine Fehlermeldung. Vllt. hat jemand die Lösung zur Behebung. Ich bin jetzt folgendermaßen vorgegangen:
Der Command-Button ruft die Sub in Modul 1 auf
In Modul 1 findet eine Fallunterscheidung statt (D6 kann ganze Zahlenwerte zw. 1 und 8 annehmen):
Sub Fallunterscheidung()
Select Case UCase(Worksheets("Strukturdaten").Range("D6"))
Case "1"
Call PublicSub_1
Case "2"
Call PublicSub_1
Case "3"
Call PublicSub_1
Case "4"
Call PublicSub_1
Case "5"
Call PublicSub_2
Case "6"
Call PublicSub_2
Case "7"
Call PublicSub_2
Case "8"
Call PublicSub_2
End Select
End Sub
Wenn z. B. das Ereignis D6 = 1 eintritt, dann wird Modul 2, bzw. die darin liegende Sub, abgerufen und darin werden nochmal die Fälle abgeglichen:
Modul 2:
Public Sub_1()
Select Case UCase(Worksheets("Strukturdaten").Range("D6"))
Case "1"
Call PublicSub_1
Case "2"
Call PublicSub_1
Case "3"
Call PublicSub_1
Case "4"
Call PublicSub_1
End Select
End Sub
Leider bekomme ich immer eine Fehlermeldung. Dabei wird "D6" in Modul 2 markiert:
"Fehler beim Kompilieren. Außerhalb einer Prozedur ungültig."
|