Abfrage

Forumthread: Abfrage
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Abfrage

Abfrage

11.10.2007 12: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

AW: Abfrage

11.10.2007 12:39:00

Hajo_Zi
AW: Abfrage

11.10.2007 13:46:00

Paul

AW: Abfrage

11.10.2007 12: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