Drucken aus Makros?!?!
21.04.2005 14:58:16
DerBertige
bräuchte mal evtl. kurz eure Hilfe, mein Problem ist folgendes:
ich möchte aus einem Makro mehrere Tabellenblätter drucken, aber abhängig von
einer Liste.
Die Liste ist in einem Separaten Tabellenblatt, und in Spalte (z.B.) B steht
entweder eine 1 (für drucken), oder eine 0 (für nicht drucken)
---Spalte A------Spalte B
Tabellenblatt_A= 1
Tabellenblatt_B= 0
Tabellenblatt_C= 0
Tabellenblatt_D= 1
nun weiß ich aber nicht, wie genau mein Makro dazu auszusehen hat...
bisher siehts etwa so aus:
Sheets("Liste_Drucken").Select
If Range ("B1")= 1 Then
Sheets("Tabellenblatt_A").PrintOut From:=1, To:=1, Copies:=1
End If
Sheets("Liste_Drucken").Select
If Range ("B2")= 1 Then
Sheets("Tabellenblatt_B").PrintOut From:=1, To:=1, Copies:=1
Sheets("Liste_Drucken").Select
If Range ("B3")= 1 Then
Sheets("Tabellenblatt_C").PrintOut From:=1, To:=1, Copies:=1
Für eure Hilfe wäre ich echt dankbar,
Gruß Bert