Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten löschen

Forumthread: Spalten löschen

Spalten löschen
27.10.2004 08:34:22
Georg
Hallo,
ich möchte alle Spalten per VBA löschen, die in der ersten Zeile keinen Eintrag enthalten.
Vielen Dank für jede Hilfe.
Grüße
Georg
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten löschen
ChrisL
Hi Georg

Sub t()
Dim iSpalte As Integer
Application.ScreenUpdating = False
For iSpalte = 256 To 1 Step -1
If Cells(1, iSpalte) = "" Then Columns(iSpalte).Delete
Next iSpalte
Application.ScreenUpdating = True
End Sub

Gruss
Chris
AW: Spalten löschen
27.10.2004 08:51:51
Harald
Moin Georg,
probier mal das.

Sub Wegdamit()
For n = 256 To 1 Step -1
If Cells(1, n) = "" Then
Cells(1, n).EntireColumn.Delete
End If
Next n
End Sub

Gruß
Harald
Anzeige
AW: Spalten löschen
27.10.2004 08:53:37
Rolf
Hallo Georg,
das packst du am besten
in eine For..Next-Schleife,
etwa so
For i = 1 to n
if cells(1,i)="" then
columns(i).entirecolumn.delete
end if
next i
Aber erst mal in Testdatei ausprobieren.
FG
Rolf
AW: Spalten löschen/Danke
Georg
Hallo,
vielen Dank an alle.
Hat geklappt.
Grüße
Georg
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige