Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

dynamische CheckBox erzeugen und weiterverarbeiten

dynamische CheckBox erzeugen und weiterverarbeiten
12.12.2004 14:10:36
Heiko
Hallo erst mal,
ich habe eine Userform, bei der dynamisch Checkboxen erstellt wurden.
Nun möchte ich mit diesen Checkboxen weiter arbeiten.
Z.B wenn ich die Checkboxen aktiviere, sollen die Namen in Tabelle1 eingetragen
werden.
Hat Jemand eine Lösung ?
Die Exel-Datei liegt auf dem Server.
https://www.herber.de/bbs/user/14708.xls
Vielen Dank im voraus.
Merci
Heiko

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

Betreff
Datum
Anwender
Anzeige
AW: dynamische CheckBox erzeugen und weiterverarbeiten
Beni
Hallo Heiko,
Gruss Beni

Private Sub CommandButton1_Click()
Dim l, p, m, lz As Integer
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = "CheckBox" And ObCb = True Then
l = Len(ObCb.Name)
p = l - 8
m = Mid(ObCb.Name, 9, p)
With Sheets("Tabelle1")
lz = .Cells(65536, 1).End(xlUp).Row + 1
If .Cells(1, 1) = "" Then lz = 1
Sheets("Spieler").Cells(m + 1, 2).Copy .Cells(lz, 1)
End With
End If
Next ObCb
End Sub

AW: dynamische CheckBox erzeugen und weiterverarbeiten
13.12.2004 14:03:29
heiko
Hallo Beni,
es hat bestens funktioniert.
Vielen Dank
gruß
heiko
Anzeige

Links zu Excel-Dialogen

CheckBox CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige