Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1668to1672
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
Inhaltsverzeichnis

Checkbox name an Sub übergeben

Checkbox name an Sub übergeben
22.01.2019 23:39:39
Christof
Moin,
ich lasse auf einem Tabellenblatt Dynamisch Checkboxen einfügen. Wenn jetzt eine dieser Checkboxen Ihren wert ändert möchte ich eigentlich immer das selbe Sub ausführen dafür musste ich aber wissen welche Checkbox gerade geändert wurde.
So werden die Boxen erzeugt

For i = 1 To LastRow
Worksheets("Tabelle1").CheckBoxes.Add(Left:=Range("B" & i).Left, Top:=Range("B" & i).Top,    _
_
_
_
_
_
_
Width:=Range("B" & i).Width, Height:=Range("B" & i).Height).Select
With Selection
.Caption = ""
.value = True
.Name = "Box_B" & i
.OnAction = "DerTest"
End With
Next i

Ich hoffe mein Problem ist zu verstehen :D

Sub DerTest()
MsgBox ActiveControl.Name
End Sub

Funktioniert nicht :D

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

Betreff
Datum
Anwender
Anzeige
AW: Checkbox name an Sub übergeben
23.01.2019 06:04:50
Sepp
Hallo Christoph,
das geht so.

Sub DerTest()
MsgBox ActiveSheet.Shapes(Application.Caller).Name
End Sub

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Checkbox name an Sub übergeben
24.01.2019 20:00:41
Christof
Vielen Dank :D

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige