Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.06.2025 13:53:13
Compilierungsprogramme
23.06.2025 10:14:14
Excel VBA Makro
23.06.2025 09:27:21
Reihenfolge in bedingter Formatierung verschiebt sich
22.06.2025 14:45:39
Eintragung per Userform
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit VBA löschen gemäss Kriterien

Forumthread: Spalten mit VBA löschen gemäss Kriterien

Spalten mit VBA löschen gemäss Kriterien
20.02.2004 10:08:38
Sabine
llo zusammen :-)
ich habe eine Excel-Tabelle in der in den Zeilen gewisse Kunden stehen und in den Spalten habe ich meine Kenzahlen (Budget ect.).
Nun habe ich folgendes Problem:
DIe Tabelle wird automatisch generiert und überall wo die automatische Generierung nicht läuft erscheinen Zeichenketten in den "Spaltenköpfen" wie z.b. &ZBWHZT_XX&! XX steht für eine laufende Nummer.
Das sieht dann z.B so aus:
&ZBWHZT_11& &ZBWHZT_12&
Die Tabelle ist umfangreich und hat so ca. 240 Spalten. Ich benötige nun eine Möglichkeit per VBA, dass genau diese Spalten, die in der Überschrift mit "&ZBWHZT_" beginnen "komplett" gelöscht werden.
Weiss jemand Rat?:-(
Grüsse
Sabine
Anzeige

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

Kategorie
Programmierung
Tags
#makros #spaltenlöschen #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Spalten mit VBA löschen gemäss Kriterien
20.02.2004 10:25:04
Nayus
Hi,
folgendes Makro löscht alle Spalten mit angegebenem Kritrium in der 1. Zeile des aktuellen Blattes:

Sub delInvalidCols()
For i = 1 To 255
If Mid(Cells(1, i), 1, 8) = "&ZBWHZT_" Then
Columns(i).Delete Shift:=xlToLeft
End If
Next i
End Sub

Gruß,
Nayus
Anzeige
AW: Spalten mit VBA löschen gemäss Kriterien
20.02.2004 10:36:47
Sabine
Hallo Nayus,
ein RIESENDANKESCHÖN mein Lieber.
Super. Das habe ich gesucht.
Ach bin ich Froh :-)
Grüßchen
Sabine
Funktioniert leider nicht immer
20.02.2004 10:37:00
Alex K.
Hallo Nayus,
dein Code funktioniert leider nicht immer. Wenn zwei Spalten, die nebeneinander liegen, gelöscht werden sollen, wird die zweite Spalte nicht gelöscht.
Beispiel:
Du willst die Spalten 2 und 3 löschen. Zuerst wird die Spalte 2 gelöscht und i auf den Wert 3 erhöht. Nun ist aber durch die Löschung der Spalte 2 die Spalte 3 die neue Spalte 2. Somit kann die neue Spalte 2 nicht mehr getestet werden, da i ja schon 3 ist.
Bei Schleifen mit Löschen von Zeile oder Spalten immer von der letzten Spalte / Zeile beginnen:
for i = 255 to 1 step -1
dann klappt das auch :-)
Anzeige
AW: Spalten mit VBA löschen gemäss Kriterien
20.02.2004 10:31:19
Alex K.
HAllo Sabine,
hier ein Makro zum Löschen. Aber vorher die Sicherungskopie nicht vergessen :-)

Public Sub SpalteFindenLoeschen()
Dim saveAddress     As String
Dim rng             As Range
With ActiveSheet
Set rng = .UsedRange.Find("&ZBWHZT_", LookIn:=xlValues, lookat:=xlPart)
If rng Is Nothing Then
MsgBox "Keine Spalten zum Löschen gefunden"
Exit Sub
End If
saveAddress = rng.Address
Do
rng.EntireColumn.Delete
Set rng = .UsedRange.FindNext
Loop While Not (rng Is Nothing)
End With
End Sub

Anzeige
AW: Spalten mit VBA löschen gemäss Kriterien
20.02.2004 10:39:05
Sabine
Dankeschön auch Dir Alex :-)
Riesendankeschön.
Es klappt. Yiepiee
Soviel Begeisterung wegen ein bisschen Excel :-)oT
20.02.2004 10:42:42
Alex K.

Forumthreads zu verwandten Themen

Ausgabe zweier Zellen mit SVERWEIS
Andreas

Hallo
Ich möchte mittels SVERWEIS Werte aus Spalte 2 oder wenn sich in dieser Spalte keine Werte befinden aus Spalte 3 ausgeben...
Kann mir da jemand weiterhelfen?
Gruß
Andreas
14.08.2008 11:46:00
Thread-ID: 1001793
4 Beiträge
Anzeige
Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Summe mit 2 Bedingungen
TobiasM

Hallo Excel-Experten,
ich würde gerne eine Summe mit zwei Bedingungen berechnen:
Wenn Wert in Spalte H gleich "EUR" und Wert in Spalte I gleich ""2005", dann Summe der entsprechenden Werte in Spalte J.
Könnte mir jmd. bitte einen Hinweis zur Formel geben?
Vielen Dank!!!
Tobi...
28.08.2008 10:11:30
Thread-ID: 1005310
3 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
ZÄHLENWENN mit 2 Bedingungen
oblivion

Hallo, hab mal eine Frage zur Funktion ZÄHLENWENN.
Die Funktion lautet ja allgemein so =ZÄHLENWENN(A1:A15;"=19").
Ich würde aber gerne diese Funktion so erweitern, dass er mir alle Werte zählt, die kleiner als 19 sind, aber größer als 0.
Ich bekomme es nicht hin. Gibt es da eine Lö...
04.09.2008 18:07:33
Thread-ID: 1007473
3 Beiträge
Sverweis und mehrere Dateien durchsuchen
Benjamin

Hallo,
ist es möglich mit sverweis oder einer anderen Funktion mehere gleich aufgebaute Dateien zu durchsuchen und ein bestimmten wert (z.b in der zweiten Spalte) auszugeben. Also keine sheets sondern, dass das Makro die dateien eigenständig öffnet z.b. all dateien in diesem Odner öfnnet un...
26.09.2008 02:00:36
Thread-ID: 1012468
2 Beiträge
Anzeige
Zwei Kriterien für Sverweis
sascha76er

Hallo,
ich habe folgende Liste:
https://www.herber.de/bbs/user/55778.xls
Hier möchte ich gerne anhand von zwei Kriterien einen SVERWEIS erstellen für die Spalte P , die Kriterien sollen aus den Werten der Spalten E und M gebildet werden. Der entsprechende Wert muss im Tabellenblatt...
01.10.2008 16:04:31
Thread-ID: 1013672
3 Beiträge
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
4 Beiträge
ausblenden mit 2 Bedingungen
Kai

Hallo zusammen,
ich hatte mit folgendem Makro Hilfe in diesem Forum bekommen:
Private Sub Worksheet_Change(ByVal Target As Range) Dim intA As Long, intS As Long, wksS As Worksheet, wksT As Worksheet Dim zz As Long, rngH As Range If Not Intersect(Target, Range("A2:A21")) Is Nothing The...
22.10.2008 01:39:27
Thread-ID: 1018197
12 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige