Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamische CheckBoxen mit Code erzeugen

Forumthread: Dynamische CheckBoxen mit Code erzeugen

Dynamische CheckBoxen mit Code erzeugen
14.11.2015 17:38:39
Greenhorn
Hallo,
ich habe folgendes Problem:
In einer dynamischen Liste, ueber SQL befuellt, soll in einer bestimmten Spalte für jede Zeile eine Checkbox erstellt werden die den Code enthaelt E-Mail erzeugen.
Ich hoffe das ist klar genug ausgedrueckt.
Danke fuer euere Hilfe
Greenhorn

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Dynamische CheckBoxen mit Code erzeugen
14.11.2015 18:13:15
Tino
Hallo,
könnte in etwa so funktionieren.
Sub CheckBox_Add()
Dim rng As Range, oShape As Object
With Tabelle1
    Set rng = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
    If rng.Rows(1).Row < 2 Then Exit Sub
    
    For Each rng In rng.Cells
        With .Cells(rng.Row, 5)
            Set oShape = .Parent.CheckBoxes.Add(.Left, .Top, .Width, .Height)
        End With
        oShape.Caption = "Mail-Senden"
        oShape.OnAction = "E_Mail_erzeugen"
    Next rng
End With
End Sub

Sub E_Mail_erzeugen()
Dim rng As Range, MyOutApp As Object, MyMessage As Object
Set rng = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow

Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
    .To = rng.Cells(1, 1)
    .Subject = rng.Cells(1, 2)
    .body = rng.Cells(1, 3)
    .Display
End With

End Sub
Gruß Tino

Anzeige
AW: Dynamische CheckBoxen mit Code erzeugen
14.11.2015 19:00:24
Greenhorn
Hallo Tino,
Danke. Probiere Ihn Morgen aus. Muss jetzt fort. Rueckmeldung zu 100%
Danke!

AW: Dynamische CheckBoxen mit Code erzeugen
15.11.2015 12:15:04
Greenhorn
Hallo Tino,
der CODE funktioniert einwandfrei, Danke nochmal dafür. Das gleiche geht doch auch fuer DropDownlisten :-)
Gruss Greenhoen

AW: Dynamische CheckBoxen mit Code erzeugen
15.11.2015 15:01:24
Tino
Hallo,
geht auch.
Wo die Daten für den Eingabebereich herkommen weiß ich nicht.
(hier im Beispiel H2:H3) dieser muss ein Vertikaler Bereich sein.
Sub DropDowns_Add()
Dim rng As Range, oShape As Object
With Tabelle1
Set rng = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
If rng.Rows(1).Row
Gruß Tino

Anzeige
Weshalb so viele...
14.11.2015 18:34:51
Beverly
Hi,
CheckBoxen? Ich würde stattdessen das Doppelklick-Ereignis des Tabellenblattes für diese Spalte verwenden - dabei z.B. ein "x" in die Zelle schreiben und das Makro ausführen. Anstelle eines "x" kann man auch die Schriftart Wingdings verwenden und ein "ü" in die Zelle schreiben, welches dann einem Haken entspricht.

Anzeige
AW: Weshalb so viele...
14.11.2015 18:51:01
Greenhorn
Hallo Beverly,
danke fuer den Hinweis. Aus Anwendersicht wollte ich eine Checkbox haben. Draufklicken und alles ist Gut. Muss einfach Denken und kompliziert handeln :-(
Danke
;

Forumthreads zu verwandten Themen

Checkboxen
Gordon

Moin,
ich habe auf einem Blatt 39 Checkboxen (CheckBox1 bis Checkbox40).
Der Code für Checkbox2 schaut so aus:
Private Sub CheckBox1_Click() With Worksheets("Neu") If CheckBox2.Value = True Then .Columns("I:K").ColumnWidth = 10.14 .Columns("L").ColumnWidth = 1.71 ElseIf CheckBox2....
17.09.2008 12:56:00
Thread-ID: 1010340
12 Beiträge
Variable Checkboxen
Gordon

Moin,
ich habe neulichst glaube ich schon mal eine ähnliche Frage gestellt, aber ich bin mir nun nicht sicher, ob es das selbe ist. Daher bitte ich um Verzweihung falls ich die selbe Frage stellen sollte. ;-)
Also ich habe 10 Checkboxen (1 bis 10). Kann man diese Boxen eigentlich Var...
22.09.2008 11:11:00
Thread-ID: 1011408
5 Beiträge
Anzeige
Werte von Checkboxen in Userform speichern
Checkboxen

Hallo liebe Forumleser,
ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
Worksheets("BDaten").Range("D65:D67").Clear
If chkAKurzI1 = True Then
Worksheets("BDaten").Cell...
17.10.2008 16:39:00
Thread-ID: 1017214
8 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
Anzeige
Frage zu checkboxen auf userform
chris

Hallo und guten morgen,
habe eine frage hoffe ihr könnt mir helfen.
ich habe eine Userform auf dieser habe ich mehere checkboxen von Name
chb_1
bis chb_40
Wie kann ich im VBA code abfragen ob eine bestimmte checkbox value true ist ?
im string fehler steht drinnen:
W...
13.11.2008 09:04:45
Thread-ID: 1024049
3 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
Checkboxen!!
adrian

Hallo,
falls sich hier jemand gut mit "checkboxen" gut auskennt und mir helfen könnte folgendes Problem zu lösen wäre das echt super!
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen)...
24.11.2008 10:50:00
Thread-ID: 1027215
3 Beiträge
Checkboxen
Tim

Hi
Wie kann ich zwei Checkboxen verbinden. Die eine Checkbox ist auf Tabelle1 und die andere auf Tabelle2.
Wenn Checkbox1 auf Tab1 angeklickt ist, sollte auch Checkbox2 auf Tab2 angeklickt sein oder umgekehrt.
Danke für Eure Hilfe
Gruß
Tim
15.01.2009 08:24:00
Thread-ID: 1039889
3 Beiträge
Anzeige
Checkbox im Zusammenspiel mit anderen Checkboxen
Stefen

Hi Leute
Ich bin am Ende meines bescheidenen Wissen. Daher wende ich mich lieber an Euch bevor der PC brennt.
Wollte nur, dass wenn eines der Checkboxen 38 bis 41 true ist sollte CheckboxNr. 37 nicht true sein.
also angeklickt.
Was mache ich da bloß wieder falsch?
If CheckBo...
25.01.2009 21:07:40
Thread-ID: 1043685
3 Beiträge
Änderung von Checkboxen n. Druckansicht verhindern
Checkboxen

Hallo zusammen,
ich habe auf meinen Arbeitsblatt ein Rechteck eingefügt. Auf diesem Rechteck habe ich eine Textbox und drei Checkboxen platziert. Jedes dieser Objekte habe ich per Objekteigenschaften wie folgt formatiert:
Von Zellposition und -größe unabhängig
Den Haken bei Objekt d...
29.01.2009 08:31:00
Thread-ID: 1044782
3 Beiträge
Anzeige
Checkboxen bleiben nicht mit Hacken konstant
Leon

Hi Zusammen
Habe eine so tolle Datei erstellt mit einigen UF's und auch Checkboxen etc. und erst jetzt merke ich, daß
wenn ich von einer UF zur anderen gehe und zurück meine angeklickten Checkboxen nicht mehr angeklickt sind.
Kann man dieses Problem beheben?
Gruß
Leon
01.02.2009 00:12:54
Thread-ID: 1045803
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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