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

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

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
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
Anzeige
thx (ot)
19.01.2004 15:36:24
Markus H.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige