Hallo,
ich bin VB6 Neuling und möchte folgendes erreichen:
Makro sterten -> MsgBox mit 6 Checkboxen -> Checkboxen setzen -> Array wird mit werten gefüllt -> OK klicken damit der Rest des Makros weiterläuft.
Mein Code in Modul1:
Sub Makro()
Dim showhide(5) As Integer
UserForm1.Show
...
Mein Code in UserForm1:
Privat Sub CheckBox1_Click()
If Check1.Value Then
showhide(0) = 1
Else
showhide(0) = 9
End If
Private Sub CheckBox2_Click()
If Check2.Value = 1 Then
showhide(1) = 1
Else
showhide(1) = 9
End If
...
So, das ist ein Codeausschnitt aus Modul1 und UserForm1.
Die Box wird angezeigt.
Sobald ich die 1 Checkbox aktiviere kommt:
"Fehler beim compilieren: Sub oder Function nicht definiert"
Das hat doch glaube ich was damit zu tun, das showhide nicht global bekannt ist?!
Leider hab ich noch keine Ahnung davon.
Ich hoffe Sie können mir helfen.
Vielen Dank und freundliche Grüße
Tobster |