würde mich um Unterstützung freuen.
Habe mal dieses Makro gegoogelt, funktioniert auf meine Daten einwandfrei.
Anbei mein Druck-Makro:
Public Sub Zeile_drucken() Application.ScreenUpdating = False Dim iIndex As Integer Worksheets("Adresse_Druck").Activate ActiveSheet.Unprotect (getStrPasswort) Range("C2:C12").Select Selection.ClearContents Worksheets("Liste").Activate Cells(ActiveCell.Row, 1).Resize(, 18).Copy Worksheets("Adresse_Druck").Range("C1").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False If MsgBox("Wollen Sie den/die "" " & " "" wirklich drucken.", _ vbYesNo + vbQuestion, " Druckabfrage, nur zur Sicherheit.") = vbYes Then hier = & es sollten die Zelle: C2,C3, C5 und C6 reingesetzt werden, damit man nochmal kontr. kann. Application.ScreenUpdating = False Worksheets("Adresse_Druck").Activate Range("C10").Select Selection.NumberFormat = "0" Range("C16").Selec Selection.NumberFormat = "m/d/yyyy" Sheets("Adresse_Druck").Range("B2:C12").Select ActiveSheet.PageSetup.PrintArea = "$B$2:$C$12" With Selection .HorizontalAlignment = xlLeft .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True End If Application.ScreenUpdating = True End SubHerzlichen Dank im Voraus
mfg
philipp