Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Flensi am Februar 12, 2015, 07:57:32 Vormittag

Titel: Zelleninhalt löschen If .... then....
Beitrag von: Flensi am Februar 12, 2015, 07:57:32 Vormittag

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

Titel: Antw: Zelleninhalt löschen If .... then....
Beitrag von: mumpel am Februar 12, 2015, 17:42:25 Nachmittag

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é
 

Titel: Antw: Zelleninhalt löschen If .... then....
Beitrag von: Flensi am Februar 13, 2015, 09:57:05 Vormittag

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

Titel: Antw: Zelleninhalt löschen If .... then....
Beitrag von: mumpel am Februar 13, 2015, 11:26:45 Vormittag

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

Beim Öffnen der Datei mit "Workbook_Open".