Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hinweißfenster

Hinweißfenster
13.09.2003 10:16:33
Ralf M.
Ich habe ein Makro (Daten_Löschen) das automatisch bestimmte Zelleninhalte löscht. Damit dieses nicht aus versehen geschieht möchte ich ein Warnfenster haben das mit (Ok) oder (abbrechen) quittiert werden muss bevor das Makro seine Arbeit aufnimmt und die Zelleninhalte löscht.
Hat jemand einen tipp für einen unwissenden. Ich danke euch im Voraus. Gruß Ralf

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

Betreff
Datum
Anwender
Anzeige
AW: Hinweißfenster
13.09.2003 10:46:28
DieterB
Beispiel:


Sub Loesche ()
Dim Variable As Integer
Variable = MsgBox("Achtung!!!", (32 + 1), ("Warnhinweis"))
If Variable = vbCancel Then Exit Sub
End Sub


Variable ist hier nur ein Name
32 ist ein Fragezeichen
1 ist der wert der Cancel-Fläche
Warnhiweis ist der Titel der MessageBox

Ich hoffe ich habe Dir geholfen
AW: Hinweisfenster
13.09.2003 10:48:04
Sigi
Hallo Ralf,

etwa so ...

Sub ZeilenLöschen()
Dim Titel As String
Dim Stil As Long
Dim Text As String
Dim Antwort As Long
Titel = "Zeilen löschen"
Stil = vbQuestion + vbYesNo + vbDefaultButton2
Text = "ACHTUNG!" & vbCr & "dieses Makro löscht Zeilen!" & _
vbCr & "Rückgängig ist nicht mehr möglich!" & vbCr & vbCr & _
"Soll wirklich gelöscht werden?"
Antwort = MsgBox(Text, Stil, Titel)
If Antwort = vbYes Then
'hier kommt dein Makro!
Else
Stil = vbExclamation + vbOKOnly
Text = "OK! Es wird nicht gelöscht!"
MsgBox Text, Stil, Titel
End If
End Sub

Gruß
Sigi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige