Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vor dem loeschen nochmal fragen, ob wirklich loesc

Forumthread: Vor dem loeschen nochmal fragen, ob wirklich loesc

Vor dem loeschen nochmal fragen, ob wirklich loesc
Matthias
Hi,
ich habe eine Tabell, in der ich Zellen loeschen moechte. Trotzdem will ich vor jedem Loeschvorgang gefragt werden, ob ich denn wirl=klich alles loeschen will.
Da gibt es doch bestimmt einen Code!
Gruss
Matthias
Anzeige
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
Ulf
Nur, wenn du die Zellen mit VBA löschst.
Ulf
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
Matthias
Ja das mache ich!
Das klappt auch!
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
Ulf
Wo ist dann das Problem? Einfach eine Msgbox mit der Abfrage
vor den eigentlichen Löschcode vorschalten.
Ulf
Anzeige
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
Matthias
Und wie macht man das?
Das ist der COde: 

Private Sub CommandButton1_Click()
Dim Bereich As String, ws As Object
On Error Resume Next
For Each ws In Worksheets
Select Case ws.Name
Case Is = "balance sheet"
ws.Range("B8:C288").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "balance sheet (service)"
ws.Range("B9:C110").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L (service)"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Select
Next
End Sub

Anzeige
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
Ulf
Option Explicit

Sub CommandButton1_Click()
Dim Bereich As String, ws As Object, msg As Integer
msg = MsgBox("Wirklich, Festplatte formatieren?", 36, "wundere mich...")
If msg = vbNo Then Exit Sub
On Error Resume Next
For Each ws In Worksheets
Select Case ws.Name
Case Is = "balance sheet"
ws.Range("B8:C288").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "balance sheet (service)"
ws.Range("B9:C110").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L (service)"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Select
Next
End Sub

Ulf
Anzeige
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
Matthias
Ja hat geklappt!
Haette man auch selber drauf kommen koennen!!
Danke nochmal!
Matthias
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
harry
hi matthias,
so in der art:

Private Sub CommandButton1_Click()
Dim Bereich As String, ws As Object
On Error Resume Next
For Each ws In Worksheets
Select Case ws.Name
Case Is = "balance sheet"
Mldg = "Soll die Spalte wirklich gelösche werden?" _
& Chr(13) & Chr(13) & "Rückgängig mache ist nicht möglich!"
Stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "LÖSCHVORGANG BESTÄTIGEN"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbNo Then
Exit Sub
Else: ws.Range("B8:C288").SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
Case Is = "balance sheet (service)"
ws.Range("B9:C110").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L (service)"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Select
Next
End Sub

die restlichen cases einfach ergänzen.
liebe grüße,
harry
Anzeige
AW: Vor dem loeschen nochmal fragen, ob wirklich loesc
Matthias
Danke,
jetzt habe ich es!!
Gruss
Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige