Zellüberwachung mit Makro
Ralf
ich habe folgendes, funktionierendes Makro in einer Arbeitsmappe:
Sub Wert_8_ausblenden()
If Sheets("Daten").Range("F14") = "Nein" Then
Sheets("Hilfstabelle").Select
Columns("K:K").Select
Range("K2").Activate
Selection.EntireColumn.Hidden = True
Else
Sheets("Hilfstabelle").Columns("K:K").EntireColumn.Hidden = False
End If
If Sheets("Daten").Range("F14").Value = "Nein" Then
Sheets("Daten").Range("D14") = "0"
End If
If Sheets("Daten").Range("F14").Value = "Nein" Then
Sheets("Daten").Range("C14") = "0"
End If
If Sheets("Daten").Range("F14") = "Nein" Then
Sheets("Diagramm").Select
Columns("K:K").Select
Range("K2").Activate
Selection.EntireColumn.Hidden = True
Else
Sheets("Diagramm").Columns("K:K").EntireColumn.Hidden = False
End If
If Sheets("Daten").Range("F14") = "Nein" Then
Sheets("Diagramm").Select
Rows("36:36").Select
Selection.EntireRow.Hidden = True
Else
Sheets("Diagramm").Rows("36:36").EntireRow.Hidden = False
End If
Tabelle4.Range("C14:D14").NumberFormat = Tabelle4.Range("WertFormat").NumberFormat
Sheets("Diagramm").Select
Range("A1").Select
Sheets("Hilfstabelle").Select
Range("A1").Select
Sheets("Daten").Select
Range("F14").Select
End Sub
Derzeit habe ich aus Testgründen das Makro im Modul stehen. Ziel ist es nun, das Makro im Hintergrund automatisch ausführen zu lassen. D. h. im Blatt "Daten" soll die Zelle F14 auf den Inhalt bzw. eine Änderung zu überwachen und automatisch auszuführen.Nun meine Frage: Muss da etwas umgeschrieben werden, bzw. wo muss ich den Code hinkopieren, damit es automatisch ausgeführt wird?
Wer kann mir helfen?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf