Zugriff auf Steuerelemente

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zugriff auf Steuerelemente
von: Kai
Geschrieben am: 11.02.2005 17:02:36
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

Bild

Betrifft: AW: Zugriff auf Steuerelemente
von: K.Rola
Geschrieben am: 11.02.2005 17:06:17
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
Bild

Betrifft: AW: Zugriff auf Steuerelemente
von: Kai
Geschrieben am: 11.02.2005 17:11:46
Vielen Dank
Kai
Bild

Betrifft: AW: Zugriff auf Steuerelemente
von: Kai
Geschrieben am: 11.02.2005 17:33:01
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ß
Bild

Betrifft: AW: Zugriff auf Steuerelemente
von: K.Rola
Geschrieben am: 11.02.2005 17:36:27
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
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zugriff auf Steuerelemente"