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

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



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

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

Hallo Chris

Es geht, super
besten Dank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige