Wie kann ich von einer Userform die mit mehreren Checkboxen bestückt ist die Caption namen in die Fusszeile einfügen, wenn die CheckBox = True ist
Ich beabsichtige so einen Verteile auf das Papier zu bringen
besten Dank
Pius
Wie kann ich von einer Userform die mit mehreren Checkboxen bestückt ist die Caption namen in die Fusszeile einfügen, wenn die CheckBox = True ist
Ich beabsichtige so einen Verteile auf das Papier zu bringen
besten Dank
Pius
Option Explicit
Private Sub CommandButton1_Click()
Dim Liste As String
Dim i As Byte
For i = 1 To 5
If Controls("CheckBox" & i).Value = True Then
If Liste = "" Then
Liste = "Verteiler: " & Controls("CheckBox" & i).Caption
Else
Liste = Liste & ", " & Controls("CheckBox" & i).Caption
End If
End If
Next i
ActiveSheet.PageSetup.LeftFooter = Liste
UserForm1.Hide
End Sub
Gruss
Chris
Es geht, super
besten Dank
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen