Rapunzell schrieb am 16.12.2010 23:34:01:
Hallo liebe Gemeinde
ich hab da in Problem das ich alleine nicht bewältigt kriege.
Ich habe einen Schichtplan entworfen wo ich 5 Gruppen mit je 20 Zeilen "Mitarbeiter"
eingeplant habe. Extra 20 damit ich immer ein paar leere Zeilen habe um Mitarbeiter die in unsere Abteilung wechsel auch mal mit einzupflegen. Doch möchte ich wenn ich diese nicht bnötige per Mouseklick ausblenden lassen, also wenn kein Nahme in den Zelle ist sollen die gesammten zeilen ausgeblendet werden. Der Schichtplan ist im Range von A6 - IV111
Ich hoffe es kann mir hier jemand helfen. Über eine komplettlösung wäre ich sehr dankbar.
Mit freundlichen Guß
rapunzell
Hi,
ich denke daß Du das für den Ausdruck des Planes haben möchtest.
Ich habe zwei Prozeduren für das Modul "DieseArbeitsmappe" geschrieben. Dort mußt Du noch den Namen "Schichtplan" an den Namen des Arbeitsblattes Deiner Datei mit dem Schichtplan anpassen.
Dann werden die leeren Zeilen vor dem Druck ausgeblendet und mit einem Doppelklick auf das Arbeitsblatt wieder eingeblendet.
Scheint mir die beste Lösung.
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LaufZahl As Long
If ActiveSheet.Name <> "Schichtplan" Then Exit Sub 'Hier den korrekten Namen des Arbeitsblattes mit dem Schichtplan eingeben
Application.ScreenUpdating = False
With ActiveSheet
For LaufZahl = 6 To 111
If .Cells(LaufZahl, 1) = "" Then
.Cells(LaufZahl, 1).EntireRow.Hidden = True
End If
Next LaufZahl
End With
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name <> "Schichtplan" Then Exit Sub 'Hier den korrekten Namen des Arbeitsblattes mit dem Schichtplan eingeben
Sh.Cells.EntireRow.Hidden = False
End Sub
Severus |