Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen

Forumthread: Löschen

Löschen
31.03.2007 11:48:42
Peter

Hi Leute
hab da einen Code der müßte etwas geändwert werden. Der müßte wenn ich den einen Bereich gelöscht habe eine frage stellen ob ich den anderen Bereich in Tabelle2 auch löschen will. Wenn ich dann auf OK klicke dann löschen ansonsten Daten behalten. Bitte um Hilfe !!!
Gruß Peter
https://www.herber.de/bbs/user/60.xls

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen
31.03.2007 11:57:24
Matthias L.
Hi,

Private Sub cmdOK_Click()
Dim Frage
If TextBox1 <> PW Then
MsgBox "Ihr Passwort war falsch!" & Space(25) & vbLf & vbLf & _
"Versuchen Sie es nochmals.", 64, "Fehler"
TextBox1 = ""
TextBox1.SetFocus
Exit Sub
End If
Sheets("Tabelle1").Range("B1:L27").ClearContents
Range("G1").Select
Frage = MsgBox("Soll der Bereich in Tabelle2 auch gelöscht werden?", vbYesNo)
If Frage = 6 Then Sheets("Tabelle2").Range("A1:H28").ClearContents
Unload Me
End Sub
Gruß Matthias
Anzeige
AW: Löschen
31.03.2007 13:12:45
Peter
Hi Matthias
danke für deine schnelle hilfe. klappt super.
Gruß Peter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige