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

checkbox und userform

checkbox und userform
24.05.2005 14:25:01
Martin
hallo leute,
hab nen problem und zwar hab ich auf einer Userform ca 15 checkboxen.
ich möchte nun das wenn die userform geschlossen wird für jede bestätigte checkbox das worksheet("blanko GUV") kopiert wird und dann den nahmen der checkbox erhält! des weiteren soll der Name der checkbox auf dem worksheet("beschriftung") hintereinander eingetragen werden!
ist das problem zu lösen! biß mir die zähne dran aus!
danke

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

Betreff
Datum
Anwender
Anzeige
AW: checkbox und userform
24.05.2005 22:30:11
Klaus
Hallo Martin,
das könnte in etwa so aussehen (in deine UserForm kopieren):

Private Sub CommandButton1_Click()
Dim Spalte As Integer, Zeile As Integer
Dim cbox As Control
Spalte = 1: Zeile = 1 'Anfangszelle in Blatt "beschriftung"
For Each cbox In Controls
If TypeName(cbox) = "CheckBox" And cbox = True Then
Sheets("blanko GUV").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = cbox.Name
Sheets("beschriftung").Cells(Zeile, Spalte) = cbox.Name
Spalte = Spalte + 1
End If
Next
Unload Me
End Sub

Ich bin davon ausgegangen, dass das Blatt "blanko GUV" und "beschriftung" in der selben Arbeitsmappe vorhanden sind, in der die UserForm ausgeführt wird !
Die Anzahl der CheckBoxen spielt bei diesem Code keine Rolle.
Gruß Klaus
Anzeige
AW: checkbox und userform
26.05.2005 09:47:01
Martin
funktioniert super!
dank dir!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige