Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
212to216
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
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform über Makro

Userform über Makro
04.02.2003 18:53:08
Wolfgang
Hallo Helfer

geht das überhaupt ?

ich möchte in Tabelle1 eine Userform aufrufen um den Druck
von Tabelle2 bis Tabelle(i) zu steuern

das Ganze soll mit Checkboxen im Userform gesteuert werden

Problem : wird eine Tabelle(i) hinzugefügt
(geschieht über eine andere Sub)
soll in userform eine neue Checkbox
hinzugefügt werden

geht das überhaupt ??

Gruß an alle Helfer







6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Userform über Makro
04.02.2003 19:14:10
andre

hallo wolfgang,
nimm statt checkboxen ein listenfeld und fülle es so:
Private Sub UserForm_Initialize()
For Each blaetter In ThisWorkbook.Worksheets()
UserForm1.ListBox1.AddItem blaetter.Name
Next
End Sub
Ändere die Einstellungen für ListStyle und MultiSelect.
gruss andre

Re: Danke ... aber
04.02.2003 19:19:32
Wolfgang

Danke

aber dann kann ich nur immer ein TabBlatt auswählen.
Ich möchte aber z.B. TabBlatt 1, 4,5,6, 10 durch anklicken
( Checkbox ) ??
zum drucken auswählen

Gruß Wolfgang


Re: Danke ... aber
04.02.2003 19:22:45
andre

hallo wolfgang,
deswegen multiselect einstellen auf 1 frmMultiSelectMulti
zur auswertung der listbox brauchst du dann auch noch eine schleife.
gruss andre

Anzeige
Re: Andre
04.02.2003 19:28:20
Wolfgang

Könnte super sein
leider übersteigt es mein Wissen :-((
1 frmMultiSelectMulti ????????
hast du ein kleines Beispiel

Danke im Voraus

Wolfgang

Re: Danke ... aber
04.02.2003 19:31:19
andre

hallo wolfgang,
hier noch der code für einen commandbutton, der die Liste in ein array liest.

Private Sub CommandButton1_Click()
Dim Sel_Liste()
For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) = True Then
LB_sel = LB_sel + 1
ReDim Preserve sel_liste(LB_sel)
Sel_Liste(LB_sel) = UserForm1.ListBox1.List(i)
End If
Next i
End Sub

gruss andre

Anzeige
Re: Andre
04.02.2003 19:33:07
andre

hallo wolfgang,
das steht in den eigenschaften. listbox anklicken, dann sollte links eine liste sein, wo du auch multiselect findest.
wenn keine eigenschaften zu sehen sind dann über das menü das eigenschaftsfenstr einblenden (oder F4)
gruss andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige