Verstreute leere Zellen automatisch löschen

[apfelschorle]

Hallo,

ich hoffe mir kann hier jemand bei dem Problem helfen, da ich hierzu nichts gefunden habe  , was auch funktioniert hat  :17:
Zum Problem:
Ich habe eine große Tabelle in der verstreut Werte stehen, die leeren Zellen dazwischen, sollen automatisch gelöscht werden und nach links geschoben werden oder in einen anderen Bereich(Tabelle) übertragen werden. Wichtig dabei ist nur, dass die Werte in der Zeile bleiben und nicht nach oben rutschen.




Beispielhaft

Artikel           E        F          G            H           I            J              K---->Spalte DE
def              303       12         1           -               -           55       -
xyz               -          1            -           -               88         21        -
abc               5          -            6           -                -           14       -
  
bis Zeile 2500


ohne die leeren Zellen:

Name  E                 F           G         H         I         J         K
def     303             12          1         55
xyz       1               88          21
abc      5                6            14

[Kuwer]

Hallo,

Sub LeerzellenLoeschen()

    Cells.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft

End Sub

Gruß Uwe

[apfelschorle]

Hallo, 

besten Dank für die schnelle Antwort :18: , ich nehme mal an VBA ---> Entwicklertools Makros dort reinpacken und Tabellenbereich markieren + Makro ausführen ? 
So habe ich das gemacht passiert aber nix, bin ich hier überhaupt richtig bei VBA ? sry totaler Excel Anfänger

Viele Grüße

[Käpt'n Blaubär]

Hallo,

... Makros dort reinpacken ...

ist fast richtig. Der Dir von Uwe gepostete Code gehört in ein Allgemeines Modul, daß man zunächst mal anlegen muß  :19:

und ... dann passiert immer noch nichts. Du mußt das Makro jedes Mal starten, wenn es was tun soll.
Das kann man zum Beispiel über ein Steuerelement, etwa einen Button, tun oder man startet es direkt.

[apfelschorle]

Hallo Käpt'n Blaubär,

vielen Dank für Deine Antwort, ich bin nach http://www.j-hennekes.de/1033846.htm <--- Beispiel 1) Code muss in ein allgemeines Modul vorgegangen. Jetzt habe ich zwar eine Schaltfläche, die beim Drücken eine komplett leere Spalte löscht, aber wenn ein Wert in der Spalte steht passiert nichts...

liegt das jetzt am Makro oder an der Implementierung


Viele Grüße




 

[atilla]

Hallo,

es kann sein, dass "leer" hier allgemein definiert werden sollte.

Was ist für Dich "leer"? Wenn es, wie im gezeigten Beispiel die "-" sind, dann funktioniert das nicht, wie Uwe es gezeigt hat.

Stell bitte ein Beispiel ein, wie es tatsächlich bei Dir aussieht.

[apfelschorle]

Hallo,

Zum Problem:

Ich habe eine große Tabelle in der verstreut Werte stehen, die leeren Zellen dazwischen, sollen automatisch gelöscht werden und nach links geschoben werden oder in einen anderen Bereich(Tabelle) übertragen werden. Wichtig dabei ist nur, dass die Werte in der Zeile bleiben und nicht nach oben rutschen.

schwarz vor /rot nach löschen der leeren Zellen

   

[atilla]

Hallo,

das Problem ist schon verstanden worden.

Das Problem ist, dass wir nicht anhand der Bilder erkennen können, wie es in Deiner Tabelle aussieht.
Sind da Formel drin, sind da leer Strings drin...etc.
Und wir sehen auch nicht, wie es nachher aussehen soll.

Irgendwo im Forum war erklärt, wie man Tabellenausschnitte oder Dateien hier einstellt.
Ich bin zwar länger hier aktiv, aber ich finde das jetzt nicht. Vielleicht gelingt es Dir oder ein anderer Helfer zeigt uns das.

[apfelschorle]

Hallo,

das sind nur Werte, ganz normale Zahlen drin. Auch keine Formeln nix :19:

Viele Grüße



      Vor




      Nach löschen

[atilla]

....dann sollte Uwes Vorschlag funktionieren.


Sonst eine vernünftige Datei hochladen an dem wir uns etwas austoben können.