Excel-Makro: for-next-Schleife

Computer: Software & Programmierung Office Software
1

Hallo,

ich habe mehrere Exceldateien mit jeweils 34 gleichartig aufgebauten Tabellenblättern.
Diese will ich abhängig von einer bestimmten Variablen auf jedem Blatt jeweils in Zelle A1 ausdrucken oder nicht.

In Basic hätte es analog so geheißen:

For i=1 TO 34
IF [Inhalt von Zelle A1]=1 THEN PRINT#8
NEXT

So was Ähnliches hätte ich gerne als kleines nützliches Makro in Excel.
Vielen Dank für freundliche Hilfe,

Ludwig

2

Diese will ich abhängig von einer bestimmten Variablen auf
jedem Blatt jeweils in Zelle A1 ausdrucken oder nicht.
In Basic hätte es analog so geheißen:
For i=1 TO 34
IF [Inhalt von Zelle A1]=1 THEN PRINT#8
NEXT
So was Ähnliches hätte ich gerne als kleines nützliches Makro
in Excel.

Hi Ludwig,
entweder in "DieseArbeitsmappe":

Private Sub Workbook\_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) "A1" Or Target.Value 1 Then Exit Sub
Worksheets(Sh.Name).PrintOut Copies:=1
End Sub

Oder in ein StandardModul (Modul1)

Sub druck()
For n = 1 To 34
 If Worksheets(n).[A1] = 1 Then Worksheets(n).PrintOut Copies:=1
Next n
End Sub

Gruß
Reinhard
3

tausend Dank!
Lieber Reinhard,

woher du das nur immer alles so schnell weißt. Es hat auf Anhieb geklappt. Ich habe die Basic ähnliche Variante genommen.

Wieder vielen Dank,

Ludwig