Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Spalten löschen

Ganze Spalten löschen
03.07.2018 23:29:35
Richter
Hallo liebe Leute.
Habe nachstehendes Makro hier im Forum gefunden. Funktioniert auch gut.
Nun würde ich aber gerne mehrere Spalten löschen mit jeweils einem anderen Wort.
Wie kann ich das in 1 "Sub" schreiben?
Mein erster Versuch sah so aus:
Sub SpalteLoeschen()
Dim Such
Set Such = ActiveSheet.UsedRange.Find("Wort1")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Dim Such
Set Such = ActiveSheet.UsedRange.Find("Wort2")
If Not Such Is Nothing Then Such.EntireColumn.Delete
End Sub

Könnt Ihr mir bitte weiterhelfen.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ganze Spalten löschen
03.07.2018 23:41:01
Daniel
Hi
Dim SuchWort
dim Such as range
For each SuchWort in Array("Wort1", "Wort2", "Wort3")
set Such = ActiveSheet.Usedrange.Find(what:=Suchwort)
if not Such is nothing then Such.EntireColumn.Delete
Next
Gruß Daniel
ps. gib bei .Find möglichst alle Parameter vor.
machst du das nicht, werden die letzten Einstellungen des Anwenders verwendet und dann kann es passieren, dass das was heute funktioniert hat, morgen nicht mehr geht.
gruß Daniel
AW: Ganze Spalten löschen
03.07.2018 23:41:55
Sepp
Hallo ?,
wenn jedes Suchwort nur einmal vorkommt, dann z.B. so.
Sub SpalteLoeschen()
  Dim rng As Range, rngDel As Range, varFind As Variant, varItem As Variant

  varFind = Array("Wort1", "Wort2", "Wort3")  'Suchbegriffe 

  For Each varItem In varFind
    Set rng = ActiveSheet.UsedRange.Find(What:=varItem, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not rng Is Nothing Then
      If rngDel Is Nothing Then
        Set rngDel = rng
      Else
        Set rngDel = Union(rngDel, rng)
      End If
    End If
  Next

  If Not rngDel Is Nothing Then rngDel.EntireColumn.Delete

  Set rng = Nothing
  Set rngDel = Nothing
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
Alternative zu den vorgestellten Arrays
04.07.2018 07:33:47
RPP63
Moin!
Wenn die Suchworte ohne Leerzeichen sind, gibt es eine sehr viel einfachere Lösung, dieses Array zu füllen, ohne sich die Finger zu verrenken: ;)
(beachte, dass das Array jetzt Null-basiert ist)
Sub x()
Dim y As Variant, z As Long
y = Split("Wort1 Wort2 Wort3")
For z = 0 To Ubound(y)
  'Dein SuchCode 
Next
End Sub
Gruß Ralf
Anzeige
Alternative zu den vorgestellten Arrays
04.07.2018 07:33:50
RPP63
Moin!
Wenn die Suchworte ohne Leerzeichen sind, gibt es eine sehr viel einfachere Lösung, dieses Array zu füllen, ohne sich die Finger zu verrenken: ;)
(beachte, dass das Array jetzt Null-basiert ist)
Sub x()
Dim y As Variant, z As Long
y = Split("Wort1 Wort2 Wort3")
For z = 0 To Ubound(y)
  'Dein SuchCode 
Next
End Sub
Gruß Ralf
Anzeige
AW: Alternative zu den vorgestellten Arrays
04.07.2018 08:08:56
Daniel
Hi
Das geht auch mit Texten, die Leerzeichen enthalten, wenn man ein anderes Trennzeichen nimmt.
Außerdem kann man auch bei Split die For Each-Schleife einsetzen, denn die Klammern für den Index sind genauso Fingerverenkend wie die Anführungszeichen: 

Dim x
For each x in Split ("Wort 1,Wort 2,Wort 3", ",")
Cells.find(x).entirecolumn.delete
Next
Gruß Daniel
AW: Alternative zu den vorgestellten Arrays
04.07.2018 18:36:10
Richter
Danke erstmal für die vielen Antworten.
Ich hab mich für die erste Variante entschieden. Die funktioniert gut. Es gibt jedes "Wort" auch nur 1x.
Jetzt würde ich das ganze auch gerne noch für die Zeilen machen. Dort gibt es allerdings mehrfach das gleiche "Wort" (ohne Leerzeichen). Ich hab zwar schon eine funktionierende Lösung die ist allerdings sehr lang und kompliziert.
Wenn jemand noch so einen eleganten Weg kennt wäre ich sehr dankbar.
Anzeige

303 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
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
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 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
4
6
4
6
2
4
9
2
6
9
2
10
5
6
7
2
8