Office: (Office 365) Zeile ausblenden anhand bestimmter Werte

Hallo Community!

Ich habe mal wieder ein Excel- bzw. VBA-Problem

Da ich mithilfe von Google leider nicht weitergekommen bin, habe ich mich entschlossen, mich in diesem Forum anzumelden

In meiner Tabelle (ein Bsp. Hierzu habe ich auch als Anhang beigefügt) gibt einige Spalten. Die für mich relevanten Daten befinden sich in den Spalten A bis C:
Spalte A Stücklisten-Nr.
Spalte B Teile-Nr.
Spalte C Teilebenennung

Hier bei uns ist es so, dass nach dem Baukastensystem gearbeitet wird, also die Teilevielfalt so gering wie möglich gehalten wird. Deshalb kommen in einigen Baugruppen die gleichen Teile vor. Diese habe ich bereits mittels bedingter Formatierung hervorheben lassen -> markiere alle doppelten Werte, außer das erste Vorkommnis.

Um den Überblick nicht zu verlieren, möchte ich nun mittels Button (1) erreichen, dass die Zeilen, mit den markierten Werten ausgeblendet werden können.
Mit einem weiteren Button (2) möchte ich die ausgeblendeten Zeilen wieder einblenden.

Ich denke, dass mein Wunsch für die Community kein Problem darstellt & bedanke mich schon im Voraus

 

Hi,

am besten verwendet man dafür einen ToggleButton und nicht 2 einzelne Button.

---

 

Hi Beverly,

und wie funktioniert das?

 

Sorry, hab deinen Anhang total übersehen

 

Erstmal ein riesiges Dankeschön an Beverly!

Aber ich hab noch eine Frage

In Blatt 1 habe ich sämtlichen Stücklisten aufgelistet:
Spalte A: Stücklisten
Spalte B: Benennung

In Blatt 2 sind alle Stücklisten aufgedröselt:
Spalte A: Stücklisten-Nr. (aus Blatt 1)
Spalte B: Teile-Nr.
Spalte C: Benennung

In Blatt 2 möchte ich nun Zeile X von Spalte A-D farblich hervorheben, wenn die BG aus Blatt 1 erscheint.
Sprich: Prüfe, ob in Ax die Stüli-Nr. aus Blatt 1 UND in Cx die zugehörige Benennung auftaucht; wenn ja markiere Zeile X von Spalte A-D in gelb.

Welche Möglichkeit/en gibt es, das Ganze sinnvoll zu gestalten?

In meiner Arbeitsdatei habe ich die Spalten Stücklisten und Benennung als 2 Tabellen formatiert:
Spalte A: Tabelle1 / Datenbereich "Stücklisten"
Spalte C: Tabelle2 / Datenbereich "Benennung"

Dann habe ich versucht, in Blatt 2 die jeweiligen Zeilen mittels bedingter Formatierung (Prüfung via SVERWEIS: SVERWEIS($C2;Benennung;1;1) ) einzufärben. Leider ohne Erfolg; wobei eine "normale" Prüfung - also ohne bed. Formatierung - funktioniert hat.

Die Beispieldatei ist "nackig" & zu allen Schandtaten bereit

 

Hola,
als Formel in der bedingten Formatierung:
=ZÄHLENWENNS(Tabelle1!$A$2:$A$3;$A2;Tabelle1!$B$2:$B$3;$C2)
Bereiche musst du natürlich anpassen.
Gruß,
steve1da

 

Hallo steve1da,

ein gutes Neues Jahr 2023 & Dankeschön für die Formel!

Sorry für die späte Rückmeldung meinerseits - ich lag krank im Bett und hatte dann Urlaub.
Ich finde, gesund werden und Urlaub sind etwas wichtiger, als Excelformeln ausprobieren

Grüße
Nicoletta

 

Hallo allerseits!

Ich hab noch eine Frage:
in der Tabelle hat Beverly (siehe Anlage) einen Toggle-Button erstellt, um die Zeile, die doppelte Werte ( Werte >1 ) aus-/einzublenden. Das funktioniert super!

Nun ist es in meiner Arbeitsdatei so, dass ich hier meine Stücklisten aus mehreren Dateien zusammen kopiere.
Meine Arbeitsdatei als auch die anderen Dateien sind so formatiert, dass die Spalte mit den Stücklistenpositionen, hier "Stufe" genannt mittels bedingten Formatierungen formatiert sind, um die einzelnen Stufen zu unterscheiden.
=> siehe Beispieldatei, Spalte B.

Nun ist es aber leider so, dass beim kopieren der Stücklisten in meine Arbeitsdatei nicht nur die reinen Daten, sondern auch die Formatierungen mit kopiert werden. Dabei entsteht natürlich ein regelrechtes Chaos im Formatierungsmanager (Start ->Formatvorlagen -> Bedingte Formatierung -> Regeln verwalten). Das ist ziemlich ärgerlich.

Um dieses Problem zu beheben, würde ich einfach alle Formatierungen Formatierungen löschen und mittels Makro anschließend auf einem Rutsch wieder einfügen.

Gibt es eine Möglichkeit, alle Makros bequem via Button zu löschen?

Schon mal vielen Dank vorab!

 

Ach, ich bin ganz schön doof

Ich hab den Befehl gefunden.
Tja, wer lesen kann

 

Frage: weshalb willst du alle Makros löschen????

Außerdem: weshalb willst du die bedingten Formatierungen löschen und anschließend wieder neu erstellen? Das kann man doch umgehen, indem man nicht einfach per Strg-V einfügt sondern wie folgt vorgeht: -> Register: Start -> Befehlsgruppe: Zwischenablage -> Schalter: einfügen -> Werte einfügen -> Werte. Dazu kann man ein Makro aufzeichen und einer Tastenkombination zuweisen.

---

 

Hallo Beverly,

ich habe nicht die Makros gemeint, sondern die Bedingten Formatierungen.

Gerade habe ich deinen Tipp zum Einfügen der Daten ausprobiert. Danke für den Tipp!
Meine Daten habe ich bisher per Copy/Paste eingefügt und dann ggf. angepasst.

 

Hallo Beverly,

vielleicht kannst du mir beim Aufzeichnen des Makros zum Einfügen weiterhelfen:
1. Daten kopieren via Button oder Strg+C
2. Ziel auswählen (z.B. Zelle A1)
3. Aufzeichnung Makro starten
4. Daten einfügen via Button oder Strg+V oder Start -> Befehlsgruppe: Zwischenablage -> Schalter: einfügen -> Werte einfügen -> Werte
5. Aufzeichnung Makro beenden

Wenn ich jetzt aber Daten kopiere und via Makro einfügen möchte, bekomme ich eine Fehlermeldung:



Ich denke, wir haben hier den klassischen Fehlercode 50: Das Problem ist 50cm vom Bildschirm entfernt

 

Hi Nicoletta,

der Fehler tritt dann auf, wenn nichts zuvor kopiert wurde. Versuche es deshalb so:

Code:

On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
On Error GoTo 0

Mit On Error Resume Next wird dieser Fehler abgefangen, sodass der Code nicht abbricht sondern weiterläuft, aber eben nichts einfügt, weil nichts in der Zwischenablage ist.

---

 

Hi Beverly,

Danke für die Antwort - werde ich nächste Woche mal ausprobieren.

Aber zu deinem Toggle-Button habe ich eine Frage.
Du hast in VBA folgendes hinterlegt:

Private Sub ToggleButton1_Click()
Dim lngZeile As Long
Dim lngLetzte As Long
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If ToggleButton1 Then
ToggleButton1.Caption = "Einblenden"
For lngZeile = lngLetzte To 2 Step -1
If Cells(lngZeile, 2).DisplayFormat.Interior.Color = 13551615 Then Cells(lngZeile, 2).EntireRow.Hidden = True
Next lngZeile
Else
ToggleButton1.Caption = "Ausblenden"
Rows.Hidden = False
End If
End Sub

In der Beispieldatei waren die doppelten Werte in Spalte B zu finden; in meiner Arbeitsdatei aber in D.
Was muss ich hier ersetzen?

Schönes Wochenende!

 

Hi Nicoletta,

Zelladressen fordern immer eine Spalten- und eine Zeilenangabe. Dabei gibt es 2 Möglichkeiten, Range() und Cells(), die sich etwas unterscheiden - Range("SpaltenbuchstabeZeilnnummer") und Cells(Zeilennummer, Spaltennummer). Z.B. für Zelle C4:

- Range("C4") - Spaltenbuchstabe C Zeilenummer 4
- Cells(4, 3) - Zeilennummer 4 Spaltennummer 3 (=C)

Im Code wird Spalte B geprüft, also Spaltennummer 2. Wenn du nun nicht Spalte B sondern D prüfen willst, musst du an allen Stellen die Spaltennummer 2 durch Spaltennummer 4 ersetzen, da Spalte D die Spaltennummer 4 hat.

---