Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Noch mal If Makro (bitte berichtigen)

Forumthread: Noch mal If Makro (bitte berichtigen)

Noch mal If Makro (bitte berichtigen)
19.01.2004 13:16:14
Markus H.
Hallo,
ich nochmal.
kann mir bitte jemand dieses script richtig machen?

Sub Makro1()
if A1 = 1 Then Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
else if A1 = 2 Then ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
else MsgBox = "Kein Ausdruck möglich"
End Sub


ist mein jämmerlicher versuch eines scripts.. aber ich geb mir mühe.. ^^
MfG
Markus
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Noch mal If Makro (bitte berichtigen)
19.01.2004 13:36:49
PeterW
Hallo Markus,
in Tabelle1 A1 steht die Anzahl:

Sub Makro1()
If IsNumeric(Sheets("Tabelle1").Range("A1")) And Sheets("Tabelle1").Range("A1") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Tabelle1").Range("A1")
Else
MsgBox "Kein Ausdruck möglich"
End If
End Sub

Gruß
Peter
Anzeige
Vielen Dank + Frage
19.01.2004 14:05:14
Markus H.
Funzt super... vielen dank dir!
wie mach ich einen Zeilenumbruch bei MsgBox?
thx
AW: Vielen Dank + Frage
19.01.2004 15:16:22
PeterW
Hallo Markus,

Sub Box()
MsgBox "Dies ist eine Box" & vbLf & "mit einem Umbruch"
End Sub

Gruß
Peter
thx (ot)
19.01.2004 15:36:24
Markus H.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige