Zeile Ausblenden

[biosprofi]

Hallo alle zusammen,

ich benötige mal wieder Eure Hilfe.

Ich habe einen Schichtkalender erstellt, nun möchte ich wenn in der Zelle B48 das Datum für den 29.02. drin steht das die Zeile eingebendet ist, wenn aber kein Datum drin steht möchte ich das die Zeile ausgeblendet wird.

Den unteren Code habe ich bis jetzt genutzt der hat dann immer die AV Spalte ausgebendet, vielleicht weiss jemand wie man diesen für die Zeile 48 anwenden kann.

Option Explicit

Private Sub Worksheet_Calculate()


Columns("AV").Hidden = Range("AV2") = ""


End Sub


Im Anhang habe ich ein Bild eingefügt, so könnt Ihr vielleicht besser Verstehen was ich meine, für Eure Hilfe bedanke ich mich jetzt schon mal.

Liebe Grüsse

[Crazy Tom]

Hallo

vielleicht so?

Code:

Private Sub Worksheet_Calculate()
   Rows(48).Hidden = Range("B48") = ""
End Sub

ich suche noch den Haken bei der Frage...

MfG Tom

[RPP63]

Moin!

Trotz des suboptimalen Bilds scheinst Du ja echte Daten (Plural von Datum) in Spalte B stehen zu haben.
Wenn Du das Datum mittels =B2+1 fortschreibst, kannst Du Dir VBA schenken.

Gruß Ralf

[biosprofi]

Hallo,

ich habe den Code von Crazy Tom ausprobiert, leider kommt dann eine Fehlermeldung (siehe Bild)

Mit den Spalten hat es ohne Probleme funktioniert, soll das mit den Zeilen so ein grosses Problem sein?

Hat jemand vielleicht eine andere Idee?

Gruss

[Käpt'n Blaubär]

Hallo,

tja, da Du Dich so wundersam bedeckt hältst, kann ich Dir auch nur mit mit einem Bildchen antworten.

Den Code habe ich von Deinem Bildchen "ausnahmsweise mal abgetippt", weil sich diese Arbeit
ja in überschaubaren Grenzen hielt, ... 

Option Explicit

Private Sub Worksheet_Calculate()
     Rows(48).Hidden = Range("B48") = ""
End Sub

habe ihn durchlaufen lassen und siehe da, die Zeile "48" ist wie erwartet ausgeblendet,
wie unschwer meinem Bildchen zu entnehmen ist. Der Fehler liegt also irgendwo in Deinem
sonstigen Machwerk, aber garantiert nicht in dem von Dir gezeigten Code.

Zur Erklärung: VBA unterlegt die Zeile, in der es nicht weiterkommt, gelb.
Das ist aber nicht zwangsläufig die Stelle, an der sich die Ursache für den dafür zuständigen
Fehler befindet.

Setze einen Haltepunkt, Starte Deinen Code und gehe schrittweise mit F8 durch die Codes.
Möglicherweise findest Du so die Ursache.

[Crazy Tom]

Moin 


ich würde jetzt erstmal drauf tippen, dass vor der "kopierten" Codezeile
wieder mal diese seltsamen Leerzeichen stehen
zweiter Ansatz wäre ein eventueller Blattschutz

ansonsten würde ich eh auf Ralfs Empfehlung gehen und die Datumsspalte verformeln
dann hat sich das mit dem 29.02.2017 sowieso erledigt 

MfG Tom

[biosprofi]

Ich wollte mich erst mal bei allen bedanken die mir bis jetzt eine Antwort gegeben haben.

Ich werde es gleich noch mal versuchen.