Nach Zellinhaltänderung makro ausführen

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

Betrifft: Nach Zellinhaltänderung makro ausführen von: Stefan
Geschrieben am: 22.02.2005 15:54:54

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

Bild


Betrifft: AW: Nach Zellinhaltänderung makro ausführen von: Cardexperte
Geschrieben am: 22.02.2005 16:16:58

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


Bild


Betrifft: AW: Nach Zellinhaltänderung makro ausführen von: Luschi
Geschrieben am: 22.02.2005 17:55:43

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wenn Feld gleich null"