Wenn ein sonntag dann ausblenden

Bild

Betrifft: Wenn ein sonntag dann ausblenden
von: Ralf
Geschrieben am: 26.03.2005 13:18:23
Hallo Profis
Ich habe da ein anliegen und zwar möchte ich ein stundenzettel erstellen, wo der Sonntag automatisch augeblendet wird.
Die Tabelle sieht bei mir so aus in D2 habe ich das datum stehen z.B.
01.01.2005 und in der spalte B8 steht Dann =D2 und in A8 steht bei mir
=Wochentag(B8) jetzt möchte ich das wenn der Tag ein Sonntag ist das die Spalten für den Sonntag ausgeblendet weden.
hier zum ansehen
https://www.herber.de/bbs/user/20177.xls
Mfg Ralf

Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: Vico
Geschrieben am: 26.03.2005 14:04:00
Hallo Ralf,
habe Deine Angaben nachvollzogen.
Bekomme bei der Formel =Wochentag(B8)das Ergebnis 7 heraus, was dem "Sonntag" entsprechen
duerfte. Versuch es doch mal mit =WENN((WOCHENTAG(B8)=7);"";WOCHENTAG(B8)) statt mit
=Wochentag(B8).
Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: Ralf
Geschrieben am: 26.03.2005 14:32:49
Hallo Vico
irgendwie funktioniert das bei mir nicht kann das damit zusammenhängen das der sonntag mehrere zellen hat also die verbunden sind. also im Jannuar wäre das spalte 14 - 19 beim ersten sonntag.
Vielleicht sollte ich noch erwähnen das die ganzen spalten gelöscht werden sollen also von 14 - 19 .
ich dachte ungefähr so
wenn spaalte 14-19 = Sonntag dann löschen spalte 14-19
oder so ähnlich
bin da aber nur ein anfänger
gruß Ralf
Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: ransi
Geschrieben am: 26.03.2005 14:40:35


      
hallo ralf
dieser dreizeiler blendet dir die zeilen aus 
in denen in Spalte a "  Sonntag" steht.
Option 
Explicit
Public Sub test()
Dim zelle As Range
For Each zelle In Range("a1:a200")'ggf noch anpassen
    If zelle.Text = "  Sonntag" Then Rows(zelle.Row & ":" & zelle.Row + 5).Hidden = True
Next
End Sub
habe allerdings aus deiner frage nicht ersehen können  wann  das passieren soll?
Musst dir also das passende ereigniss noch einstellen.
ransi 

     Code eingefügt mit Syntaxhighlighter 3.0


Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: Ralf
Geschrieben am: 26.03.2005 14:50:41
Hallo ransi
ich habe deine Formel in einer autoform intregriert klappt auch wunderbar aber was muss ich machen wenn das automatisch passieren soll ohne ihrgend eine autoform zu drücken
also beim öffnen der arbeitsmappe kann ich leider nicht leine

Sub AutoForm2_BeiKlick()
Dim zelle As Range
For Each zelle In Range("a1:a200") 'ggf noch anpassen
    If zelle.Text = "  Sonntag" Then Rows(zelle.Row & ":" & zelle.Row + 5).Hidden = True
Next
End Sub


mfg
Ralf
Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: ransi
Geschrieben am: 26.03.2005 15:02:35


      
hallo ralf
rechte maus auf einen tabellenreiter
code anzeigen...
dann geht ein neues fenster auf.
links ist so eine art explorer
doppelclick auf DieseArbeitsmappe
da dann diesen code rein.
Option 
Explicit
Private Sub Workbook_SheetChange(ByVal Sh As ObjectByVal Target As Range)
Dim zelle As Range
If Target.Address = "$D$2" Then
    
For Each zelle In Range("a1:a200"'ggf noch anpassen
        If zelle.Text = "  Sonntag" Then Rows(zelle.Row & ":" & zelle.Row + 5).Hidden = True
    
Next
End If
End Sub
 
der code macht folgendes:
sobald du auf irgendeinem blatt die zelle D2 änderst wird 
in dem aktuellen blatt jede zeile ausgeblendet die
in A "  Sonntag" hat.
ransi 

     Code eingefügt mit Syntaxhighlighter 3.0


Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: Ralf
Geschrieben am: 26.03.2005 15:10:10
herforragend Danke
tja wenn man erst mal angefangen ist möchte mann noch mehr vielleicht kannst Du mir ja auch dabei Helfen.
Und zwar möchte ich das bei jedem Montag ein Seitenwechsel eingefügt wird also wenn ich Drucke das immer nur 1 Arbeitswoche auf einem Blatt erscheint.
mfg
ralf
Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: Peter W
Geschrieben am: 26.03.2005 16:06:57
Servus,
So funzt beides.

Sub worksheet_selektion_change()
            For i = 8 To 188 Step 6
            If Cells(i, 1) = 1 Then
                Range(Cells(i, 1), Cells(i + 5, 1)).EntireRow.Hidden = True
            Else
                Range(Cells(i, 1), Cells(i + 5, 1)).EntireRow.Hidden = False
            End If
            If Cells(i, 1) = 2 Then
            PrintTitleRows = "$7:$7"
            PrintTitleColumns = Range(Cells(i, 1), Cells(i + 5, 1))
            End If
        Next i
End Sub

MfG
Peter
Bild

Betrifft: AW: Wenn ein sonntag dann ausblenden
von: Björn B.
Geschrieben am: 26.03.2005 14:28:01
Hallo Ralf,
Für Tabelle Jan wäre folgender Code im Modul von Tabelle1(Jan) einzutragen:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$2" Then
        For i = 8 To 188 Step 6
            If Cells(i, 1) = 1 Then
                Range(Cells(i, 1), Cells(i + 5, 1)).EntireRow.Hidden = True
            Else
                Range(Cells(i, 1), Cells(i + 5, 1)).EntireRow.Hidden = False
            End If
        Next i
    End If
End Sub

Der Code funktioniert auch für die Tabelle Feb, wenn du das Layout an Tabelle Jan anpasst (ab Zeile 6 hast du da eine Abweichung).
Gruß
Björn
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wenn ein sonntag dann ausblenden"