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

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige