Zelleninhalt löschen If .... then....

[Flensi]

Hallo  ,

Bin Anfänger und habe folgendes Problem. Mein Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       
        If Range("K15").Value = "1" Then Range("C14").ClearContents
       
        If Range("K15").Value = "1" Then Range("F14").ClearContents
       
        If Range("K15").Value = "1" Then Range("I14").ClearContents
       
 End Sub

Er funktioniert nur ich hab das Problem das ich erst in irgendeine Zelle klicken muss damit die Inhalte gelöscht werden.

Kann ich das anders realisieren?

Kann ich die Makrofrage beim Starte von Excel deaktivieren?

Danke schon mal......
Gruß Jörn

[mumpel]

Hallo!

1. Mache ein normales Makro daraus und lege es Dir in die Schnellzugriffleiste. Das Makro muss dann in ein allgemeines Modul.

Code: Visual Basic

1. Public Sub Test()
2.     If Range("K15").Value = "1" Then Range("C14, F14, I14").ClearContents
3. End Sub
4.  

2. Die Makroabfrage kannst Du deaktivieren indem Du die Datei in einem vertrauenswürdigen Ordner speicherst (siehe Excel-Hilfe)

Gruß, René
 

[Flensi]

Hallo mumpel,

danke klapp gut. Nun muss ich leider das makro immer starten. Funktioniert das auch automatisch? In Zelle "K15" ist eine Wenn Formel.

Gruß Flensi

[mumpel]

Nur über die Dir bekannten Ereignismakros. Ohne Ereignismakro weiss Excel ja nicht dass es etwas machen soll.

Beim Öffnen der Datei mit "Workbook_Open".