Leere Zeilen beim Drucken ausblenden

Dirk · 2015-11-19T06:56:49+00:00

Hallo zusammen. Anbei eine Excel Datei. https://www.herber.de/bbs/user/101636.xlsm Wenn ich auf den Button "Drucken" klicke möchte ich, dass alle Zeilen (von Zeile 5-50) ausgeblendet werden, die in der Spalte "Termin" keinen Eintrag haben und die Druckvorschau erscheint, in der ich dann einen Drucker auswählen kann. Nach dem Drucken sollen dann wieder alle Zeilen eingeblendet werden. Ich habe es schon mit verschiedenen VBA Codes hier aus dem Formun versucht aber leider werden die Zeilen nicht ausgeblendet :-( Vielen Dank!!

Hallo.
Klar kannst du den Kalender benutzen :-)
Mit dem Focus funktioniert über diesen Abschnitt:
Private Sub Build_Calendar()
'the routine that actually builds the calendar each time
If CreateCal = True Then
CalendarFrm.Caption = " " & CB_Mth.Value & " " & CB_Yr.Value
'sets the focus for the todays date button
CommandButton1.SetFocus
For i = 1 To 42
If i Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), dtFormat)
ElseIf i >= Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value)) Then
Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) _
& "/1/" & (CB_Yr.Value))), ((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), dtFormat)
End If
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "mmmm") = ((CB_Mth.Value)) Then
If Controls("D" & (i)).BackColor &H80000016 Then Controls("D" & (i)).BackColor = &H80000018 '&H80000010
Controls("D" & (i)).Font.Bold = True
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), dtFormat) = Format(ThisDay, dtFormat) Then Controls("D" & (i)).SetFocus
Else
If Controls("D" & (i)).BackColor &H80000016 Then Controls("D" & (i)).BackColor = &H8000000F
Controls("D" & (i)).Font.Bold = False
End If
''Debug.Print i & " - " & Controls("D" & (i)).ControlTipText
Next
End If

Hallo
Danke! erstmal für die Erlaubnis Deinen Kalender benutzen zu dürfen :-)
Mit dem Focus funktioniert über diesen Abschnitt:
Private Sub Build_Calendar()
Das kann es aber nicht sein!
Ich habe alles der Reihe nach auskommentiert und immer wieder neu getestet
Auch wenn die Labels leer sind (da auskommentiert) kann ich mit den Pfeiltasten den Curor über den Kalender bewegen und das jeweilige Label bekommt den Focus.
Ich habe am Ende nur die Deklaration stehen lassen.
Bin etwas ratlos
Gibts da nicht doch evtl. in den Eigenschaften irgend eine Einstellung die ich übersehe?
Gibt es evtl in den Eigenschaften der Label Unterschiede zwischen 2010 und 2007
Meine höchste Version ist 2007
Gruß Matthias

Leere Zeilen beim Drucken ausblenden

Forumthread: Leere Zeilen beim Drucken ausblenden

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial