Office: Prüfung ob Spalte leer

Hallo alle zusammen,

ich habe ein fast gut funktionierendes Marko zusammen gebastelt. Verschiedene Spalten werden mit Text in Spalten in tatsächliche Zahlen umgewandelt, in eine intelligente Tabelle formatiert, ein Pivot Table darunter - das klappt seit ein paar Wochen soweit alles gut.
Jetzt hat sich heute gezeigt, dass die Spalte M leer sein kann. Dann läuft Text in Spalten auf einen Fehler. Jetzt will ich eine Prüfung laufen lassen, die guckt ob die Spalte vollständig leer ist und wenn nicht den "Text in Spalten Teil" ausführt und wenn sie vollständig leer ist den "Text in Spalten Teil" überspringt.

Das hier habe ich geschrieben:

If Not IsEmpty(Range("M2:M600")) Then GoTo Next1 Else GoTo Next2

Next1: ... "Text in Spalten"
Next2: ... Weiter mit formatieren als intelligente Tabelle

Die Spalte M hat einen Titel in der ersten Zeile. Deswegen will ich die Spalte erst ab Zeile 2 prüfen. (Die Tabelle sollte die 600 Zeilen um Längen nicht erreichen.)
Die Prüfung funktioniert aber nicht. Der Code springt immer zu Next1. Egal ob die Spalte M ab Zeile 2 gefüllte Zellen beinhaltet oder nicht.

Kann mir bitte jemand sagen, wie ich diese Prüfung richtig vornehme?

Vielen Dank im Voraus

Grüße
Harald

:)

 

Moin
Versuch es mal so.
Code:

gruss hary

 

Hallo hary,

vielen Dank.
Ich habe das so verstanden und eingegeben:
If Application.WorksheetFunction.CountA(Range("M2:M600")) = 0 Then GoTo Next1 Else GoTo Next2

Dann springt der Code immer zu "Next2" und formatiert gleich als intelligente Tabelle...
Das klappt so nicht. Habe ich das richtig verstanden?

Mit "vollständig leer" meine ich tatsächlich, dass die Zellen keinen Inhalt haben. Also auch keine "0"

Grüße
Harald

 

Moin
Code:

gruss hary

 

Hallo hary,

vielen Dank.
Das habe ich jetzt so eingegeben:

If Application.WorksheetFunction.CountA(Range("M2:M600")) = 0 Then
GoTo Next1
Else
GoTo Next2
End If

Jetzt ist es wiederum egal ob in der Spalte M was drin steht oder nicht. Die Prüfung springt immer zu "Next2".

Das erste "GoTo" wird ignoriert...?!

Grüße
Harald

 

HI,
ich grätsche mal reiN.

Ist gesichert, dass das richtige Tabellenblatt aktiv ist? Ohne Worksheet-Angabe greift Range auf das aktive Tabellenblatt zu, evtl. mal die Worksheet-Angabe davor ersetzen:

Code:

Tabelle1 muss natürlich durch den richtigen Blattnamen ersetzt werden.

 

Hallo Regina,

danke für's rein grätschen :-)

Eigentlich ist das WS aktiv. An der Zeile habe ich einen Halt gesetzt, führe den vorherigen Code mit F5 aus und von da schrittweise weiter mit F8. Alle Aktionen werden in dem Worksheet durchgeführt.

Ich habe das aber trotzdem mal so angepasst, wie Du geschrieben hast.

Jetzt ist mir aufgefallen, dass - egal was ich einsetze - der Code "sieht" das erste "GoTo" nicht. Die gelbe Marke beim schrittweisen Durchgehen mit F8 springt immer direkt zum "Else".

VBA hat mir beim Umschreiben einen Doppelpunkt hinter's "Else" gesetzt. Den habe ich auch mal stehen lassen und mit und ohne probiert.

Der Marker springt also immer direkt zum Else. Ich habe das auch mit meiner ursprünglichen Zeile versucht, dasselbe.

Hier die beiden "Codeblöcke", die ich versucht habe:

If Application.WorksheetFunction.CountA(Worksheets("Tabelle1").Range("M2:M600")) = 0 Then
GoTo Next2
Else:
GoTo Next1
End If

oder

If Not IsEmpty(Range("M2:M600")) Then
GoTo Next1
Else:
GoTo Next2
End If

Das jeweils erste GoTo scheint da überhaupt nicht zu stehen. Der Marker springt da einfach drüber. Ich hab's mit gefüllten Zellen in M versucht und mit leeren - bei beiden "Versionen".

Der VBA Editor erkennt das "GoTo". Ich geb's klein ein und der Editor korrigert die Großschreibung.

Grüße
Harald

 

HI Harald,
ich habe den Code eben mal ausprobiert, funktioniert problemlos, es muss also an Deiner Datenlage liegen. Folglich wäre es jetzt sinnvoll eine Beispieldatei hochzuladen.

 

Hallo Regina,

hm - interessant.
Ich habe die Tabelle mal anonymisiert, den Code etwas angepasst und den Rest, nach der Prüfung rausgenommen.

Die Prüfung ist fast ganz unten und ich habe sie mehrfach auskommentiert. Dann ist sie leichter zu sehen.

Nachdem in der letzten Spalte kein Betrag steht, läuft die Text in Spalten eben ins Leere und erzeugt einen Fehler. Den Rest kennst Du ja.

Ich hoffe Du kannst mir vielleicht sagen, was mit dieser - wie nennst Du das - "Datenlage" - verkehrt ist.

Viele Grüße
Harald

 

Hallo Harald,
merkwürdig: Die Zellen scheinen leer zu sein, sind es aber irgend wie doch nicht. Ich habe M2 bis M600 markiert und dann die Entf-Taste gedrückt. Danach funktioniert der Code.

Wie hattest Du die Zellen geleert?

 

Da ist in jeder Zelle ein Zeilenumbruch drin

Mit

Code:

könnte man prüfen, ob überall nix drinsteht (Rückgabewert WAHR)

 

Gnümpf: das hätte ich auch sehen können/müssen/dürfen ...

 

Ich grätsche mal mit: Sprungmarken sind ziemlich bäh. Vermeide GoTo wenn es geht.
[/Graetsche]

 

Guten Morgen zusammen,

vielen Dank für Eure Beiträge.

Ich hatte gelesen, dass "GoTo" zu vermeiden ist, weil es zu Spaghetti Code führt. Nachdem meine Sprungmarken knapp darunter liegen und mir mangels Wissen über VBA nix Besseres einfiel, dachte ich das machen zu können. Im Prinzip war meine Idee ja nicht ganz verkehrt. Bei Regina funktioniert der Code.
Ansonsten unbedingt vermeiden - das leuchtet mir ein - man kann sich mit GoTo ganz schön verfusseln.

Jetzt verstehe ich aber immer noch nicht, wie ich diesen Fehler abfangen kann?

Kann mir da bitte jemand helfen meinen ersten Error-Handler zu bauen?

Vielen Dank und Grüße
Harald

 

Guten Morgen Scorefun,

ahm - wie erkennst Du denn, dass da ein Zeilenumbruch drin steht?

Kann es sein, dass der Fehlversuch von Text in Spalten auf die leere Spalte diese Zeilenumbruch eingefügt hat?
Oder das Script mit dem ich die Datei anonymisiert habe?
Ich weiß nicht, wie ich das prüfe, sonst würde ich mir das in der original Datei mal anschauen...

Gruß
Harald