Userform über Makro

Forumthread: 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

Re: Userform über Makro

04.02.2003 19:14:10

andre
Re: Danke ... aber

04.02.2003 19:19:32

Wolfgang
Re: Danke ... aber

04.02.2003 19:22:45

andre
Re: Andre

04.02.2003 19:28:20

Wolfgang
Re: Danke ... aber

04.02.2003 19:31:19

andre
Re: Andre

04.02.2003 19:33:07

andre

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

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

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)

Forumthread: Userform über Makro

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

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread