Hallo,
ich habe folgendes Problem:
Ich möchte ein Druck-Makro schreiben, dass mir die Blätter die gedruckt werden sollen aus den zellen einer Zeile ausliest.
und diese dann druckt.
Zur verdeutlichung als beispiel:
Paul: Seite1 Seite2 Seite3
Hans: Seite1 Seite3
Klaus: Seite1 Seite2 Seite3 Seite4
Dabei sind die Namen Seite1 usw. auch die Namen der Blätter.
Bisher habe ich folgendes Marko:
i = 1
For i = 1 To anzahl 'der Leute


For j = 2 To 5 'Spalten, wo die Blätternamen stehen
blatt = Worksheets("Überischt").Cells(i, j).Value 'Blattbezug lesen
Application.Goto Reference:=blatt
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1


Next j
Next i
es liest die Namen aus den Zellen zwar aus in 'blatt' aber die "übergabe" dass ich
dieses blatt aktiviert bekomme zum drucken funktioniert noch nicht.
Danke für Hilfe!