Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
564to568
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
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugriff auf Steuerelemente

Zugriff auf Steuerelemente
11.02.2005 17:02:36
Kai
Hallo,
ich habe folgende Frage:
Ich möchte per Programmcode (Makro in Modul1) den Status von Steuerelementen aus einer Tabelle auslesen.
Z.B. so
If Tabelle1.Optionsfeld4.Value=Checked then
mache dies
else
mache jenes.
end if.
Meine Fragen lautet nun wie das geht und wie die Steuerelemente heißen. Im Formular wird z.B. Opionsfeld 4 angezeigt.
Gruß
Kai

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf Steuerelemente
K.Rola
Hallo,
so z.B.:

Sub test()
If ActiveSheet.Shapes("Option Button 1").ControlFormat.Value = 1 Then
MsgBox "Optionbutton1 ist ausgewählt!"
Else
MsgBox "Optionbutton1 ist nicht ausgewählt!"
End If
End Sub

Gruß K.Rola
AW: Zugriff auf Steuerelemente
Kai
Vielen Dank
Kai
AW: Zugriff auf Steuerelemente
Kai
Hallo,
doch noch eine kleine Frage:
In dem Code steht
ActiveSheet.Shapes(.....
Da ich mich aber in einem Modul befinde kann ich nicht mit ActiveSheet arbeiten.
Ich müsste auf ein andere Tabelle zugreifen, also z.B. If Worksheets("Firmenstruktur").
wie geht das ?
Gruß
Anzeige
AW: Zugriff auf Steuerelemente
K.Rola
Hallo,
deine Begründung ist ja abenteuerlich, da ist das aktive Excelblatt gemeint,
aber bitte:

Sub test()
If Sheets("DeineTabelle").Shapes("Option Button 1").ControlFormat.Value = 1 Then
MsgBox "Optionbutton1 ist ausgewählt!"
Else
MsgBox "Optionbutton1 ist nicht ausgewählt!"
End If
End Sub

Gruß K.Rola

Links zu Excel-Dialogen

OptionButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige