Nochmal Hallo,

ich habe inzwischen die Lösung gefunden: (für alle die es interessiert):

Es geht um zwei "UserForms" Die erste Userform (mit der die gesamte Prozedur über "AutoOpen()" aufgerufen wird) prüft die Bedingung. Diese heißt hier "frm_etk". In dieser ist ein Beschriftungsfeld mit Namen "ea_i" mit dem Wert 0 (Caption).
Die zweite UserForm hat den Namen "frm_aufb1". In dieser habe ich ein Beschriftungsfeld mit Namen "etk_anz_druck" erschaffen. Die Beschriftung (Caption) bleibt leer. Das Feld ist Enabled=true (Standart), damit man die Farbe einstellen kann.

Das Feld "ea_i" startet mit dem Wert Null und wird um 1 erhöht wenn das Kontrollkästchen "Etikett1" den Wert True hat. An das Beschriftungsfeld "et_anz_druck" im UserForm "frm_aufb1" wird der Text "Me.ea_i & " von " & sumA" übergeben und anschließend die UserForm selbst gestartet. Das Gleiche passiert bei Etikett2 bis 4. Pro angehaktem Etikett wird der Wert ea_i um eins erhöht.
Die Variable "sumA" erhält die Summe der True-Werte der Kontrollkästchen "Etikett1 bis 4".

so sieht das ganze aus: (ich hoffe ich habe das richtige rausgeschnipselt)

Sub aufruf_frm_aufb1()
Dim a As Integer, b As Integer, c As Integer, d As Integer, sumA As Integer
    Me.ea_i = Me.ea_i + 1
    If Me.etikett1 = True Then a = 1 Else a = 0
    If Me.etikett2 = True Then b = 1 Else b = 0
    If Me.etikett3 = True Then c = 1 Else c = 0
    If Me.etikett4 = True Then d = 1 Else d = 0
    sumA = a + b + c + d
    frm_aufb1.etk_anz_druck.Caption = Me.ea_i & " von " & sumA
    frm_aufb1.Show
End Sub

Private Sub Etk_weiter_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, sumA As Integer
Me.ea_i = 0
If Me.etikett1 = True Then
    aufruf_frm_aufb1
End If
    Selection.MoveRight Unit:=wdCell
If Me.etikett2 = True Then
   aufruf_frm_aufb1
End If
    Selection.MoveRight Unit:=wdCell
If Me.etikett3 = True Then
    aufruf_frm_aufb1
End If
    Selection.MoveRight Unit:=wdCell
If Me.etikett4 = True Then
    aufruf_frm_aufb1
End If
Unload Me
End Sub