Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
AW: Spalten löschen/Danke
Georg
Hallo,
vielen Dank an alle.
Hat geklappt.
Grüße
Georg

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige