Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: leere Spalten entfernen

leere Spalten entfernen
27.04.2006 23:18:07
Mc
Hallo Leute,
bräuchte noch mal Hilfe.
Ich möchte per VBA alle leeren! Spalten, die im Bereich von Spalte A bis Spalte AD in unregelmäßigen Abständen auftreten automatisch ohne Nachfrage löschen, bzw. entfernen. Wie kann ich das realisieren?
Danke für jede Hilfe.
__________________
Gruß Mario
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: leere Spalten entfernen
27.04.2006 23:36:26
Josef
Hallo Mario!
Das geht z.B. so!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub LeereSpaltenWeg()
Dim rng As Range, rngDel As Range

For Each rng In Range("A1:AD1")
  If Application.CountA(rng.EntireColumn) = 0 Then
    If rngDel Is Nothing Then
      Set rngDel = rng.EntireColumn
    Else
      Set rngDel = Union(rngDel, rng.EntireColumn)
    End If
  End If
Next

If Not rngDel Is Nothing Then rngDel.Delete

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: leere Spalten entfernen
27.04.2006 23:51:28
Mc
Hallo Sepp,
vielen Dank.
Funktioniert einwandfrei! Genauso wollt ich es haben.
Schönen Gruß
Mario.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige