Office: Spalten löschen wenn leer

Hallo,

ich bin neu und suche für eine übersichtlichere Tabelle die Möglichkeit, Leere Spalten zu löschen.
Ich habe eine Tabelle1 die von A1-AG3000 geht. Es müssen nicht überall Daten stehen.
Dann sortier ich mir die Tabelle nach Kriterien und kopiere die Gefilterten Zeilen in ein neues Blatt, was aber jetzt alle Spalten besitzt, auch wenn sie Leer sind.
Wie kann man per VBA jetzt sagen: Ist Letzte Zelle Leer ( suche geht ja von hinten ) und Spalte auch Leer, dann Lösche Spalte. Zum Schluss sollen nur noch Zeilen/Spalten sichtbar sein die Text/Werte haben.

Die Kopie hat überschriften die aber gelöscht werden können solange Spalte leer.


Beispiel:

A | B | C | D | E | f | g
2 | 6 | Leer | 9 | 4 | | 8
1 | 5 | Leer | g | B | z |
g | t | Leer | l | u | | kk

Hier soll C gelöscht werden weil komplett Leer, F soll stehen bleiben weil F2 Wert hat.

Ich dachte mal über eine Schleife oder so, kenne mich aber nicht aus.


Vielleicht kann jemand helfen, habe über die Suche leider nichts gefunden was mir weiter helfen könnte.

grüsse
Womannicer

:)

 

Hi Womannicer,

hast du zumindest Überschriften in deiner kopierten Tabelle - damit man damit erkennen kann, wie viele Spalten es insgesamt gibt?

Ich hab jetzt mal ein Beispiel erstellt, welches genau den von dir genannten Bereich (33 Spalten, 3000 Zeilen) abdeckt.

Code:

HTH
JBond

 

Hallo,

nur mit einer Schleife und Löschen der Spalten im Block und nicht einzeln.

PHP:

         Public Sub Spalten_löschen()
Dim loSpalte As Long, i As Long, raWeg As Range

Application.ScreenUpdating = False

With Worksheets("Tabelle1")
loSpalte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
For i = 1 To loSpalte
If WorksheetFunction.CountA(.Columns(i)) = 0 Then
If raWeg Is Nothing Then
Set raWeg = .Cells(1, i)
Else
Set raWeg = Union(raWeg, .Cells(1, i))
End If
End If
Next i
If Not raWeg Is Nothing Then
raWeg.EntireColumn.Delete
End If
End With

Set raWeg = Nothing
End Sub


 

Hallo,
danke für eure antworten, hab beide probiert, aber ohne erfolg.
Ist auch nicht negativ gemeint, war mein Fehler.

Tabelle1 ist mein Blatt, wo ich die die Filter aufrufe, und das Ergebnis der Suche ausgebe ab Zeile 15. In Zelle 14 steht die Überschrift drin, aber es werden nur Daten ausgegeben, also nicht als Tabelle kopiert.
Die Überschriften können alle weg, wenn drunter leer ist.
Und die bis jetzt längste Zeilen waren bis jetzt etwa 120 Zeilen.

Vielleicht, kann man auch schauen, wie viele Zeilen kopiert wurden.
wenns 10 sind dann 10 Zellen prüfen ob leer, wenn 30 dann 30 Zellen, dann bräuchte man nicht bis 3000 prüfen.

grüsse
womannicer

 

Moin
Versuch mal den Code.
Code:

gruss hary

 

Hallo Hary,

vielen Dank, funktioniert wie ich es mir gewünscht hatte.

grüsse
womannicer