Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nach Zellinhaltänderung makro ausführen

Nach Zellinhaltänderung makro ausführen
22.02.2005 15:54:54
Stefan
Hallo Leute
Ich beschäftige mich schon eine ganze Zeit mit VBA, doch steh ich mal wieder wie ein Ochse vorm Berg. Hab bei der Recherche leider nichts passendes gefunden.
Folgendes Problem:
Immer wenn ich den Wert in der Zelle A1 ändere, soll das Häkchen in meinem Kontrollkästchen "AC-Spannung_1" auf false gesetzt werden, so daß ich es manuell wieder setzen muss.
Immer wenn ich den Wert in der Zelle A2 ändere, soll das Häkchen in meinem Kontrollkästchen "AC-Spannung_2" auf false gesetzt werden, so daß ich es manuell wieder setzen muss.
Vielleicht könnt Ihr mir einen Tip geben.
LG Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Zellinhaltänderung makro ausführen
22.02.2005 16:16:58
Cardexperte
Hello stefan,
solte doch mit diesem Ereignis im Tabellenblatt gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a2")) Is Nothing Then
If Target.Address = "$A$1" Then
CheckBox1 = False
Else
CheckBox2 = False
End If
Else
Exit Sub
End If
End Sub

Gruss WS
AW: Nach Zellinhaltänderung makro ausführen
Luschi
Hallo Stefan,
wenn Du die Kontrollkästchen aus der Steuerelement-Toolbox meinst, dann geht das so:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
ActiveSheet.OLEObjects("CheckBox1").Object.Value = 0
Case "$A$2"
ActiveSheet.OLEObjects("CheckBox2").Object.Value = 0
End Select
End Sub
oder (um ein paar Bytes Vba-Code zu sparen)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim b as Byte
Select Case Target.Address
Case "$A$1": b = 1
Case "$A$2": b = 2
Case "$A$2": b = 3
End Select
ActiveSheet.OLEObjects("CheckBox" & b).Object.Value = 0
End Sub

Gruß von Luschi
aus klein-Paris
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige