Selbe Zeilen ausblenden bei geänderter Zeilennummer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Milos,

vermeide so weit es geht die typische Excel-Fehler: das praktische und das schön zu vermischen. Es geht selten gut miteinander. Wenn Du "praktisch" arbeitest, spricht gut strukturierte Datenablage, ist meinstens sehr leicht daraus etwas -separat- schön zu machen. Umgekehrt ist es selten einfach.

Der zweite Fehler ist, feste Einstellungen im Code zu verwenden. Es ist extrem pflegeintensiv. Wenn jemand sagt, es muss zwischen 02 und 03 ein neuen Fall geben, muss 03 dann 04 werden usw. Viel Spass beim Code anpassen.

Idealer ist der Code sachverhalt-neutral und wird demtensprechend nie geändert.
Im Prinzip geht es hier nur um einen Filter. In einer Spalte müsstest Du eine Liste der Fälle haben: ";1;", ";1;2;", ";1;3;", ";2;3;" usw. Dann wäre es relativ leicht zu sagen: Filtere anhand dieser Spalte alle Zeilen, die den Zahl der Auswahl ("01-xxx" wäre 1, "02-yyy" wäre 2, ...) beinhalten.
Man verwendet ";2;" zu filtern, weil "12" beinhaltet sowohl "1" als auch "2". ";2;" reagiert nur auf ";2;", nicht auf ";12;" Kommas sind auch möglich, hauptsache durchgängig.

Kommentar im Code sind gut, aber es ist kein Textverarbeitung! Also so wenig wie möglich. Was selbstrklärend ist, nicht kommentieren. Leerzeilen im Code ist eine Krankheit. Einrücken bringt die Lesbarkeit.

Dein Code könnte so aussehen, gehe aber lieber auf der Methode mit Filtern ein:

Private Sub Worksheet_Change(ByVal Target As Range)

'set timestamp in Column B of the row of the changed cell

    If Target.Column = 35 Then Target.EntireRow.Range("C1").Value = Now 'EntireRow give back only 1 row. Within is everything "first row"

  

' Protein measurement rows Hidding

    If Not Intersect(Target, Range("CZ0400_SELECT_PROTEIN_MEASUREMENT")) Is Nothing Then

        Rows("15:40").Hidden = False 'Default: all rows visible

        Select Case Range("CZ0400_SELECT_PROTEIN_MEASUREMENT").Value

        Case "00 - Select!": Rows("15:40").Hidden = True

        Case "01 - Analytical balance": Rows("34:40").Hidden = True

        Case "02 - Lunatic": Rows("15:33").Hidden = True

        End Select

    End If

End Sub

Der Kommentar ist übrigens falsch, bzw. veraltet. Du hast irgendwann eine Spalte davor eingeführt und jetzt kommt das Datum in Spalte C. btw: genau hier mache ich den Fehler, die Zelle in Spalte C im Code festzuschreiben ;-) Aber Spalte "35" ist auch fest... Es ist nicht immer vermeidbar, feste Vorgabe zu vermeiden.
Arbeite lieber mit Tabellen (Menü "Einfügen", "Tabelle"), diese können anhand deren Spaltenname angesprochen werden.

VG
Yal

Hallo Yal

Vielen Dank für deine Erklärungen!

Die vielen Kommentare im Code sind/waren für mich, weil ich VBA nicht wirklich beherrsche. Ich musste immer verstehen, was der Code macht und mit Copy & Paste wurden sie weiter mitgeschleppt.

Mit der "Schönheit" der Excel-Sheets hast du natürlich recht. Aber das jetzige Aussehen erklärt sich aus der Historie des Dokuments. Die ersten Versionen hatten Vorgaben, die mich zu einem bestimmten Design gezwungen haben. Zum Beispiel mussten die einzelnen Arbeitsblätter ausdruckbar und handschriftlich ausfüllbar sein. Einige Meinungsbildner hatten damals nicht den Mut, sich in einem Schritt vom Papierprotokoll zu lösen.

Derzeit besteht das Dokument aus 47 einzelnen Arbeitsblättern, die mehr oder weniger irgendwie miteinander in Beziehung stehen. Mit der kommenden Version (bereits V08) darf ich mich erstmals von der Vorgabe "ausdruckbar" lösen. Und da das Dokument bis zur Version 7 mit dieser Vorgabe leben musste und die neue Version wie immer möglichst schnell verfügbar sein muss, kann ich am Design nur wenig ändern. Ja, und das ärgerlichste ist, dass niemand das Dokument je ausgedruckt hat und die damaligen Meinungsmacher sind in Rente.

Die Lösung mit dem Filtern hatte ich auch schon mal ausprobiert, bin aber am VBA gescheitert. Aber ich schaue mir diese Möglichkeit noch einmal an. Dein Codevorschlag zum Ausblenden sieht besser aus als meine Lösung und wäre einfacher zu pflegen. Falls ich es mit dem Filtern nicht hinkriege werde ich diese Lösung einbauen.

Ich finde es toll, dass du dir so viel Zeit für mein Problem genommen hast. Nochmals vielen Dank!

LG, Milo

Beliebteste Forumthreads (12 Monate)

Selbe Zeilen ausblenden bei geänderter Zeilennummer

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Selbe Zeilen ausblenden bei geänderter Zeilennummer

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread