Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

VBA: Zellbereich unter best. Bedingung löschen

Betrifft: VBA: Zellbereich unter best. Bedingung löschen von: Fritz_W
Geschrieben am: 25.07.2014 09:58:23

Hallo VBA-Kundige,

ich benötige eure Hilfe wie folgt:

Ich möchte im Tabellenblatt "Daten" den Zellbereich A2:G501 löschen (nur Inhalt, Formate sollten beibehalten werden), aber nur dann, wenn im gleichen Tabellenblatt entweder die Zelle AO1 den Text "Löschen" oder die Zelle AO2 die Zahl 500 enthält.
Sollte keine dieser Voraussetzungen erfüllt sein, sollte der Hinweis: "Löschen nicht möglich" ausgegeben werden.

Für Eure Hilfen im Voraus besten Dank.

mfg
Fritz

  

Betrifft: Zellbereich bedingt löschen von: NoNet
Geschrieben am: 25.07.2014 10:32:54

Hallo Fritz,

das klappt mit diesem Code :

Sub Bereich_Inhalte_Loeschen()
    If [AO1] = "Löschen" Or [AO2] = 500 Then
        [A2:G501].ClearContents
    Else
        MsgBox "Löschen nicht möglich !"
    End If
End Sub
Salut, NoNet


  

Betrifft: AW: Zellbereich bedingt löschen von: Fritz_W
Geschrieben am: 25.07.2014 10:37:41

Hallo NoNet,

super, ganz herzlichen Dank.

Gruß
Fritz


 

Beiträge aus den Excel-Beispielen zum Thema "VBA: Zellbereich unter best. Bedingung löschen"