Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage

Abfrage
11.10.2007 10:26:02
Paul
Hallo Excel-Spezis,
ich möchte , das wenn dieses Macro (s.u.) ausgeführt wird wenn in der Tabelle "Fragebogen" die Zelle A5 nicht 3 ist, eine Hinweisbox erscheint die dem Nutzer eine Frage vorblendet (z.B. "Sind Siesichr dass...)die er mit "Ja" (dann wird das Nacro fortgesetzt oder mit (Nein) dann wird das Macro abgebrochen, beantworten kann.Lässt sich das realisieren?

Sub VollmachtHerrigel_drucken()
Sheets("AbRe").Select
Range("A35").Select
ActiveCell.FormulaR1C1 = "=R[-11]C[30]"
Sheets("Vollmacht H").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Fragebogen").Select
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Abfrage
11.10.2007 10:39:00
Hajo_Zi
Hallo Paul,

Option Explicit
Sub VollmachtHerrigel_drucken()
If Worksheets("Fragebogen").Range("A5")  3 Then
If MsgBox("Sind Siesichr dass...", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
Sheets("AbRe").Range("A35").FormulaR1C1 = "=R[-11]C[30]"
Sheets("Vollmacht H").PrintOut
End If
Else
Sheets("AbRe").Range("A35").FormulaR1C1 = "=R[-11]C[30]"
Sheets("Vollmacht H").PrintOut
End If
End Sub



AW: Abfrage
11.10.2007 11:46:00
Paul
Hallo Hajo,
klappt perfekt, Du bist ein Ass!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige