User Form abspeichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sorry das ich nochmal stören muss aber es klappt einfach nicht.
Habe dir mal den Code meiner UserForm miitgeschickt vielleicht erkennst du ja den Fehler?!?!
Option Explicit
Dim rChk As Range
Private Sub CommandButton1_Click() Unload Me End Sub


Private Sub ListBox1_Click()
End Sub


Private Sub ListBox2_Click()
End Sub


Private Sub MultiPage1_Change()
End Sub


Private Sub UserForm_Initialize()
Set rChk = Range("saveCheck")
ListBox2 = rChk(2)
With ListBox2
.AddItem "Einkaufsunterlagen zusammen stellen, auswerten und ergänzen"
.AddItem "Bezugsquellenkartei bzw.Artikelkartei"
.AddItem "Lieferantenkartei"
.AddItem "Arbeitsaufträge"
.AddItem "Bedarf in Zusammenarbeit mit technischen und/oder kaufmännsichen Stellen ermitteln."
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
.SpecialEffect = fmSpecialEffectSunken
End With
End Sub


Private Sub UserForm_Terminate()
Dim n As Integer
'Zustände schreiben, geht auch als Schleife
For n = 2 To 2
rChk(n) = Controls("ListBox" & n).Value
Next
End Sub

Hallo Andreas!
Das du eine Listbox meinst konnte ich nicht wissen!
Ich bin von CheckBoxen ausgegangen.
Ist aber kein Problem!
Option Explicit
Dim rChk As Range 'Variable für den Bereich in dem die Zustände
'der Checkboxen gespeichert werden!

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim n As Integer
Set rChk = Range("saveCheck")
With ListBox2
.AddItem "Einkaufsunterlagen zusammen stellen, auswerten und ergänzen"
.AddItem "Bezugsquellenkartei bzw.Artikelkartei"
.AddItem "Lieferantenkartei"
.AddItem "Arbeitsaufträge"
.AddItem "Bedarf in Zusammenarbeit mit technischen und/oder kaufmännsichen Stellen ermitteln."
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
.SpecialEffect = fmSpecialEffectSunken
For n = 0 To .ListCount - 1
.Selected(n) = rChk(n + 1)
Next
End With
End Sub

Private Sub UserForm_Terminate()
Dim n As Integer
'Zustände schreiben, geht auch als Schleife
For n = 0 To ListBox2.ListCount - 1
rChk(n + 1) = ListBox2.Selected(n)
Next
End Sub
Gruß Sepp

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

User Form abspeichern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread