Office: Wenn in Spalte Wert -> dann Zeile ausblenden

Hallo, Die Welt kann so einfach sein..

Sub SpezialfilternachDatumSortieren()

For i = 13 To 1300
If Sheets(1).Cells(i, 13).Value < 39814 Then
Sheets(1).Rows(i).EntireRow.Hidden = True
End If
Next i

End Sub

Man muss das Datum als Zahlenwert eingeben.. nach Datumsformat hat er das nicht gemacht.

39814 = 01.01.2009

Gruß

 

Hallo Marco,

Das musst du nicht umrechnen:
Code:

 

Hey,

Danke für diese Optimierung.

Viele Grüße

 

Hallo liebe Gemeinde.

Ich hab folgendes Problem.
Ich möchte wenn man bei einem Dropdownfeld "ja" auswählt das dann die Zeilen 32-35 ausgeblendet und bei "nein" wieder eingeblendet werden.

Ich hab schonmal ein Code rausgesucht der eigentlich funktioniert, allerdings nur wenn ich immer auf Play drücke und nicht wie gehofft automatisch.

Hier mein Code:
Sub Weg_wenn_nein()
If Range ("U31").Value = "ja" Then
Rows ("32:35").Hidden = True
Else
Rows ("32:35").Hidden = False
End If
End Sub

Was mach ich denn falsch? Ich habe den Code in der Tabelle via Rechtsmausklick Code anzeigen eingefügt.

Vielen Dank schonmal im Voraus für eure Hilfe*Smilie

 

Hi

wenn du ein Dropdown mit Daten-> Gültigkeit(Datenüberprüfung) gemacht hast...

dieser Code liegt im Tabellenblatt (rechte Maustaste auf dem jeweiligen Tabellenblattregister -> Code anzeigen und dort einfügen

Code:

 

Hey*Smilie
Vielen dank für die schnelle Antwort.

Ich habe bei daten--> Gültigkeit eine Liste mit ja und nein erstellt. Meintest du das?

Hab den Code eingefügt, aber bei mir kommt ein Fehler:
Fehler beim Komplimieren:
If-Block ohne End If

Und was nun?*frown.gif*

 

Hat sich gerade erledigt... Hatte ein End If vergessen.

Wenn ich aber im vba selber die play taste drücke, öffnet sich dann ein Makro Fenster:/
Wenn ich das Vba Fenster schließe und dann in U31 entweder ja pder nein auswähle passiert leider nichts

 

hi

nun, ja..

 

SUPER!!*Smilie hat geklappt*wink.gif*

Kann man da noch was einbauen, das die zellen ausgeblendet sind auch wenn kein wert in der zelle steht?

 

Hi


Code:

 

Woran kann es denn liegen, wenn ich den blattschutz aktiviere, das da dann eine fehlermeldung kommt?

Laufzeitfehler 1004:
Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden


Jetzt verschwindet auch das "ja" wenn ich ja auswähle:/

Sonst sehr cool...
danke*Smilie

 

Hi

Bei aktivem Blattschutz funktionieren keine Makros... ausser der Schutz wird mit dem Parameter Userinterfaceonly:=true versehen.

Suche mal in der Suchfunktion danach *Smilie, -> Userinterfaceonly
ich denke mal da gibt es einige Einträge.

 

Hallo,

sry für das Aufwärmen eines sol alten Threads, aber eure Test-Dateien (vom kaiser) haben mich wirklich weitergebracht. Einzig hab ich aus Zeilen Spalten gemacht, funktioniert an sich auch super!
AUßER: Ich habe eine doch recht umfangreiche Liste mit vielen Spalten, welche so auf eine angenehme Größe schrumpfen lasse, wobei manche Spalten sich nur manchmal entfernen lassen!

So bleiben manchmal (aber eben nicht immer) so 2-10 markierte Spalten übrig, die sich nicht entfernen lassen, wobei die in anderen Markierungsvarianten durchaus mitverschwinden.

An was kann das liegen?

Danke

 

Hi,

keine Ahnung *Smilie, dazu müsste ich wissen was Du jetzt an Code verwendest.
Eine Demomappe wäre auch von Vorteil.

 

Posting Nr.9 von dir.

Kann dir leider nicht die Datei schicken, da von der Firma. Aber habe exakt deine VBA-Konfiguration genommen, außer dass ich statt "Rows" "Columns" genommen habe und diese in ner anderen "Spalte"nnr. hineingesetz hab.

danke