Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 12:59:21
MsgBox beim öffnen der Datei
08.05.2024 12:16:10
Dropdownmenü mit Klick auf Zelle öffnen (nicht über Pfeil)
08.05.2024 11:33:57
Print Area auswählen
08.05.2024 11:27:06
Bestimmten Wert von einer Excel Liste übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Spalten löschen

Mehrere Spalten löschen
29.08.2017 08:49:48
Armin
Hallo,
ich habe folgende Frage.
Ich habe eine Tabelle mit mehreren hundert Spalten. Nun möchte ich bestimmte Spalten löschen, die in Zeile 1 ein bestimmtes Kennzeichen haben, z. B. das Kennzeichen "x".
Dies mache ich derzeit mir folgendem Code:
For i = 1000 To 1 Step -1
If ActiveSheet.Cells(1, i).Value = "x" Then
ActiveSheet.Columns(i).Delete Shift:=xlToLeft
End If
Next i
Dies funktioniert soweit gut, allerdings dauert dies relativ lange.
Gibt es nicht eine schnellere Methode zum Löschen der Spalten. Könnte man die betroffenen Spalten evtl. zu einem Array zusammenfassen und dann alle Spalten auf einmal löschen?
Ich freue mich auf eure Tipps.
LG Armin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Spalten löschen
29.08.2017 08:54:39
ChrisL
Hi Armin
Probiere mal so...
Sub t()
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If ActiveSheet.Cells(1, i).Value = "x" Then Columns(i).Delete Shift:=xlToLeft
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

cu
Chris
AW: Mehrere Spalten löschen
29.08.2017 08:59:46
Armin
Hallo Chris,
danke für den Tipp.
Die Berechnung und den Bildschirmanzeige habe ich bereits deaktiviert.
Dein Beispielcode hat die gleiche lange Laufzeit wie mein Code.
Gibt es evtl. einen Ansatz, dass alle Spalten selektiert werden und der Löschbefehl dann nur 1x für alle Spalten ausgeführt wird.
Lieben Dank
Armin
Anzeige
AW: Mehrere Spalten löschen
29.08.2017 09:08:35
ChrisL
Hi Armin
Ja im Prinzip schon, aber ich kann mir eigentlich nicht vorstellen, warum ein paar hundert Spalten so lange dauern sollen. Ist da evtl. noch etwas anderes los, wovon wir nichts wissen? Vielleicht ein Change-Ereignis?
cu
Chris
AW: Mehrere Spalten löschen
29.08.2017 09:32:37
ChrisL
Hi Armin
Hier mal eine Variante:
Sub t()
Rows(1).Insert
With Range(Range("A1"), Cells(1, Cells(2, Columns.Count).End(xlToLeft).Column))
.Formula = "=IF(A2=""x"",""x"","""")"
.Value = .Value
.SpecialCells(xlCellTypeConstants).EntireColumn.Delete
End With
Rows(1).Delete
End Sub
cu
Chris
AW: Mehrere Spalten löschen
29.08.2017 10:22:48
Daniel
Hi
beim Löschen von Zeilen oder Spalten ist es immer sinnvoll, diese vor dem Löschen so zu sortieren, dass die zu löschenden Zellbereiche einen lückenlos zusammenhängenden Zellblock bilden.
Dann geht das Löschen am schnellsten.
hier mal die Idee von Chris diesbezüglich erweitert. 

Sub SpaltenLöschen()
With ActiveSheet.UsedRange
With .Rows(.Rows.Count + 1)
.FormulaR1C1 = "=IF(R1C=""x"",1,"""")"
.Formula = .Value
If WorksheetFunction.Sum(.Cells) = 0 Then Exit Sub
End With
End With
With ActiveSheet.UsedRange
.Sort key1:=.Cells(.Rows.Count, 1), Header:=xlNo, Orientation:=2
.Cells.SpecialCells(xlCellTypeConstants, 1).EntireColumn.Delete
.Rows(1).Sort key1:=.Cells(1, 1), Orientation:=1
End With
End Sub
Gruß Daniel
Anzeige

90 Forumthreads zu ähnlichen Themen

Makroablauf für bestimmte Spalten
Karsten

Hallo,
ich möchte einen Makro ablaufen lassen, der aber nur ausgeführt wird wenn, sich die aktive Zelle in Spalten B,E,H,K,und N befindet.
Danke für eure Hilfe.
Gruß Karsten
07.03.2009 19:29:06
Thread-ID: 1057747
8 Beiträge
Anzeige
Makro langsam - Spalten löschen und Format
F.

Hallo zusammen
Das folgende Makro habe ich für acht Buchungskreise zusammengebastelt (mir Eurer Hilfe). Alles befindet sich in der gleichen Arbeitsmappe.
Jeder Kreis hat ein Berechnungsblatt und ein Datenblatt. Im Ersteren befindet sich eine Schaltfläche. Diese wird für jeden Kreis ei...
22.07.2009 12:31:31
Thread-ID: 1090484
7 Beiträge
Makro soll in bestimmten Spalten funktionieren.
Karsten


Hallo...
Mir hat jemand aus dem Excelforum diesen Makro erstellt. Kann mir bitte jemand diesen Makro so ändern, dass er nur dann funktioniert, wenn beide selektierten Zellen sich in den Spalten B, E, H, K oder N befinden und die Zellen sich in ungeraden Zeilen befinden (z.B. B3 und E5...
05.10.2009 10:24:17
Thread-ID: 1107217
3 Beiträge
Anzeige
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
#NV in Spalte löschen per VBA
edie

Hallo zusammen,
ich versuche vergebens die #NV in der Spalte B per VBA zu löschen bzw. durch eine Null ersetzen.
Das Makro stoppt bei: 'If Cells(i, 2) = "#NV" Then' mit der Fehlermeldung: 'Typen unverträglich'.
Weiß nicht mehr weiter, deshalb bitte um Hilfe, wenn's geht.
Sub Te...
16.02.2010 14:12:15
Thread-ID: 1138929
4 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Makro nur in bestimmten Spalten ausführen?
Micha

Hallo liebe Spezialisten.
Ich hoffe es kann mir jemand weiter helfen:
Das folgende Makro schreibt in die markierte Zelle eine fortlaufende Nummer.
Ich möchte gerne das dieses Makro nur in den Spalten "Q" und "Y" ausgeführt wird.
Ist eine Zelle in einer anderen Spalte markiert so...
27.12.2010 17:11:55
Thread-ID: 1192949
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
6
2
4
3
3
5
2
4
6
4
6
7
2
4
9
2
6
9
2
10
5
10
6