Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fusszeile auffüllen

Forumthread: Fusszeile auffüllen

Fusszeile auffüllen
26.03.2003 16:27:49
Pius
Hallo Excel Leute

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



Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fusszeile auffüllen
27.03.2003 13:15:02
ChrisL

Hallo 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

Anzeige
Re: Fusszeile auffüllen
27.03.2003 13:48:22
Pius

Hallo Chris

Es geht, super
besten Dank

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige