Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Checkbox automatisch in UserForm

Checkbox automatisch in UserForm
07.02.2004 22:02:15
Mike
Hallo,
ich habe schon lange gesucht, aber nichts gefunden.
In einer Tabelle habe ich mehrere Werte untereinander stehen. Sie werden aus einer anderen Datei eingelesen. Die Anzahl und die Werte sind variabel. Das ist im Grunde das Problem. Ich möchte nun von diesen Werten jeweils eine Checkbox in einer UserForm darstellen lassen. Wenn möglich, soll sich die Größe der Userorm automatisch anpassen. Bei Auswahl der Checkboxen benötige ich die Ausgabe-Werte wieder für ein seperates Projekt. Das sollte ich dann aber hinbekommen.
Wie immer im Voraus Danke für Eure Antworten!
Gruß
Mike

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkbox automatisch in UserForm
07.02.2004 22:13:52
Ramses
Hallo Mike
nur mal so einen Ansatz wie dynamisch gefüllt werden kann.


Private Sub UserForm_Initialize()
'Variablen setzen
Dim plTop As Integer, plHeight As Integer, plWidth As Integer, plLeft As Integer
Dim ufHeigth As Integer, ufWidth As Integer
Dim hSpace As Integer, vSpace As Integer
Dim i As Integer, n As Integer
Dim MyCtrl As Control
Dim txtBox1 As Integer, txtBox2 As Integer
'Userform erstellen
vSpace = 5
hSpace = 5
plTop = 5
plWidth = 50
plHeight = 15
plLeft = 10
'userformgrösse abfragen
txtBox1 = InputBox("Wieviele Textboxen möchten Sie erstellen", "Initialisierung", 50)
If txtBox1 Mod 10 <> 0 Then
    MsgBox "auf die Schnelle nur mit geraden Zahlen"
    Exit Sub
End If
If txtBox > 100 Then
    MsgBox "Soviele sollten es nicht sein ;-)"
    Exit Sub
End If
txtBox2 = InputBox("Wieviele Textboxen sollen untereinander stehen", "Initialisierung", Int(txtBox1 / 5))
If txtBox > txtBox1 Then
    MsgBox "Das sind mehr als erstellt werden sollen ;-)"
    Exit Sub
End If
ufHeigth = ((txtBox2 * plHeight) + ((txtBox2 * vSpace) + (4 * vSpace))) + 40
ufWidth = (Int((txtBox1 / 10)) * plWidth) + (Int((txtBox1 / 10)) * 10) + (4 * hSpace)
Debug.Print "Höhe: " & ufHeigth
Me.Height = ufHeigth
Me.Width = ufWidth
For i = 1 To (txtBox1 / txtBox2)
    For n = 1 To txtBox2
        Set MyCtrl = Controls.Add("Forms.Textbox.1")
        MyCtrl.Left = plLeft
        MyCtrl.Top = plTop
        MyCtrl.Width = plWidth
        MyCtrl.Height = plHeight
        MyCtrl.Name = "Textbox" & i
        plTop = plTop + plHeight + 5
    Next n
    plTop = 5
    plLeft = plLeft + plWidth + hSpace
Next i
'Schaltfläche hinzufügen
Debug.Print "Top: " & ufHeigth - (2 * plHeight + 20)
Set MyCtrl = Controls.Add("Forms.textbox.1")
MyCtrl.Left = 2 * vSpace
MyCtrl.Top = ufHeigth - (2 * plHeight + 20)
MyCtrl.Width = (3 * plWidth) + (2 * plWidth)
MyCtrl.Height = plHeight
MyCtrl.Name = "txtLabel" & i
MyCtrl.Value = "That's real VBA Life ;-)"
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Das kannst du sicher anpassen.
Gruss Rainer
Anzeige

299 Forumthreads zu ähnlichen Themen

Checkboxes in Userform prüfen
Jonatan

Hallo,
ich würde gerne in einer Userform alle Checkboxes prüfen, welche angeklickt sind und welche nicht.
Anschließend soll die Checkbox in ein Array gespeichert werden.
Irgendwie klappt das mit der Abfrage aber nicht.
Könnt ihr mir weiterhelfen?
For i = 1 To 8 ' Es sind 8 c...
19.09.2008 09:11:35
Thread-ID: 1010902
3 Beiträge
Anzeige
Checkbox Value auslesen
Fatza

Hallo an alle,
ich habe ein kleines Problem. In meinem Excel-Formular habe ich 4 Checkboxen. Wenn nur eine von diesen aktiviert ist, soll die Druckfunktion frei geschaltet werden, wenn nicht soll eine Messagebox kommen, mit dem Hinweis das eine Checkbox ausgewählt werden muss.
Wer kann...
09.10.2008 09:52:07
Thread-ID: 1015248
8 Beiträge
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Anzeige
Checkbox-Werte in Userforms dauerhaft speichern
Petra

Hallo,
ich möchte die Werte von Checkboxen einer Userform dauerhaft speichern und habe gelesen, dass ich dazu die Werte in einer Tabelle speichern und wieder auslesen muss. Leider habe ich keine Ahnung wie das geht. Kann mir bitte jemand einen Hinweis geben? Die Datei mit den Userforms habe...
22.10.2008 10:05:00
Thread-ID: 1018246
3 Beiträge
Checkboxen in Userform
Sebastian

Hallo zusammen,
Dank Tino (https://www.herber.de/bbs/user/56484.xls
) konnte ich einen Teil meines Problems schon lösen. Aber leider noch nicht ganz. Kurz zu meinem eigentlichen Problem. Ich möchte in einer (flexiblen) Userform Textboxen aus einer Tabelle füllen. Diesen Teil konnte ich...
04.11.2008 15:22:00
Thread-ID: 1021663
4 Beiträge
Problem mit Checkboxen per Vba zu erzeugen
Reinhard

Hallo Wissende,
im Zuge meines Versuches jmdm. in einem anderen Forum dabei zu helfen in einer Spalte ca. 90 Checkboxen per Vba zu erstellen stiess ich auf sehr unerwartete Schwierigkeiten.
Ich bekam es hin, daß die ca. 90 Checkboxen erstellt werden, aber sie sind schon mit einem Häkche...
13.11.2008 23:45:36
Thread-ID: 1024386
7 Beiträge
Mit checkboxen Einträge in Liste färben
adrian

Hallo,
habe fogendes kleines/ bzw. großes Problem und keine Idee wie ich es am geschicktesten Lösen könnte.
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen) Supplier habe ich 3 Checkbo...
18.11.2008 16:54:24
Thread-ID: 1025705
2 Beiträge
Checkbox-Werte in Userform dauerhaft speichern.
Petra

Hallo zusammen,
Ich habe eine Userform mit vielen Checkboxen und schreibe deren Werte in eine Tabelle mit
"Worksheets("Checkbox-Werte").Range("B57") = checkbox.Value". Das funktioniert auch.
Wie kann ich diese Werte beim nächsten Öffnen der Userform wieder einlesen und den Checkbox...
26.11.2008 10:09:00
Thread-ID: 1027947
12 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
7
2
7
2
3
6
1
11
2
2
3
3
2
2
4
1
3
7
2
5
6
2
2