Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autofilter

Autofilter
Christopher
Hallo Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Ursprungstabelle
29.09.2009 17:23:03
Christopher
Möglich wäre es ja auch in der Ursprungstabelle die Formel oder das Format der relevanten Spalte in der Art zu verändern, dass entweder ein Wert drin steht wenn es etwas in der zu summierenden Spalte gibt (alle gefüllt mit Summewenn Formeln) oder aber statt 0,00 eine leere Zelle angezeigt wird.
Ich hoffe ich habe mich einigermaßen klar ausgedrückt. :-)
Gruß
Christopher
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige