ich habe folgendes funktionsfähige Makro:
Sub DRUCKEN()
Sheets("Tabelle10").Select
Cells.Select
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Windows("Druckbereich.xls").Activate
Sheets("Kraft (2)").Select
Range("A3:F3").Select
Selection.Copy
Windows("Druckbereich.xls").Activate
Sheets("Tabelle10").Select
Range("$D1").Select
ActiveSheet.Paste
Sheets("Kraft (2)").Select
Application.CutCopyMode = False
Windows("Druckbereich.xls").Activate
Sheets("Kraft (2)").Select
Range("A1:B1").Select
Selection.Copy
Windows("Druckbereich.xls").Activate
Sheets("Tabelle10").Select
Range("$D3").Select
ActiveSheet.Paste
Sheets("Kraft (2)").Select
Application.CutCopyMode = False
Windows("Druckbereich.xls").Activate
Sheets("Kraft (2)").Select
Range("I1:I2").Select
Selection.Copy
Windows("Druckbereich.xls").Activate
Sheets("Tabelle10").Select
Range("$D4:$D5").Select
ActiveSheet.Paste
Columns("I:I").EntireColumn.AutoFit
Windows("Druckbereich.xls").Activate
Sheets("Kraft (2)").Select
Range("F17:H17, F19:H19,F21:H21,F23:H23,F25:H25,F27:H27,F29:H29,F31:H31,F33:H33, F35:H35, _
F37:H37, F39:H39, F41:H41, F43:H43, F45:H45, F47:H47, F49:H49, F51:H51, F53:H53, F55:H55, F57:H57, F59:H59, F61:H61, F63:H63, F65:H65, F67:H67, F69:H69, F71:H71").Select
Selection.Copy
Windows("Druckbereich.xls").Activate
Sheets("Tabelle10").Select
Range("$D9").Select
ActiveSheet.Paste
Windows("Druckbereich.xls").Activate
Sheets("Kraft (2)").Select
Range("F73:H73, F75:H75, F77:H77, F79:H79, F81:H81, F83:H83, F85:H85, F87:H87, F89:H89, F91: _
H91").Select
Selection.Copy
Windows("Druckbereich.xls").Activate
Sheets("Tabelle10").Select
Range("$D36").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Druckbereich.xls").Activate
Sheets("Tabelle10").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = _
"=""Kontierung für ""& TEXT(R[2]C,""Text"") & ""der Fa. Kraft vom ""& TEXT(R[4]C,""MMM. _
JJJJ"")"
Range("D2").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$D$1:$G$45"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
Ich habe heir bei aus einem Tool ("Kraft (2)") relevante Daten in ein neues Tabellenblatt kopiert und dieses soweit druckfertig konfiguriert. Jetzt würde ich in den Feldern F10-F45 von Tabelle 10 gerne integrieren, dass am Ende des Makros diese nach dem Betrag 0,00 durchforstet werden. Taucht dieser auf soll statt des Betrages einfach eine leere Zeile angegeben werden! Wie kriege ich das hin?Vielen Dank an alle Excel Experten die sich mit meiner Anfrage befassen!
Gruß
Christopher