Herbers Excel/VBA-Archiv

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

VBA: Zellbereich unter best. Bedingung löschen

• VBA: Zellbereich unter best. Bedingung löschen von Fritz_W vom 25.07.2014 09:58:23
• Zellbereich bedingt löschen - von NoNet am 25.07.2014 10:32:54
  • AW: Zellbereich bedingt löschen - von Fritz_W am 25.07.2014 10:37:41

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"