Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten löschen nach Überschrift

Spalten löschen nach Überschrift
04.03.2008 14:21:00
Nina
Hallo zusammen,
ich hoffe jemand kann mir bei folgendem Problem helfen:
Ich möchte per VBA alle Spalten einer Tabelle löschen, die nicht einer bestimmten Überschrift entsprechen. D.h., wenn ich in meiner Tabelle Spalten mit den Überschriften: Äpfel, Birnen, Bananen, Kiwis etc. habe, sollen alle Spalten gelöscht werden, die nicht die Überschrift Äpfel, Birnen oder Bananen haben.
Das Löschen bestimmter Spalten habe ich schon hinbekommen, dazu muss ich diese aber erst im Makro benennen (Z.B. Delete "Kiwis"), was ziemlich umständlich ist, da mehr Spalten gelöscht als beihalten werden sollen.
Vielen Dank für Eure Hilfe.

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten löschen nach Überschrift
04.03.2008 15:03:52
Michael
Hallo
Dein Problem ist mir etwas unverständlich.
WIe identifizierst Du denn die "guten" Überschriften?
SInd die in einer anderen Tabelle?
ciao
MIchael
P.S.
poste Deinen code

AW: Spalten löschen nach Überschrift
04.03.2008 15:27:48
Nina
Hallo MIchael,
die "guten" Überschriften sind immer gleich und bekannt. Momentan löscht mein Code die "schlechten" Spaltenüberschriften. Da es aber ungefähr 30 "schlechte" Überschriften gibt und nur 5 "gute", versuche ich nun seit geraumer Zeit erfolglos einen Code zu schreiben, in dem alle Spalten gelöscht werden, die nicht den angegeben "guten" Überschriften entsprechen.
Hier mein Code:

Sub Ueberflüssig()
Dim rngFind As Range, arSearch As Variant, i%
arSearch = Array("MANDT", "LFDNR", "KOSTL", "ARBPL", "WERKS", "DATUMK", "POSNR", "ZPRFD", " _
ZPRFZ")
'das sind Spaltenüberschriften, die ünerwünscht sind
For i = 0 To UBound(arSearch)
Set rngFind = Rows(1).Find(arSearch(i), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not rngFind Is Nothing Then rngFind.EntireColumn.Delete
Next
End Sub


Anzeige
AW: Spalten löschen nach Überschrift
04.03.2008 15:28:00
Nina
Hallo MIchael,
die "guten" Überschriften sind immer gleich und bekannt. Momentan löscht mein Code die "schlechten" Spaltenüberschriften. Da es aber ungefähr 30 "schlechte" Überschriften gibt und nur 5 "gute", versuche ich nun seit geraumer Zeit erfolglos einen Code zu schreiben, in dem alle Spalten gelöscht werden, die nicht den angegeben "guten" Überschriften entsprechen.
Hier mein Code:

Sub Ueberflüssig()
Dim rngFind As Range, arSearch As Variant, i%
arSearch = Array("MANDT", "LFDNR", "KOSTL", "ARBPL", "WERKS", "DATUMK", "POSNR", "ZPRFD", " _
ZPRFZ")
'das sind Spaltenüberschriften, die ünerwünscht sind
For i = 0 To UBound(arSearch)
Set rngFind = Rows(1).Find(arSearch(i), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not rngFind Is Nothing Then rngFind.EntireColumn.Delete
Next
End Sub


Anzeige
AW: Spalten löschen nach Überschrift
04.03.2008 15:56:00
Beate
Hallo Nina,
Sub spaltelöschen2()
    Dim spaltenzähler As Integer
    Dim Suchbegriff As String
    spaltenzähler = 1
    While Cells(1, spaltenzähler) <> ""
        Suchbegriff = Cells(1, spaltenzähler)
        If Suchbegriff <> "Äpfel" And Suchbegriff <> "Birnen" And Suchbegriff <> "Kiwis" And Suchbegriff <> "Bananen" Then
            Columns(spaltenzähler).Delete
            spaltenzähler = spaltenzähler - 1
        End If
        spaltenzähler = spaltenzähler + 1
    Wend
End Sub
Gruß,
Beate

Anzeige
AW: Spalten löschen nach Überschrift
04.03.2008 16:13:00
Nina
Meine Heldin! Klappt wie geschmiert.
Vielen Dank!
Nina

224 Forumthreads zu ähnlichen Themen

NAch Jahrgängen sortieren
Baywatch

HI Ecxelexperten,
habe eine kleine Frage, ich habe bis jetzt ein Proramm gehabt, indem Teilnehmer nach ihrem ALter sortert wurden, jetzt muß ich das aber umschreiben, da unser VErein nun nach Jahrgängen sortieren möchte, weiß jemand wie cih die existierende Formel umschreiben muß?
=WENN...
11.11.2008 12:53:00
Thread-ID: 1023520
3 Beiträge
Anzeige
Daten nach Kriterien in Spalten umsortieren
hans

Hallo zusammen.
habe mir bereits einige Stunden den Kopf zerbrochen, ohne jedoch weitergekommen zu sein. Mein Problem ist folgendes:
Ich habe eine Tabelle (kleiner Auszug siehe unten), die Daten enthält, die jeweils entweder mit den Buchstaben A, B oder C enden. Ich möchte nun diese Dat...
14.06.2009 02:13:12
Thread-ID: 1081347
6 Beiträge
Tabellen nach Inhalt von Zelle A2 sortieren
Zelle

Liebes Forum
Ich möchte gerne eine grosse Anzahl Tabellen nach der Zelle "A2" sortieren. Auf http://www.schmittis-page.de/index.html?/excel/vba/t56.htm habe ich einen Code gefunden, der die Sortierung anhand der Tabellennamen vornimmt. Ich habe nun .name mit .Cells("A2").Value ersetzt.
...
22.08.2009 16:14:58
Thread-ID: 1097948
11 Beiträge
Anzeige
Pivottabelle bei mehreren Spalten
RolandE

Hallo,
ich möchte eine Pivottabelle aus 3 Spalten erstellen. Zahl1 und Zahl2 sollen je nach ID zusammengezählt werden.
Leider schreibt Excel die Summen von Zahl1 und Zahl2 untereinander. Ich möchte sie jedoch nebeneinaner haben, wie auf dem Blatt "Ziel" angedeutet.
https://www.herbe...
23.01.2010 13:58:57
Thread-ID: 1132305
5 Beiträge
Zeilennummer nach Vergleich 2er Spalten
MarkusL

Hallo,
ich suche verzeifelt eine Lösung für nachfolgendes Problem.
Ich habe eine Tabelle die in der Spalte A und B nach variablen Kriterien durchsucht werden soll. Als Ergebnis, soll die gefunde Zeilennummer zurückgegeben werden. Die Komination der Suchwerte kann in der Tabelle nur einm...
03.02.2010 18:37:23
Thread-ID: 1135552
4 Beiträge
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
Suche nach mehreren Kriterien in oder-Verknüpfung
Gorkij

Hallo,
habe folgendes Problem:
In einer Tabelle stehen in Spalte A die Organisationsteile, denen ein Mitarbeiter zugehört´, in Spalte D die aktuellen Überstundenbestände. Es gibt eine Vielzahl von Organisationsteilen. Jetzt möchte ich in Spalte E per sverweis nur für jene Mitarbeiter, d...
08.02.2010 13:07:44
Thread-ID: 1136728
5 Beiträge
Sortieren nach Spalten
chris

Hallo VBA experten,
ich brauche mal wieder einen Tipp.
Ich habe ab Zelle X1 bis Zelle IV1 einen Bereichs Namen vergeben.
Dieser heißt z.b Vornamen
Darunter in Zeile 2 bis z.b 500 stehen vornamen.
Jezt will ich aber nicht nach Zeile sondern nach der Spalte sortieren.
Also...
17.06.2010 08:40:19
Thread-ID: 1162370
2 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
2
2
5
10
9
4
3
3
4
1
3
2
2
4
2
2
1
4
2
8
10
4
2
5
9