Kompilierungsfehler in verborgenem Modul

Sub Eingabeassistent()

 Dim Assistent As Balloon
 Set Assistent = Assistant.NewBalloon

 With Assistent
    .Heading = Auswahl
    .Text = Was möchten sie bearbeiten?
        .CheckBoxes(1).Text = Hochrechnung regional
        .CheckBoxes(2).Text = Hochrechnung national
        .CheckBoxes(3).Text = Kundenliste
        .CheckBoxes(4).Text = Planung Umsatz (Monate)
    .Button = msoButtonSetOkCancel
    .Show
    If .CheckBoxes(1).Checked Then
        HRreg
    End If
    If .CheckBoxes(2).Checked Then
        HRnat
    End If
    If .CheckBoxes(3).Checked Then
        KDList
    End If
    If .CheckBoxes(4).Checked Then
        PlanungVerteiler
    End If
 
 End With

End Sub



Function HRreg()

On Error GoTo Ende

Variablen

zähler = 1

    Sheets(1).Select
    Application.Goto Reference:=R22C9

For zähler = 1 To 5

Block

If MsgBox( _
    Anzeige & Chr(13) & Chr(13) & Möchten sie den Umsatz mit: & Chr(13) & Chr(13) & _
    Umsatz &  ? für die Regionalkunden und den Monat  & Monat &  2006 & Chr(13) & Chr(13) & _
    beibehalten? _
    , vbYesNo, Monat &  / regional) = vbYes Then
        ActiveCell.Offset(3, 0).Range(A1).Select
            Else:
                Umsatz = InputBox(Bitte geben sie den gewünschten Betrag ein: & Chr(13) & _
                Eingabe mit->Enter' bestätigen & Chr(13) & _
                (alt:  & Umsatz &  ?), _
                Umsatz neu!)
                ActiveCell.Value = Umsatz
                MsgBox Datensatz geändert!
                ActiveCell.Offset(3, 0).Range(A1).Select
End If

....




Function Block()

ActiveCell.Offset(-2, 0).Range(A1).Select
Wt = ActiveCell.Value
ActiveCell.Offset(-8, 0).Range(A1).Select
Monat = ActiveCell.Value
ActiveCell.Offset(10, 0).Range(A1).Select
Umsatz = Round(ActiveCell.Value, 3)
ActiveCell.Offset(1, 0).Range(A1).Select
ErRKP = Round(ActiveCell.Value, 3)
ActiveCell.Offset(1, 0).Range(A1).Select
ErKNP = Round(ActiveCell.Value, 3)
ActiveCell.Offset(1, 0).Range(A1).Select
SpRKP = Round(ActiveCell.Value, 3)
ActiveCell.Offset(1, 0).Range(A1).Select
SpKNP = Round(ActiveCell.Value, 3)
ActiveCell.Offset(-4, 0).Range(A1).Select

Anzeige = _
Anzahl Werktage Monat:                 & Wt & Chr(13) & Chr(13) & _
der Umsatz HR beträgt derzeit:       & Umsatz &  ? & Chr(13) & Chr(13) & _
die RKP Spanne beträgt derzeit:      & SpRKP &  % & Chr(13) & Chr(13) & _
die KNP Spanne beträgt derzeit:      & SpKNP &  % & Chr(13) & Chr(13) & _
End Function