Hello :)
ich stehe gerade vor einen Problemchen.
Ich habe eine Hauptdatei und eine "Druckdatei" mit Druckbereich.
Außerhalb vom Druckbereich gibt es ein Dropdown Menü ("G1) welcher Bezug auf Tabellenblatt3 hat wo ich täglich Werte eintrage um dann ein Druckbares Sheet zu erhalten.
Der Druckbereich hat SVERWEIS auf G1 als Suchkriterium + Masterdatei für die Matrix.
Mein Plan war es, das mein Dropdown Feld einmal komplett abgearbeitet wird und jeder neue "Datensatz" auf ein neues Blatt ausgedruckt wird.
Druckknopf = Tabelle aus dem Screenshot
Sub Drucken()
Dim Rng As Range, Zelle, TB
Set Rng = Sheets("Druckknopf").Range("A1:A10")
Set TB = Sheets("Druckknopf")
For Each Zelle In Rng.SpecialCells(xlCellTypeConstants, 1)
TB.Range("G1") = Zelle.Value
TB.PrintOut
Next
End Sub
Habt ihr Zufällig einen anderen Weg der Funktioniert? Oder ich finde den Fehler gerade nicht...
|