Leere Zeilen automatisch ausblenden

[Superpaul]

Servus Zusammen,

Ich habe ein vermutlich ziemlich einfaches Problem, steh allerdings aufn Schlauch!
Folgender Ausgangswert:

Aus einer anderen Tabelle werden folgende Werte ermittelt:
(Werte können variieren - z.B. könnte im Beispiel auch Zelle 3 befüllt sein)

Spalte A
1. XY200
2. XA100
3.
4. EZ300
5.

Ich würde diese Werte gerne ausblenden und nur die gefüllten anzeigen lassen / dies soll in Zukunft automatisch geschehen.


Spalte A
1. XY200
2. XA100
3. EZ300

Gibt es hierfür eine Lösung?

VG


Paul

[WillWissen]

Hi Paul,

wie holst du dir die Werte aus der anderen Tabelle? Wenn dahinter eine bestimmte Bedingung steckt, könntest du die Werte mit INDEX/AGGREGAT holen; dann entfallen die Leerzellen. Zeig mal bitte einen Tabellenausschnitt (kein Scrshot!!) oder eine kleine Beispieltabelle (http://www.clever-excel-forum.de/Thread-...einstellen oder http://www.clever-excel-forum.de/Thread-...ng-stellen)

[Superpaul]

Hi Paul,

wie holst du dir die Werte aus der anderen Tabelle? Wenn dahinter eine bestimmte Bedingung steckt, könntest du die Werte mit INDEX/AGGREGAT holen; dann entfallen die Leerzellen. Zeig mal bitte einen Tabellenausschnitt (kein Scrshot!!) oder eine kleine Beispieltabelle (http://www.clever-excel-forum.de/Thread-...einstellen oder http://www.clever-excel-forum.de/Thread-...ng-stellen)

Servus Günter,

diese Werte werden in der gleichen Tabelle ermittelt.

Ich häng die Datei mal mit einer Testbefüllung dran.
Ziel wäre es, dass die Werte untereinander stehen, beginnend in Zeile 17.

[Zwergel]

Hi,

diesen Code im VBA Explorer hinter das Projekt Tabelle einfügen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Range("A17:K26").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
   'Selection.AutoFilter
   ActiveSheet.Range("$A$16:$K$26").AutoFilter Field:=1, Criteria1:="<>"
End Sub

[Superpaul]

Hi,

diesen Code im VBA Explorer hinter das Projekt Tabelle einfügen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Range("A17:K26").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
   'Selection.AutoFilter
   ActiveSheet.Range("$A$16:$K$26").AutoFilter Field:=1, Criteria1:="<>"
End Sub

Servus Michael,

erstmal vielen Dank für deine Hilfe! :)
Leider bin ich ein totaler Makroneuling - sprich, ich hab überhaupt keine Ahnung was ich wie, wo einfügen soll :22:
Bisher habe ich hierzu auch nichts brauchbares im Netz gefunden. :(

Gibt es eine Art Leidfaden, nach dem ich vorgehen kann?

Vielen Dank vorab! :)

VG

Paul

[Peter]

Hallo,

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

[Zwergel]

Hi,
wie der Code in deine Datei eingepflegt wird hat dir Peter ja schon erklärt.
Damit der Code auch in der Datei gespeichert wird, speicher die Datei als .xlsm oder .xlsb

[Superpaul]

Mega!
Die Makros hatte ich sogar bereits so eingefügt, jedoch ohne es als .xlsm Datei zu speichern...

Vielen vielen Dank euch!!

[Superpaul]

Servus!

Muss mich hierzu leider nochmal melden!
Wollte den o.g. Code ebenfalls auf andere Dateien ausweiten und entsprechend anpassen.

Bsp.

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A18:K24").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    'Selection.AutoFilter
    ActiveSheet.Range("$A$17:$K$24").AutoFilter Field:=1, Criteria1:="<>"
End Sub

Leider stoppt dann dieser Code nicht bei Zeile 24 sondern geht bis Zeile 38.

Was mach ich falsch?

VG

Paul

[Superpaul]

Keiner eine Ahnung? :20: