Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Autofilter > ausgeblendete Zeilen löschen

Nach Autofilter > ausgeblendete Zeilen löschen
Stef@n
Hallo Excel-Freunde
ich habe eine sehr große Datei und möchte daraus verschiedene einzelne Dateien erzeugen.
Dazu filter ich eine Spalte in die Liste nach "enthält nicht" und dann eine Wert (Name einer Gruppe)
So erhalte ich eine Liste aller Zeilen, die zu dieser Gruppe gehört
So: nun will ich diese Datei speichern unter dem Namen
Dateien_der_Gruppe_xx
und xx soll der Name der Gruppe sein
und vor dem Speichern sollen alle ausgeblendeten Zeilen gelöscht werden.
Da ich seehr viele Dateien erzeugen muss:
Kann man das per Makro machen ?
Den Filter setzen will ich manuell selber machen.
Genial wäre natürlich, wenn die die Liste nach 2 verschiedenen Spalten filter,
dass der Dateiname dann diese beiden Filter mit "aufnimmt" - muss aber nicht unbedingt
Freu mich auf einen Tip
Gruß
Stef@n
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 14:47:13
guentherh
Hallo Stef@n,
hier mal ein Teil der die ausgeblendeten Zeilen löscht.
Sub Test
Dim i
For i = ActiveSheet.UsedRange.Row To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows. _
Count
'Each Reihchen In activesheet.UsedRange.Rows
If ActiveSheet.Rows(i).Hidden Then
Application.DisplayAlerts = False
ActiveSheet.Rows(i).Delete
Application.DisplayAlerts = True
i = i - 1
End If
Next
End Sub
den Filter auslesen um einen Dateinamen zu erzeugen, krieg ich gerade nicht hin.
Gruß,
Günther
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 15:47:08
Tino
Hallo,
kopiere doch einfach die sichtbaren Daten in eine neue xl Datei,
dann sind die ausgeblendetet Zeilen verschwunden.
Die neue Datei mit speichern unter abspeichern.
Beispiel:
Dim NewWB As Workbook
Set NewWB = Workbooks.Add
With ThisWorkbook.Sheets("Tabelle1")
.UsedRange.Copy NewWB.Sheets(1).Cells(1, 1)
End With
Gruß Tino
Anzeige
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 18:55:18
Stef@n
Sorry jens
mein Fehler - ich habe zu spät mein positives Feedback gegeben
Verzeihung ! War nicht bös oder undankbar gemeint !
Besten Gruß
Stef@n
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 19:32:09
Hajo_Zi
Hallo Stefan,
was ist an dem Beitrag offen. Das kann ich nicht aus Deinem Beitrag lesen?

AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 23:24:35
Stef@n
Hallo Hajo
verzeih mir, daß ich wohl beim schreiben das Ffeld "Frage noch offen" angeklickt habe.
Ich werde anhand der beiden Antworten meine Lösung (versuchen) herbeizuführen.
Wie immer (von mir) beschrieben: ich lerne dazu !
Und das ist das Geniale an diesem Forum !
Verzeich Fehler - es sind Lern-Phasen
So wie ich es meiner Tochter IMMER sage:
DU MACHST KEINE FEHLER - DU LERNST !
Hajo: Du gibst immer wieder seeeehr gute Hinweise
und darüber freu ich mich immer sehr - weil sie sehr konstruktiv - und durchaus kritisch sind -
... aber immer zielführend ..
Bedenke nur eines: DEIN KNOW-HOW (und das ist ja mehr als genial) hat nicht jeder
... ich "spreche" da aus eigener Erfahrung !!
Ich schätze Deine Hinweise immer sehr
Hajo / Beverly ... gehören für mich IMMER zu den TOP-Antworten (bei denen ich IMMER lerne) dazu
Deswegen: verzeih manche "verworrene anfragen"
Das LERNEN geht manchmal nicht so schnell
Besten Gruß an DICH
Stef@n
Anzeige

138 Forumthreads zu ähnlichen Themen

Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Anzeige
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 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
ausgeblendete Zeilen (Inhalt) löschen
Lorenz

Hallo Excelscheff`s
Für mich wieder mal ein ungelöstes Langzeitproblem.
Mit folgenden Codezeilen wird der Inhalt von ausgeblendeten (Filter-Rest) Zeilen nicht gelöscht.
Wie muß der Code lauten um die "ausgeblendeten Zeilen in den Löschvorgang ein zu beziehen?
LoLetzte = wksDaten...
16.05.2011 13:28:15
Thread-ID: 1214665
3 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
6
6
1
6
6
2
3
6
2
1
3
3
2
3
1
2
5
7
8
15
1
5
3
7