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

Checkbox in Tabellenblatt aus Makro ansprechen

Forumthread: Checkbox in Tabellenblatt aus Makro ansprechen

Checkbox in Tabellenblatt aus Makro ansprechen
11.03.2004 14:14:14
volker
Hi,
wie kann ich eine Checkbox, die in einem Tabellenblatt steht von einem Makro aus ansprechen?
Dachte:
If Sheets("Tabelle1").checkbox1.Value = True then
Funktioniert aber nicht!
Fehlermeldung:
Objekt unterstützt Eigenschaft oder diese Methode nicht

Wie gehts?
Danke für Hilfe!
Volker
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Checkbox in Tabellenblatt aus Makro ansprechen
11.03.2004 14:57:08
Dieter Klemke
Hallo Volker,
wenn es sich um eine CheckBox der Symbolleiste "Formular" handelt, dann sprichst du sie folgendermaßen an: 

Sub CheckBoxAnsprechen_Formular()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
MsgBox ws.CheckBoxes("Check Box 1").Value
End Sub

Falls es sich um "Steuerelement-Toolbox" handelt, melde dich noch mal.
MfG
Dieter
Anzeige
AW: Checkbox in Tabellenblatt aus Makro ansprechen
11.03.2004 15:02:57
Volker
Hallo Dieter,
Danke für den Tipp, aber es ist bei mir natürlich eine Checkbox aus "Steuerelement-Toolbox" :-(
Volker
PS: Was ist eigentlich der Unterschied?
AW: Checkbox in Tabellenblatt aus Makro ansprechen
11.03.2004 15:44:58
Dieter Klemke
Hallo Volker,
dann hat sich die Sache ja erübrigt.
Zu deiner Frage: "Formular" stammt noch aus der Zeit von Excel 5. "Steuerelemente-ToolBox" wurde m.W. mit Excel 97 eingeführt und entspricht der moderneren Objekt-Technologie von Microsoft.
MfG
Dieter
Anzeige
AW: Checkbox in Tabellenblatt aus Makro ansprechen
11.03.2004 15:25:50
volker
Hallo Dieter, hallo Forum,
I'm so sorry, es war doch ein glatter Fehlalarm!
Ich hatte einen völlig blöden Schreibfehler in meinem Code.
Also Zusammenfassung:
Bei Steuerelemente-Toolbox:
If Sheets("Tabelle1").checkbox1.Value = True then
Bei Formular:
If Sheets("Tabelle1").CheckBoxes("Check Box 1").Value=True then
Viel Freude
Und das Wetter wird warm!
Volker
Anzeige
;

Forumthreads zu verwandten Themen

Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Eine Tabelle in Code einfügen
David

Hallo,
ich hab dieses Problem hier vor kurzem schon gepostet, aber leider keine Antwort bekommen die funktioniert hat. In dem untenstehenden Code soll eine weitere tabelle "all_data_alt" hinzugefügt werden.
Diese Tabelle soll genauso wie die jetzige Tabelle "all_data_neu" durch das Makr...
11.03.2011 13:47:21
Thread-ID: 1205313
3 Beiträge
Hintergrundbild in alle Tabellen einfügen
Hans

Hallo liebe Experten.
Ich stehe mal wieder vor einem Problem.
Und zwar habe ich eine Excel Datei mit mehreren Tabellenblättern.
Nun möchte ich in jedem Tabellenblatt ein Hintergrundbild haben.
Dies habe ich über Format/Blatt/Hintergrund auch hinbekommen.
Ich würde jedoch ger...
14.06.2011 10:53:57
Thread-ID: 1218349
6 Beiträge
in Tabelle ganz ab Zeile 1 10 neue Zeilen einfügen
Peter

Hallo
Wie kann ich in einer Tabelle ganz oben ab Zeile 1 zehn neue Zeilen einfügen?
Eine Zeile habe ich herausgefunden:
sheets("Uebersicht").Range("A1").EntireRow.Insert
Gruss, Peter
29.08.2011 12:41:15
Thread-ID: 1227893
3 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Anzeige
Zellbereiche als Werte in 2. Tabelle einfügen
Fritz_W

Hallo Forumsbesucher,
ich ersuche um Hilfe bei den VBA-Experten unter euch mit folgendem Anliegen:
In meiner Mappe befinden sich zwei (ausgeblendete) Tabellen mit identischer Struktur und Formeln:
Tabelle2 und Tabelle2a.
Ich möchte nun – quasi zur Sicherung Daten der Tabelle2 -...
19.02.2012 21:10:20
Thread-ID: 1251555
11 Beiträge
Anzeige
ergänzende Daten in zweite Tabelle einfügen
Fritz_W


Hallo Forumsbesucher,
mit dem nachfolgenden Code werden – zur Datensicherung – bestimmte Zellbereiche der Tabelle2 in der ( gleichstrukturierten ) Tabelle2b gesichert.
Sub Daten_sichern() Dim i As Long With Sheets("Tabelle2") For i = 2 To 268 Step 19 Sheets("Tabelle2b").Range("C"...
23.02.2012 11:20:18
Thread-ID: 1252034
25 Beiträge
Anzeige
Zellinhalt als Wert in andere Tabelle einfügen
Fritz_W

Hallo VBA-Experten,
bitte um eure Hilfe bei der Umsetzung folgenden Vorhabens:
Ich möchte per Makro aus der aktiven Tabelle den Zelllinhalt der Zellbereiche
B3:AD11
B15:AD23
B27:AD35
(unformatiert) als Wert in die gleichen Zellbereiche derjenigen Tabelle der gleichen Arb...
14.11.2012 20:16:47
Thread-ID: 1286712
5 Beiträge
Anzeige
String über verschiedene Tabellenblätter einfügen
Rainard

Hallo Experten,
Ich habe eine Excel-Datei mit 200 Tabellenblättern. Auf allen Blättern befinden sich Inhalte. Die Tabellen müssen jetzt von Blatt 2 bis 200 erweitert werden.
Das erste Arbeitsblatt soll also ausgenommen werden. In der Zeile acht soll jeweils in die erste leere Zelle ein...
18.01.2013 13:21:02
Thread-ID: 1294955
3 Beiträge
Werte in Tabelle einfügen mittels einer Schleife
Peter

Hallo Zusammen,
Bitte um Hilfe,
könnte mir jemand ein kurzes Makro aufzeigen wie ich in einer Schleife auf eine Tabelle zugreife und einen Wert manuell in Zelle(1,1) eingebe.
Die Schleife soll 3 mal wiederholt werden.
Danke für eure Hilfe
Peter
05.04.2013 16:28:19
Thread-ID: 1307487
6 Beiträge
Daten-Satz in anderes Tabellen-Blatt einfügen
Jürgen

Guten Morgen,
wer kann mir bei der Automatisierung per Makro von Daten-Sätze in ein anderes Tabelle-Blatt behilflich sein.
habe hier mal eine Datei vorbereitet zur besseren Veranschaulichung
Gruß aus Duisburg
Jürgen
26.08.2013 07:32:23
Thread-ID: 1328359
3 Beiträge
Text aus einer Internetseite in Tabelle einfügen
Jenny

Hallo alle zusammen,
bitte helft mir. Würde gerne das was auf einer Internetseite steht kopieren und in eine Tabelle einfügen, das Ganze mehrfach mit verschiedenen Seiten. Das Problem ist jetzt, ich benötige zwar die Hyperlinks, aber nicht die bis zu 5000 Bilder.
Dadurch habe ich eine s...
25.10.2013 09:12:04
Thread-ID: 1335826
3 Beiträge
Anzeige

Infobox / Tutorial

Checkbox in Tabellenblatt aus Makro ansprechen

Schritt-für-Schritt-Anleitung

Um eine Checkbox in einer Excel-Tabelle über ein Makro anzusprechen, musst du zunächst sicherstellen, dass du die richtige Art von Checkbox verwendest. Es gibt zwei Hauptarten: die Checkbox aus der "Formular"-Symbolleiste und die Checkbox aus der "Steuerelemente"-Toolbox.

  1. Checkbox aus der "Formular"-Symbolleiste:

    • Verwende den folgenden Code, um den Wert der Checkbox zu überprüfen: 
      Sub CheckBoxAnsprechen_Formular()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")
If ws.CheckBoxes("Check Box 1").Value = 1 Then
   MsgBox "Checkbox ist aktiviert"
End If
End Sub

  2. Checkbox aus der "Steuerelemente"-Toolbox:

    • Hier ist der Code, um den Wert einer Checkbox aus der Steuerelemente-Toolbox zu überprüfen: 
      Sub CheckBoxAnsprechen_Steuerelement()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")
If ws.OLEObjects("CheckBox1").Object.Value = True Then
   MsgBox "Checkbox ist aktiviert"
End If
End Sub

Häufige Fehler und Lösungen

  • Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht":

    • Dieser Fehler tritt häufig auf, wenn du versuchst, eine Checkbox anzusprechen, die nicht existiert oder falsch benannt wurde. Überprüfe den Namen der Checkbox in der Excel-Oberfläche.

  • Falscher Typ der Checkbox:

    • Stelle sicher, dass du den richtigen Code je nach Checkbox-Typ verwendest (Formular oder Steuerelemente-Toolbox).

Alternative Methoden

Eine alternative Methode zur Verwendung von Checkboxes in VBA besteht darin, die Excel-Checkboxen über die Eigenschaften des Arbeitsblattes zu steuern. Du kannst auch eine benutzerdefinierte Funktion erstellen, die den Status der Checkbox zurückgibt:

Function IstCheckboxAktiv(ws As Worksheet, checkboxName As String) As Boolean
    IstCheckboxAktiv = ws.CheckBoxes(checkboxName).Value = 1
End Function

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du Checkboxes in Tabellenblättern nutzen kannst:

  1. Dynamische Entscheidungsfindung:

    • Verwende Checkboxen, um Benutzerentscheidungen in einer Excel-Tabelle zu treffen, z.B. zur Auswahl von Produkten in einer Einkaufsliste.

  2. Statusverfolgung:

    • Implementiere Checkboxen in Projektmanagement-Tools, um den Fortschritt von Aufgaben zu verfolgen.

Tipps für Profis

  • Benennung der Checkboxen: Es ist hilfreich, Checkboxen klare und eindeutige Namen zu geben, um sie leichter im VBA-Code anzusprechen.

  • Verwendung von Schleifen: Wenn du mehrere Checkboxen hast, kannst du Schleifen verwenden, um deren Status effizient zu überprüfen.

  • Ereignisgesteuertes Programmieren: Nutze die Ereignisse von VBA, um automatisch auf Änderungen an Checkboxen zu reagieren, z.B. durch das Hinzufügen von Worksheet_Change-Ereignissen.

FAQ: Häufige Fragen

1. Wie füge ich eine Checkbox in Excel ein? Um eine Checkbox in Excel einzufügen, gehe zu "Entwicklertools" > "Einfügen" und wähle die Checkbox aus der "Steuerelemente"-Toolbox oder der "Formular"-Symbolleiste aus.

2. Was ist der Unterschied zwischen Formular-Checkboxen und Steuerelemente-Checkboxen? Formular-Checkboxen sind einfacher und stammen aus älteren Excel-Versionen, während Steuerelemente-Checkboxen modernere Funktionen und Eigenschaften bieten und besser in VBA integriert werden können.

Beliebteste Forumthreads (12 Monate)

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