Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

 [Excel 2002] Dialogbox m. Textfeld(Hinweise) zw. Druck-Button und Vorgang
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
timi
Besserwisser
Besserwisser


Anmeldedatum: 12.03.2008
Beiträge: 97
Wohnort: 67742 Lauterecken

BeitragVerfasst am: 20.04.2008, 13:47 Nach oben

Hallo,

wie füge ich eine Dialogbox mit Textfeld(Inhalt:Warnhinweis) ein, welche nach dem Drücken des Druck-Buttons ( CommandButton ) erscheint, und mir die Möglichkeit gibt den Druck dann mit "Abrechen" abzubrechen oder mit "OK" fortzufahren.
Makro-Anweisung erwünscht.

Bitte evtl. um ein kleines Beispiel.
Euer Timi
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 4850

BeitragVerfasst am: 21.04.2008, 01:47 Nach oben

Hallo!

Ein Beispiel:
Code:
Sub Warnung()
Dim x As Integer
x = MsgBox("Möchten Sie das wirklich tun?", vbYesNo + vbQuestion, "Weiter oder nicht?")
If x = 6 Then
'mit irgendwas weitermachen
Else
Exit Sub 'wenn die Prozedur komplett verlassen werden soll
End If
End Sub

_________________

Viele Grüße vom Schatzi

------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...Image
Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007
Benutzer-Profile anzeigenPrivate Nachricht senden
timi
Besserwisser
Besserwisser


Anmeldedatum: 12.03.2008
Beiträge: 97
Wohnort: 67742 Lauterecken

BeitragVerfasst am: 23.04.2008, 08:34 Nach oben

Komme mit dem Erstellen einer MsgBox nicht klar. Wäre für ein kleines Beispiel dankbar. Jeder fängt mal klein an. Gehe davon aus, dass ich mir zunächst mal diese Box zusammentüfteln muß via UserForm.
Bitte klärt mich auf.
Benutzer-Profile anzeigenPrivate Nachricht senden
miriki
User mit gefährlichem Halbwissen
User mit gefährlichem Halbwissen


Anmeldedatum: 05.03.2007
Beiträge: 154
Wohnort: Kiel

BeitragVerfasst am: 23.04.2008, 09:33 Nach oben

timi hat Folgendes geschrieben:
Komme mit dem Erstellen einer MsgBox nicht klar.

Keine Bange, darum mußt du Dich nicht kümmern.

Die Funktion "MsgBox" erledigt das alles für Dich. Mit den Parametern gefüllt, erstellt es ein kleines Fenster, zeigt Buttons (yes, no, cancel, ...) an, setzt noch einen Text darüber ("Wollen Sie?"), zeigt ein Icon an ("!") und vergibt sogar noch einen kleinen Fenstertitel ("Achtung").

Und als krönenden Abschluß gibt sie Dir auch noch die Info zurück, welcher Button gedrückt wurde.

Alles das steckt in der kleinen Zeile
Code:
x = MsgBox("Möchten Sie das wirklich tun?", vbYesNo + vbQuestion, "Weiter oder nicht?")


Gruß, Michael
Benutzer-Profile anzeigenPrivate Nachricht senden
timi
Besserwisser
Besserwisser


Anmeldedatum: 12.03.2008
Beiträge: 97
Wohnort: 67742 Lauterecken

BeitragVerfasst am: 23.04.2008, 10:22 Nach oben

Zunächst einmal Danke!

Es wird tatsächlich eine Abfragebox erstellt. Jedoch beim Klicken auf "NEIN", wird der Druck trotzdem ausgeführt statt abgebrochen.
Habe diesen von Dir ganannten Befehl vor dem Druckbefehl eingefügt.

Bin halt ein Neuling auf diesem Gebiet.

Gruß Timi
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 4850

BeitragVerfasst am: 23.04.2008, 10:35 Nach oben

Hallo!
Zitat:
beim Klicken auf "NEIN", wird der Druck trotzdem ausgeführt

Das kann ich zwar nicht nachvollziehen, aber vielleicht funktioniert bei dir ja wenigstens der umgekehrte Weg:
Code:
Sub Warnung()
Dim x As Integer
x = MsgBox("Möchten Sie das wirklich tun?", vbYesNo + vbQuestion, "Weiter oder nicht?")
If x <> 6 Then Exit Sub
'hier folgt dein eigentlicher Code.
End Sub

_________________

Viele Grüße vom Schatzi

------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...Image
Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007
Benutzer-Profile anzeigenPrivate Nachricht senden
timi
Besserwisser
Besserwisser


Anmeldedatum: 12.03.2008
Beiträge: 97
Wohnort: 67742 Lauterecken

BeitragVerfasst am: 23.04.2008, 11:00 Nach oben

Ich freu' mich wie beim ersten Mal! Jetzt klaaaaaaapppppts!

So kann man mir mit kleinen Sachen auch noch eine Freude machen!
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge [Word 2003] Textfeld oder Tabelle mit... -s!Gm4- Microsoft Word Hilfe 0 24.06.2008, 13:39 Letzten Beitrag anzeigen
Keine neuen Beiträge Command Button Totte1987 Microsoft Excel Hilfe 2 18.06.2008, 16:28 Letzten Beitrag anzeigen
Keine neuen Beiträge per Button automatischer druck mehrer... matze54321 Microsoft Excel Hilfe 7 11.06.2008, 11:42 Letzten Beitrag anzeigen
Keine neuen Beiträge Nur den Inhalt eines "fillin-fel... orangecake78 Microsoft Word Hilfe 0 09.06.2008, 15:50 Letzten Beitrag anzeigen
Keine neuen Beiträge Großes Problem mit beidseitigem Druck... floski Microsoft Word Hilfe 2 26.05.2008, 15:04 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de