Fehler: "Sub oder Function nicht definiert"
26.03.2015 10:08:44
tobi
ich erhalte immer die Fehlermeldung, dass "Sub oder Function" nicht definiert sei?
Public Sub CmdAbbruch_Click()
Unload frmNoten
End Sub
Public Sub CmdUebernehmen_Click()
Dim Einzelnote(7 To 12) As Variant
Dim Durchschnittsnote As Integer
For i = 7 To 12
Einzelnote(i) = Me.Controls("ComboBox" & i).Value
Next i
MsgBox Fach(0)
'For i = 1 To 6
' If Me.Controls("ComboBox" & i).Value = Fach(0) Then
' MsgBox "Klappt"
' End If
'Next i
Unload frmNoten
End Sub
Public Sub UserForm_Initialize()
Dim i As Integer
Dim n As Integer
Dim Fach() As Variant
Fach = Array("Fach1", "Fach2", "Fach3", "Fach4", "Fach5", "Fach6")
Dim Notenwert() As Variant
Notenwert = Array("1,0", "1,3", "1,7", "2,0", "2,3", "2,7", "3,0")
For i = 1 To 6
For n = 0 To 5
Me.Controls("ComboBox" & i).AddItem Fach(n)
Next n
Next i
For i = 7 To 12
For n = 0 To 6
Me.Controls("ComboBox" & i).AddItem Notenwert(n)
Next n
Next i
End Sub
Das muss doch irgendwie daran liegen, dass ich die Variable bzw. das Array Fach( ) bei "Public Sub UserForm_Initialize()" definiert habe und nun bei "Public Sub CmdUebernehmen_Click()" anzeigen bzw. weiterverarbeiten möchte. Hab doch extra ein public sub erstellt (globale Variable?).
Arbeite mich gerade erst in VBA ein...
Vielen Dank für Eure Hilfe
Grüße