Formularsteuerelemt Kontrollkästchen über VBA setzen?

Ich habe eine Liste und jede einzelne Komponente hat ein Kontrollkästchen.

Jetzt bin ich an einem Leitfaden dran, über den ich je nach dem welche Zahl in ein Input Dialog eingegeben wird verschiedene Kontrollkästchen aktivieren will. Jetzt heißt mein normales Kontrollkästchen aber "Kontrollkästchen 1".

Wie kann ich ein solches Kontrollkästchen über ein Makro ansprechen um es auf "TRUE" zu setzen? Geht das überhaupt?

3 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

azmd108

23.03.2016, 11:49

Ist das eine ActiveX-Checkbox in einer Arbeitsmappe / Checkbox in einem Formular? dann

Activesheet.CheckBox1.Value = True
UserForm1.CheckBox1.Value = True

Ist es eine Formularsteuerelement in einer Arbeitsmappe?

Dann hast du irgendwo eine verknüpfte Zelle, die, wenn die Checkbox angehakt
ist, auf TRUE (WAHR) steht. Du kannst dann also in die Zelle WAHR
schreiben, dann ist der Haken bei der Checkbox gesetzt.

oder umgekehrt und du sprichst direkt die Checkbox an:


ActiveSheet.Shapes("Checkbox1").DrawingObject.Value = 1

Ninombre

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

23.03.2016, 11:48

Das geht über Makros, in etwa so

ActiveSheet.Shapes("Kontrollkästchen 1").DrawingObject.Value = 1

Tombob

Beitragsersteller

23.03.2016, 11:57

Hat auf anhieb funktioniert, danke!

jungyukim

23.03.2016, 11:50

Es empfiehlt sich keine Umlaute und Leerzeichen für die ID zu vergeben.

Ansonsten geht es so. Beispiel :

Formular-ID = Liste

Kontrollkästchen-ID = Checkbox

Liste.Checkbox.Value = True

Ähnliche Beiträge

Wie kann ich Kontrollkästchen elegant miteinander verknüpfen, um nach mehreren Kriterien zu filtern?

Hallo zusammen,

in einer ExcelDatei befinden sich Formularsteuerlemente bzw. 3 Kontrollkästchen mit denen ich verschiedene Kriterien nach Hunde, Katzen und Vögel filtern sowie verknüpfen möchte.

Mit ActiveX-Steuerelemente Kontrollstästchen und CommandButton konnte ich folgendes Beispiel aufbauen:

Private Sub ausführen_Click()

    If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = False Then
        Hund
    ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = False Then
        Katze
    ElseIf CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = True Then
        Vogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = False Then
        HundKatze
    ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = True Then
        KatzeVogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = True Then
        HundVogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True Then
        Alle
    Else
        MsgBox ("Es wurde nichts ausgewählt")
    End If

End Sub

Sub Hund()
' Hund Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Hund"
End Sub
Sub Katze()
' Katze Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Katze"
End Sub
Sub Vogel()
' Vogel Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Vogel"
End Sub
Sub Alle()
' Alle Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2
End Sub
Sub HundKatze()
' HundKatze Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Hund", _
        Operator:=xlOr, Criteria2:="=Katze"
End Sub
Sub KatzeVogel()
' KatzeVogel Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Katze", _
        Operator:=xlOr, Criteria2:="=Vogel"
End Sub
Sub HundVogel()
' HundVogel Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Hund", _
        Operator:=xlOr, Criteria2:="=Vogel"
End Sub

Das funktioniert soweit ganz gut.

Allerdings benötige ich Formularsteuerelemente Kontrollkästchen. Die Ergebnisse sollen sich schon während ein Kontrollkästchen betätigt wird aktualisieren. Aktuell läuft das über ActiveX-Steuerelemente Kontrollkästchen und CommandButton.

Gegenüberstellung der Varianten:

Nachgebaute Excel:

Bis auf die G4 funktioniert alles sehr gut. Vielleicht seht ihr den Fehler. Auf eine einfache Formel wie im Funktionstest reagiert die Zelle.

Vielen Dank für eure Hilfe. Liebe Grüße

...zum Beitrag

Wie kann ich Zeilen einblenden, beim auswählen des Kontrollkästchens und beim abwählen wieder ausblenden (Excel)?

Hallo zusammen,

ich soll ein Formular erstellen, bei welchem nach Aktivierung des Kontrollkästchens (Formularsteuerelement) weitere Zeilen eingeblendet werden, wie bspw. Tabellen Text oder weitere Kontrollkästchen.
Die Nutzer des Formulars sollen beim auswählen (Haken setzen) des jeweiligen Kontrollkästchens immer nur die relevanten Felder angezeigt bekommen.

Ich habe mir jede Menge Tutorials angeschaut zum Thema Formulare erstellen und VBA jedoch noch nichts wirklich gefunden. Vor allem aber auch nichts zu dem Thema: Kontrollkästchen Auswählen und dadurch Zeilen einblenden bzw. beim abwählen wieder ausblenden.
Ich würde mich sehr freuen wenn mir jemand die Vorgehensweise erklären könnte oder vielleicht sogar einen Code für so etwas hätte.

Bin langsam echt am verzweifeln :(

Vielen dank im Voraus !

...zum Beitrag

Rückgängig in nach Excel nach VBA-Makro

Hallo,

eine Frage an die Excel / VBA Spezialisten.:

Wenn ich in Excel einen Befehl per Makro ausführe, dann wird dabei die "Undo" Liste gelöscht; d.h. ich kann mit STRG+Z bzw. dem Pfeil das Makro nicht rückgängig machen.

Kennt Ihr eine Möglichkeit?

Danke Grüße PtC

...zum Beitrag

Excel 2010 VBA - Gefilterte Zelleninhalte löschen / leeren

Hallo Community,

hab da mal wieder ein Problemchen... Ich habe eine Liste, über die ich jeden Morgen ein Makro laufen lassen muss. Nun ist es so, dass ich im Moment händisch nach drei Kunden filtere und bei diesen Kunden einen Termin löschen muss, da dass ERP-System hier einen Termin generiert, der falsch ist. Nun möchte ich bei diesen Kunden / in den gefilterten Zellen den Zelleninhalt (KW) ebenfalls über das Makro löschen. Meine ersten Versuche haben halbwegs hingehauen, allerdings wurden nicht nur die gefilterten Inhalte, sondern alle Inhalte in der Range gelöscht. Der nächste Versuch hat dazu geführt, dass die Zellinhalte noch da waren, aber die Überschriften gelöscht wurden ... Nun habe ich alles wieder auf Anfang gesetzt :-(

Brauche Hilfe ... Danke im Voraus.

...zum Beitrag

Excel Makro VBA Zellen vergleichen und bei Übereinstimmung Zeile löschen

Hallo miteinander, kenne mich leider gar nicht in VBA aus und brauche dringend Hilfe für ein Projekt. Ich beschreibe mal kurz mein Problem: Im Worksheet "Objekt löschen" in zeile C6 soll eine Objekt ID eingegeben werden. Diese muss dann mit den Objekt IDs im Worksheet "Objektdaten" in der Spalte B verglichen werden. Wenn sie dort existiert, dann soll die gesamte Zeile, in der sich die eingegebene ID befindet, gelöscht werden. Das ganze soll funktionieren, indem man auf eine Schaltfläche auf dem 1. Tabellenblatt klickt. Ich hoffe, das war jetzt einigermaßen verständlich erklärt. Freue mich sehr über eure Hilfe Danke :) Rosi

...zum Beitrag

VBA - Mit Makro den Editor öffnen?

Hallo zusammen.

Gibt es eine Möglichkeit, mit einem Makro den VBA-Editor zu öffnen und gleich in ein bestimmtes Modul zu springen? Hintergrund ist folgender: Über einen Button wird ein Makro gestartet, das eine andere Datei öffnen und eine bestimmte Tabelle aus der anderen Datei in die eigene Mappe holen soll. Jetzt möchte ich eine Abbruchbedingung für ne Error-Meldung implementieren, die den Anwender direkt an die Stelle im Editor navigiert, wo der Dateiname ggfs angepasst werden muss.

Ich hab bis jetzt nur das gefunden:

Application.VBE.MainWindow.Visible = True

Vielen Dank für Eure Hilfe, Jan

...zum Beitrag

Excel-Makro hält plötzlich an

Hallo,
seit kurzem hakt es beim Ablauf eines Makros, obwohl ich dieses Makro schon lange ohne Probleme benutze.
Nach Anstoß des VBA-Makros erscheint immer mal wieder das Panel mit folgender Meldung:

"Ausführung des Codes wurde unterbrochen"
Fortsetzen Beenden Debuggen Hilfe

Klicke ich auf "Fortsetzen" läuft das Makro weiter, kann dann aber (an einer anderen Stelle) wieder hängenbleiben oder auch komplett durchlaufen.
Klicke ich auf "Debuggen" sehe ich die Stelle(n), an denen das Makro hängenblieb, das sind dann Anweisungen wie diese:

Application.Display Alerts = True
Sheets.Add before: = Sheets("Tabelle99")
Sheets("Tabelle88").Select

also ganz normale VBA-Anweisungen.
Und, es hakt immer an andren Stellen, so dass ich davon ausgehe, dass es nicht an der Code-Zeile selbst liegt.

Klicke ich auf "Hilfe" erscheint nach langer Suche nichts, gebe ich dann in dem angebotenen Suchfenster die Fehlermeldung als Suchstring ein, findet die Hilfe nichts dazu.

Was kann da sein?

LG PG

Der VBA-Code besteht aus 1 Hauptprogramm (Steuerprogramm) und ca. 10 Subroutinen, die Schlüsselworte in einem Excel-sheet suchen und dann Werte vom Spender-Sheet ins Schreibblatt übertragen.

Windows 7
Excel 2007

...zum Beitrag

Zelleninhalt mit Makro/ Vba verschieben

Moin,

ich hab folgendes Problem, und zwar möchte ich eine Makrofunktion erstellen mit der man den Zellinhalt einer markierten Zelle in eine andere frei wählbare Zelle kopieren kann. Bis jetzt sieht meine Funktion so aus:

Sub Makro()

Dim Quellbereich As Range Set Quellbereich = ActiveCell

Quellbereich.Copy Range("C1").Select Selection.PasteSpecial Paste:=x1Values, Operation:=x1None, SkipBlanks:= False, Transpose:=False Application.Cutcopymode = False Quellbereich.Select Quellbereich = "" Range("C1").Select

End Sub

Jetzt ist meine Frage, wie ich "Range("C1") auch über die Auswahl mit der Maus steuern kann. Ich stell mir das mit Pause/Wait und Input neue Zellenauswahl oder so vor. Evnt. auch das man das Makro wie bisher über Strg+y startet und anschließend die Quell und die Zielzelle nach einander markiert.

...zum Beitrag

Excel Makro - Variable Zelleneingabe im Blatt suchen?

Hallo, ich suche seit gut 8 Monaten (ja.. eine lange Zeit bis dato ohne Lösung) einen Weg um folgendes Umzusetzen:

Makro-Ausführung:

In eine Zelle soll ein Buchstabe eingegeben werden, diese Zelle soll vom Makro kopiert werden, den Textinhalt in die Suche eingefügt werden, das Blatt nach dem Text durchsuchen und die Zelle bei einer Liste finden, mit den Pfeiltasten einmal auf die Zelle rechts davon springen, diesen Text kopieren und in eine andere Zelle einfügen.

Makro-Aufnahme:

Zum aufnehmen des Makros gebe ich vor der Aufnahme in die gewisse Zelle (siehe Bild unten) einen Buchstaben (B) ein. Dann starte ich das Makro.

Die Zelle mit dem Buchstaben "B" wird kopiert, die normale Excel-Suche wird geöffnet, der Textinhalt wird bei der Suche eingefügt, Suche gestartet. Buchstabe "B" wird im aktuellen Blatt (Liste) gefunden. Ich springe mit der Pfeiltaste rechts in die benachbarte Zelle ("Baum") kopiere die Zelle und füge sie wo anders als "Ausgabe" ein. Ich beende die Aufnahme.

Problem:

Wenn ich dann in die gewisse Zelle den Buchstaben "A" eingebe, und aus "Ausführen" klicke, wird das vorherige aufgezeichnete Makro gestartet. Dann soll in der Suche der Buchstabe A eingefügt werden und nach "A" gesucht werden.

Aufgrund eines eigenartigen Fehlers wird aber der WIRKLICHE BUCHSTABE VON DER MARKO-AUFZEICHNUNG ("B") EINGEFÜGT - UND NICHT A.

(Ich habe beim Aufzeichnung natürlich über die Einfüg-Funktion den Zellinhalt ("B") eingefügt und nicht manuell eingetippt.)

Ich muss es schaffen, dass die Suche immer einen anderen Buchstaben einfügt, welcher von der Zelle kopiert wurde.

Wenn möglich, nur Methoden zur Aufzeichnung angeben, keine VBA Befehle - da ich davon nichts verstehe :P Ausser es ist wirklich anders nicht umsetzbar.

Bitte um dringende Hilfe, mit läuft die Zeit davon :p Ich hab das sicher schon 25 Mal neu gemacht, immer etwas anders und andere Methoden gesucht, ich werden nicht fündig.

Hier ein Bild darunter, für besseres Verständis. Ich freue mich über jede Hilfe!

Danke Danke Danke!

Bild in groß öffnen

...zum Beitrag

Excel VBA - Nach kopieren anderen Zelleninhalt "zurückwerfen"?

Hallo,

ich habe eine Formularseite gebastelt, bei der eingegebene Daten in eine Liste eingefügt werden. Nun möchte ich, dass das Makro, welches die Daten in das andere Blatt in eine neue Zeile kopiert hat, auf der Formularseite die Zeilennummer in ein Feld einträgt.

Die Eingabeseite heißt "Eingaben" und das Blatt mit der Liste heißt "Liste"

Beispiel:

Ich gebe Daten ein, klicke den Button an auf dem das Makro liegt, und die Daten werden nach "Liste" in Zeile 10 kopiert (während Zeilen 5-9 schon Daten enthalten aus vorherigen Übertragungen).

In dem selben Makro soll nun am Ende die Nummer, die in A10 steht (In Zeile A stehen von mir eigens vergebene Nummern), auf der Eingabeseite in das Feld B10 kopiert werden.

Anders formuliert:

Spalte A (Lliste) enthält Reklamationsnummern, fortlaufend. Beginnend mit RK20220001.

Wenn ich jetzt in der "Eingaben"-Seite meine Daten erfasse und das Makro nutze, werden die eingegebenen Daten in die "Liste" kopiert. Es wird automatisch immer die letzte Zeile gefüllt, ab Spalte B.

Nun möchte ich, dass die Reklamationsnr., die neben den zuletzt eingefügten Daten steht, in das "Eingaben"-Blatt in das Feld B10 kopiert wird.

Denn die Eingabefelder sind bereits so formatiert, dass man ein Etikett drucken kann, das dann an die Ware kann. Damit man nicht immer manuell die Nummer raus suchen muss, soll sie halt automatisch dort rein.

...zum Beitrag

Excel VBA Button per doppelklick?

Moinsen,

Ich würde gerne einen versteckten Button erstelln, der folgendes Kann:

Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = False Then

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Else

ActiveSheet.Unprotect

End If

Jedoch würde ich ihn gerne nur per Doppelklick aktivieren lassen, da man sonst evt ausversehen drauf kommt.

...zum Beitrag

VBA Zeile löschen, Fehler in der Schleife?

Ich habe die Variable a formuliert und diese auf True gesetzt, nun soll wenn in einer Textbox keine nummerischen Zeichen eingetragen werden, die letzte Zeile gelöscht werden. In meinem Makro habe ich noch weitere Bedingungen formuliert, die dasselbe bereits tun, allerdings jetzt bei der Variable bekomme ich nur Fehler raus.

...zum Beitrag

Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

...zum Beitrag

Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

ActiveSheet.Unprotect

' einblenden:

ActiveWindow.DisplayHeadings = True

Else

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

' ausblenden:

ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen