Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige