Werte in Zellen per VBA
13.04.2007 11:03:00
Andreas
Hallo Excelforum!
Ich habe mal wieder ein hoffentlich kleines Problem.
Mit nachfolgendem Code blende ich verschiedene Zeilen und Spalten aus und drucke diese dann.
Private Sub CommandButtonDrucken1_Click()
Dim lZeile As Long
'zur Auswertung wechseln
Sheets("Auswertung").Select
Application.ScreenUpdating = False
With Sheets("Auswertung")
.Rows("5:1001").Hidden = False
For lZeile = 5 To 1000
If .Cells(lZeile, 29) = "" Then
.Rows(lZeile).Hidden = True
End If
Next
End With
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,L:AF").EntireColumn.Hidden = True
Application.ScreenUpdating = True
'Range("B1").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 999
End With
Unload UserFormAuswertung
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Auswertung").Range("B1").Select
End Sub
Ich muß vor dem Ausblenden aber noch ein par Werte in die Zellen B1, B2, usw. eintragen.
In B1 soll z.B. der Text "Besucher Tag 1:" dann ein Leerzeichen und dann die Summe aus AC5:AC1000,
in B2 der Text "Besucher Tag 2:" dann ein Leerzeichen und dann die Summe aus AD5:AD1000, usw..
Kann mir da Jemand helfen?
Vielen ank im vorraus!
mfg, Andreas