Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nicht benötigte Spalten löschen

Nicht benötigte Spalten löschen
Martin
Hallo miteinander
Ich habe eine Excel-Tabelle mit etwa 80 Spalten. In Zeile 1 ist jeweils der Titel der Spalte, z.B. Name, Vorname, Strasse, Ort, Nummer etc.
Für gewisse Auswertungen braucht's jedoch nur einen kleinen Teil der vielen Spalten, alle anderen können gelöscht werden.
Ich suche ein schnell laufendes Makro, dass mir alle nicht benötigten Spalten löscht.
Besten Dank im voraus.

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

Betreff
Benutzer
Anzeige
AW: Nicht benötigte Spalten löschen
11.12.2009 15:24:34
Josef
Hallo Martin,
und wie sollen die zu löschenden Spalten erkannt werden?
Gruß Sepp

AW: Nicht benötigte Spalten löschen
11.12.2009 16:03:57
Martin
Hallo Sepp
Danke für die Frage:
In Zeile 1 sind ja die Titel der Spalten, z.B. "Name", "Vorname", "Strasse", "Ort", "Nummer", "Beginn", "Ende" und viele mehr.
Für eine Auswertung benötige ich z.B. die Spalten mit Titel "Name", "Vorname", "Ort", alle anderen sollten gelöscht werden. Das Makro soll also die Zeile 1 durchgehen und die nicht benötigten Spalten löschen.
Besten Dank
AW: Nicht benötigte Spalten löschen
11.12.2009 16:26:20
Josef
Hallo Martin,
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub deleteColumns()
  Dim rng As Range, rngDel As Range
  Dim vntColumnsToKeep As Variant
  
  'Überschriften die NICHT gelöscht werdn sollen!
  vntColumnsToKeep = Array("Name", "Vorname", "Strasse", "Ort")
  
  For Each rng In ActiveSheet.UsedRange.Rows(1).Cells
    If IsError(Application.Match(rng, vntColumnsToKeep, 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 rngDeldelete
  
  Set rng = Nothing
  Set rngDel = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Nicht benötigte Spalten löschen
11.12.2009 16:34:55
Martin
Super! Besten Dank, Sepp, das ist eine grosse Hilfe. Ich hab's mit einer IF-Schlaufe versucht und bin da irgendwie stecken geblieben. Auf Deine Lösung wäre ich wohl nie im Leben gekommen.....

301 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Bei Eintrag in eine Zeile Spalten ein/ausblenden
Matthias

Guten Morgen,
ich bräuchte mal wieder Hilfe :/ Mein Excelhorizont ist stark begrenzt und habe ein für mich unlösbares Problem, da ich keinerlei VAB-Kenntnisse habe. Ich bräuchte eine Lösung für folgende Problemstellung.
Wenn im Feld A50 irgendetwas steht, dann sollen Zeile 22-24 eingeb...
09.10.2008 07:54:00
Thread-ID: 1015202
6 Beiträge
Anzeige
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Alle anderen Spalten ausblenden!
lisa

Hallo zusammen
Ich habe ein Macro aufgezeichnet, mit dem ich in der Tabelle 3 Spalte E filtere.
Ich suche nun eine möglichkeit alle anderen Spalten auszublenden!
Hat hierzu jemand eine Idee?
Private Sub CommandButton2_Click() Sheets("Tabelle3").Select Selection.AutoFilter Fie...
04.12.2008 17:16:32
Thread-ID: 1030239
20 Beiträge
spalten einzeln ausblenden
Christian

aloha!
spaltenbereiche ausblenden funktioniert ja so:
Columns("A:BC").Select
Selection.EntireColumn.Hidden = False
aber warum kann ich keine einzelne spalte ausblenden
z.b.: ich möchte "G" und "I" ausblenden, so dachte ich, folgendes wäre richtig:
Columns("G:G").Select
05.12.2008 13:39:56
Thread-ID: 1030438
7 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 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
5
4
3
5
3
1
19
6
4
5
3
4
3
2
8
5
3
7
6
2
8
2
3
21
5