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
1692to1696
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten löschen, wenn Filter best. Ergebnisse zeig

Spalten löschen, wenn Filter best. Ergebnisse zeig
01.06.2019 14:00:12
Peter
Guten Tag
Ich habe eine Worksheet mit Dateninhalten ab Zelle A7 - Z5011. Einige Spalten innerhalb dieses Bereiches sind leer, haben möglicherweise ein paar Spezialzeichen in gewissen Zellen.
Nun setze ich jeweils einen Filter.
Bei Spalten, die ich löschen kann, können Zeilen mit folgendem Inhalt gefiltert werden:
- ALLES AUSWÄHLEN
- LEERE
Kann ich mit VBA pro Spalte abfragen, was der Filter zeigt und wenn es nur "ALLES AUSWÄHLEN" und "LEERE" gibt, die entsprechende Spalte löschen?
Gruss, Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten löschen, wenn Filter best. Ergebnisse zeig
01.06.2019 15:12:40
Daniel
Hi
eventuell so:
dim C as Range
with Worksheetfunction
for Each C In Range("A7:Z5011").Columns
if .CountBlank(C) + .CountIf(C, "Alles auswählen") = C.Cells.Count then _
C.EntireColumn.Delete
next
End With
Gruß Daniel
AW: Spalten löschen, wenn Filter best. Ergebnisse zeig
01.06.2019 15:12:42
Daniel
Hi
eventuell so:
dim C as Range
with Worksheetfunction
for Each C In Range("A7:Z5011").Columns
if .CountBlank(C) + .CountIf(C, "Alles auswählen") = C.Cells.Count then _
C.EntireColumn.Delete
next
End With
Gruß Daniel
In der Schleife besser so
02.06.2019 08:10:06
GerdL
Moin 
Sub makro2()
Dim i As Long
For i = 26 To 1 Step -1
If WorksheetFunction.CountBlank(Range(Cells(7, i), Cells(5011, i))) = Range(Cells(7, i), Cells( _
5011, i)).Cells.Count Then
Columns(i).Delete
End If
Next
End Sub

Gruß Gerd
Anzeige
AW:Vielen Dank Daniel und Gerd! owT
02.06.2019 21:24:25
Peter

300 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 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
Formel in bestimmte Zellen per makro schreiben??
lisa

Hallo
Ich konnte bislang noch nicht in der Recherche finden und wende mich deshalb an EUCH Spezis.
Vieleicht könnte ihr mir helfen.
In meiner Spalte B steht immer nur in bestimmten Zellen ein Wert, nämlich Ergebnis!
In der Spalte F stehen Werte. Nun möchte ich aber ohne die Wer...
09.11.2009 13:43:49
Thread-ID: 1115507
9 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
variabel Spalten Löschen
Hermann

Liebe Excel-Gemeinde,
leider komme ich mal wieder nicht weiter und hoffe auf
eure Unterstützung bei 2 für euch winzigen Problemchen.
1) Ich versuche variable Spalten zu löschen mit dem Befehl
ActiveSheet.union(range(cells(1,spaWeg+6),cells(99,spaWeg+25)).EntireColumn.Delete
...
02.05.2010 18:27:25
Thread-ID: 1155013
7 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
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
6
2
8
4
3
3
5
6
4
2
20
9
4
1
4
1
11
15
3
6
4
6
12
2