Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.12.2010 23:34:01 |
Rapunzell |
|
|
|
17.12.2010 00:10:58 |
Severus |
|
|
Aw:Aw:Leere Zeilen in Excel per klick ausblenden l |
17.12.2010 00:12:59 |
Rapunzell |
|
|
|
17.12.2010 00:26:09 |
Rapunzell |
|
|
|
17.12.2010 00:51:32 |
Severus |
|
|
Von:
Rapunzell |
Datum:
17.12.2010 00:12:59 |
Views:
889 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Leere Zeilen in Excel per klick ausblenden l |
Severus schrieb am 17.12.2010 00:10:58:
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
Probier ich gleich mal aus
Danke für die schnelle Antwort |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.12.2010 23:34:01 |
Rapunzell |
|
|
|
17.12.2010 00:10:58 |
Severus |
|
|
Aw:Aw:Leere Zeilen in Excel per klick ausblenden l |
17.12.2010 00:12:59 |
Rapunzell |
|
|
|
17.12.2010 00:26:09 |
Rapunzell |
|
|
|
17.12.2010 00:51:32 |
Severus |
|
|