Zeile ausblenden bzw. Spalte ausblenden wenn Zelleninhalt = "Text" (VBA)

[Drolln]

Hallo zusammen,

ich habe schon mal folgenden VBA Code erhalten mit dem eine Zeile ausgeblendet wird wenn in der ersten Zelle "Inaktiv" steht.


  Dokument1.pdf (Größe: 96,58 KB / Downloads: 11)


Könnt ihr Experten mir das umschreiben, sodass statt einer Zeile eine Spalte XY ausgeblendet wird wenn ich in die oberste Zelle der Spalte XY "Inaktiv" reinschreibe?

Jetzt schon mal vielen Dank!


Gruß
Tobias

[steve1da]

Hola,

ein Bild in einem PDF Dokument bei einem Excel Problem. Respekt.

Gruß,
steve1da

[Drolln]

Der Vollständigkeit halber noch die Quelle aus der ich den Code für "Zeile ausblenden" habe.

http://www.office-loesung.de/ftopic14906_0_0_asc.php


Gruß
Tobias

[Drolln]

Tja,

Screenshot ging nicht (Text zu lang).
Und Datei Anhängen mit dem ganzen Inhalt/Daten wollte ich nicht.


Gruß
Tobias

[ibu]

Moin.
Zur Aufgabe selbst kann ich Dir leider nicht helfen, da ich kein VBA beherrsche.

Zur Bereitstellung von Infos:

Es gibt ein sehr schönes AddIn, welches es erlaubt, in Excel markierte Zellen in HTML umzuwandeln, welches dann direkt hier in einen Beitrag eingefügt werden kann.

Sogar mit der Option statt des ausgebenen Wertes die dahinterliegende Formel zu zeigen.

https://www.clever-excel-forum.de/thread-12928.html

Ansonsten ist es für das Posten einer Problemstellung meistens nützlich ein "minimales Testcase" zu bauen und dieses zu posten.

Da müssen dann natürlich auch keine echten Daten drinstehen. Dummys reichen.

Viel Erfolg beim Lösen der Aufgabe.

Noch eine Idee:
Würde es vielleicht Deine Aufgabe auch lösen - es geht ja wohl darum Überblick zu erhalten und spezifische Zeilen auszublenden - wenn Du mit Hilfe eines Filters nur die Zeilen einblenden lässt, die das Merkmal "..." nicht enthalten?

Also statt des Lösungsansatzes "Ausschließen" den Ansatz "Einschließen"?

Siehe Anhänge.


  ce-filter.xlsx (Größe: 9,46 KB / Downloads: 1)    

[WillWissen]

Hallo Tobias,

Makros kannst du einfach kopieren und hier in Codetags wieder einfügen. Die Helfer können sich den Code dann hier herauskopieren und bearbeiten. Aus einem Bild oder einer PDF heraus ist das nicht möglich.

Den Schalter für die Codetags findest du in der zweiten Iconleiste (5. Icon von rechts).

[Drolln]

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long
Dim i As Long
lRow = IIf(Range("A65536") <> "", 65536, Range("A65536").End(xlUp).Row)
For i = lRow To 1 Step -1
If Range("A" & i) = "Inaktiv" Then Range("A" & i).EntireRow.Hidden = True
Next i
End Sub

Hoffe das ist so richtig.

Wollte ein Beispiel-Excelblatt mit dem Code einfügen aber hab festgestellt, dass ich nicht mal ein "Worksheet" einfügen kann. :22:


Gruß
Tobias

[Elex]

Hi

als Ansatz zu selbst weiter Gestalltung. Wenn du in eine Zelle "Inaktiv" schreibst, wird die Spalte ausgeblendet.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "Inaktiv" Then Target.EntireColumn.Hidden = True
End Sub

Gruß Elex