Verstreute leere Zellen automatisch löschen

[apfelschorle]

....dann sollte Uwes Vorschlag funktionieren.


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

Hallo,

ich hoffe die eingefügten Bilder, im oberen Beitrag helfen weiter.

Viele Grüße

    Vor

       Nach löschen der leeren Zellen

[atilla]

Hall,

du bist aber hartnäckig beim Verweigern einer Beispielmappe.

So hab jetzt mal nachgebaut:

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D	E	F
1
2			13		7
3	44
4	15			44	20
5	88
6	1	7				55
7	28
8					36	85
9						44

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

und nach Ausführung von Uwes Code sieht es so aus:

Arbeitsblatt mit dem Namen 'Tabelle3 (2)'
	A	B	C
1
2	13	7
3	44
4	15	44	20
5	88
6	1	7	55
7	28
8	36	85
9	44

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Also passt alles.

[Käpt'n Blaubär]

Hallo,

... ich hoffe die eingefügten Bilder, im oberen Beitrag helfen weiter.

nein, ... das können sie nicht und das tun sie auch nicht.

Wie schreibt Ralf (Rabe) immer so schön: "Wenn Dein Auto kaputt ist, dann gehst Du doch auch nicht mit 'nem Bild in die Werkstatt."

[WillWissen]

Hi,

ich hoffe die eingefügten Bilder, im oberen Beitrag helfen weiter.

nein, wie schon mehrfach angemerkt, benötigen die Helfer eine Beispieltabelle!! Lies mal bitte hier: http://www.clever-excel-forum.de/thread-326.html

Selbst wenn nur ein paar wenige Einträge vorhanden sind, erleichert es den Helfern trotzdem das Helfen. Dann muss niemand nach einem Bild eine Tabelle nachbauen.

Und noch so nebenbei bemerkt: als absoluter VBA-Lehrling habe ich Uwes Vorschlag ausprobiert. Sein Makro bewirkt genau das, was du haben möchtest. Es wäre für die Helfer jetzt besonders hilfreich, wenn deine Beispieltabelle auch den von dir einkopierten Code enthält. Dann lässt sich leichter feststellen, wo sich der Fehler befindet.

[apfelschorle]

Hallo,

die Tabelle befindet sich im Anhang, ich hoffe jemand bekommt dieses Macro zum laufen würde mich sehr freuen 

Viele Grüße

[atilla]

Hallo,

woher stammen  die Daten in der Tabelle?

Da sind in den Zellen irgendwelche Zeiche aber ich habe noch nicht herausgefunden welche.

[atilla]

Hallo,

ich habe immer noch nicht herausfinden können, was da für Zeichen drin sind in den scheinbar leeren Zellen.

Aber ich habe eine Lösung, wie man trotzdem diese Zellen löschen kann.

Das macht folgender Code, aber der Bereich muss fest angegeben werden:

Code:

Sub mach()
 [A2:DB2000] = [if(A2:DB2000="","=1/0",A2:DB2000)]
 Range("A2:DB2000").SpecialCells(xlCellTypeFormulas, 16).Delete Shift:=xlToLeft
End Sub

@snb
habe ich gut aufgepasst? :19:

@all
findet das Zeichen in den leeren Zellen in der eingestellten Datei vom TE

[WillWissen]

Hi,

kopiere den kompletten Inhalt deines Blattes mit STRG-C und füge ihn in eine neue Datei mit Rechtsklick - An Zielformatierung anpassen - ein.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Danach kopierst du das Makro, fügst es in ein Modul ein und weist es deiner Schaltfläche zu. Danach funktioniert deine Verschieberei.

Edit sagt:

Atilla war schneller :)  und ich habe nicht aktualisiert. :(

[apfelschorle]

Hallo,

ich habe den neuen Programmcode gerade ausprobiert und er funktioniert !!!

An dieser Stelle vielen Dank an alle Beteiligten, die mir bei diesem Problem weitergeholfen haben.

:19:  :28: :28: :28:

[atilla]

Hallo

Und nun....

Woher hast Du die Daten?