Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon frontliner vom 20.06.2019, 10:04 Options
Excel 2003: Kontrollkästchen Makro Problem
Hallo,
Eigentlich eine simple sache und doch will sie nicht funktionieren.
Ich habe in einem tabellendokument eine checkbox bzw. ein kontrollkästchen. Ist dieses aktiviert, muss die zahl 30 in eine zelle geschrieben werden, wird es deaktiviert, soll die 30 wieder verschwinden.
das ganze sieht so aus im moment:
Sub Kontrollkästchen50_beiklick()
'
' Kontrollkästchen50_BeiKlick Makro
' Makro am 20.06.2007 von .... aufgezeichnet
'
'
If Kontrollkästchen50 = True Then
Sheets("tabelle1").Range("K3").Value = "30"
Else
Sheets("tabelle1").Range("K3").Value = ""
End If
End Sub
was passiert? beim anklicken nichts, beim haken entfernen auch wieder nichts. setze ich aber eine 30 manuell in die zelle und klicke dann drauf, verschwindet 30.
wo ist der fehler?
besten dank für hilfe
Eigentlich eine simple sache und doch will sie nicht funktionieren.
Ich habe in einem tabellendokument eine checkbox bzw. ein kontrollkästchen. Ist dieses aktiviert, muss die zahl 30 in eine zelle geschrieben werden, wird es deaktiviert, soll die 30 wieder verschwinden.
das ganze sieht so aus im moment:
Sub Kontrollkästchen50_beiklick()
'
' Kontrollkästchen50_BeiKlick Makro
' Makro am 20.06.2007 von .... aufgezeichnet
'
'
If Kontrollkästchen50 = True Then
Sheets("tabelle1").Range("K3").Value = "30"
Else
Sheets("tabelle1").Range("K3").Value = ""
End If
End Sub
was passiert? beim anklicken nichts, beim haken entfernen auch wieder nichts. setze ich aber eine 30 manuell in die zelle und klicke dann drauf, verschwindet 30.
wo ist der fehler?
besten dank für hilfe
Antwort 1 von Beverly vom 20.06.2019, 10:19 Options
Hi,
du benutzt ein Kontrollkästchen aus der Formular-Symbolleiste? Diese besitzt als Steuerung eine Zellverknüpfung (z.B. A9). Dort wird WAHR oder FALSCH eingetragen. Wenn du das ausliest funktioniert der Code
Bis später,
Karin
du benutzt ein Kontrollkästchen aus der Formular-Symbolleiste? Diese besitzt als Steuerung eine Zellverknüpfung (z.B. A9). Dort wird WAHR oder FALSCH eingetragen. Wenn du das ausliest funktioniert der Code
If Worksheets("Tabelle1").Cells(9, 1) = True Then
Worksheets("Tabelle1").Range("K3").Value = "30"
Else
Worksheets("Tabelle1").Range("K3").Value = ""
End If
Bis später,
Karin
Antwort 2 von frontliner vom 20.06.2019, 10:40 Options
schon mal danke für die rasche antwort :)
ich habe das kontrollkästchen lediglich mit "alt+in die gewönschte zelle klicken" eingefügt.
ich habe den makro jetzt mal abgeändert:
Sub Kontrollkästchen50_beiklick()
'
' Kontrollkästchen50_BeiKlick Makro
' Makro am 20.06.2007 von .... aufgezeichnet
'
'
If Worksheets("Aime Osswald").Cells(9, 1) = True Then
Worksheets("Aime Osswald").Range("K3").Value = "30"
Else
Worksheets("Aime Osswald").Range("K3").Value = ""
End If
End Sub
jedoch verstehe ich den befehl ".Cells(9, 1)" nicht ganz. was muss ich da reinschreiben? die Zelle ist L3, mit diesem inhalt funktioniert es allerdings nicht.
ich habe das kontrollkästchen lediglich mit "alt+in die gewönschte zelle klicken" eingefügt.
ich habe den makro jetzt mal abgeändert:
Sub Kontrollkästchen50_beiklick()
'
' Kontrollkästchen50_BeiKlick Makro
' Makro am 20.06.2007 von .... aufgezeichnet
'
'
If Worksheets("Aime Osswald").Cells(9, 1) = True Then
Worksheets("Aime Osswald").Range("K3").Value = "30"
Else
Worksheets("Aime Osswald").Range("K3").Value = ""
End If
End Sub
jedoch verstehe ich den befehl ".Cells(9, 1)" nicht ganz. was muss ich da reinschreiben? die Zelle ist L3, mit diesem inhalt funktioniert es allerdings nicht.
Antwort 3 von Beverly vom 20.06.2019, 12:20 Options
Hi,
mit "ALT+in die Zelle klicken" kann ich (Excel2003) leider kein Kontrollkästchen erstellen.
Versuche folgendes - Rechtsklick auf das Kontrollkästchen -> Steuerelement formatieren -> Reiter: Steuerung -> Zellverknüpfung und dort trägst du die Zelle ein (im Beispiel A9), in die das Kontrollkästchen WAHR oder FALSCH eintragen soll. Das kann günstigerweise die Zelle sein, auf der das Kontrollkästchen liegt. Wenn du noch die Schriftfarbe für diese Zelle auf Weiß setzt, sieht niemand, dass ein Wert drinsteht. Auf diese Zeel beziehst du dich in deinem Code mit der Zeile
Bis später,
Karin
mit "ALT+in die Zelle klicken" kann ich (Excel2003) leider kein Kontrollkästchen erstellen.
Versuche folgendes - Rechtsklick auf das Kontrollkästchen -> Steuerelement formatieren -> Reiter: Steuerung -> Zellverknüpfung und dort trägst du die Zelle ein (im Beispiel A9), in die das Kontrollkästchen WAHR oder FALSCH eintragen soll. Das kann günstigerweise die Zelle sein, auf der das Kontrollkästchen liegt. Wenn du noch die Schriftfarbe für diese Zelle auf Weiß setzt, sieht niemand, dass ein Wert drinsteht. Auf diese Zeel beziehst du dich in deinem Code mit der Zeile
If Worksheets("Aime Osswald").Cells(9, 1) = True ThenBis später,
Karin
Ähnliche Themen
Aus Excel mit Outlook 2003 E-Mail versenden
fedjo 14.08.2007 - 171 Hits -
Verknüpfung von WENN Funktion und Kontrollkästchen
charlieunzeitig 11.09.2007 - 294 Hits - 1 Antwort
Kontrollkästchen
Rudi81 12.10.2007 - 134 Hits - 7 Antworten
Hallo und Frage: Makro für Kontrollkästchen, beim aktivieren Zellen und Inhalte aus Tabelle einfügt und beim deaktvieren herausnimmt?
Thomas64 31.03.2008 - 72 Hits - 5 Antworten
Kontrollkästchen in Word 2003
optimfish 06.04.2008 - 270 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
