Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige