Supportnet / Forum / Tabellenkalkulation
Bestimmte Zeilen in ein neues Blatt kopieren
Frage
Hallo an alle,
ich hoffe, ihr könnt mir helfen.
Ich habe eine Liste, inder viele Daten stehen.
In manchen Zeilen steht in Spalte W ein a. Ich bräuchte eure Hilfe, weil ich will, das automatisch in ein neues Tabellenblatt die Zeilen eingetragen werden, in der in Zeile N ein Wert steht und in Zeile W nichts steht. Allerdings ändert sich täglich in welcher Zeile ein Wert steht.
Ich hoffe, ihr könnt mir helfen.
Liebe Grüße beagie
Antwort 1 von schnallgonz
Moin,
am schnellsten gehts, wenn Du die Tabelle per Autofilter sortierst und das Filterergebnis kopierst.
Folgender Code sortiert nach Spalte N = Spalte 14, dort alle nichtleeren Zellen, und nach Spalte W = Spalte 23, dort alle leeren Zellen.
Anschließend werden die sichtbaren Zeilen in ein neues Blatt kopiert.
mfg
schnallgonz
Ich stimme mit der Mathematik nicht überein.
Ich meine, dass die Summe von Nullen eine gefährliche Zahl ist. (S.J. Lec)
Signatur und Textformatierungen wurden mit SNTool V1.2.13 erstellt
am schnellsten gehts, wenn Du die Tabelle per Autofilter sortierst und das Filterergebnis kopierst.
Folgender Code sortiert nach Spalte N = Spalte 14, dort alle nichtleeren Zellen, und nach Spalte W = Spalte 23, dort alle leeren Zellen.
Anschließend werden die sichtbaren Zeilen in ein neues Blatt kopiert.
Sub KopinskiN14W23 ()
´Filter ausstellen, sonst evtl.unvollständiger Export
ActiveSheet.AutoFilterMode = False
Selection.AutoFilter Field:=14, Criteria1:="<>"
Selection.AutoFilter Field:=23, Criteria1:="="
Selection.CurrentRegion.SpecialCells(xlVisible).Copy
Worksheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
End Submfg
schnallgonz
Ich stimme mit der Mathematik nicht überein.
Ich meine, dass die Summe von Nullen eine gefährliche Zahl ist. (S.J. Lec)
Signatur und Textformatierungen wurden mit SNTool V1.2.13 erstellt
Antwort 2 von beagie
Hallo schnallgonz,
vielen vielen Dank für den Code.
ABER: Wie aktiviere ich ihn?
Bin noch Neuling.
Liebe Grüße beagie
vielen vielen Dank für den Code.
ABER: Wie aktiviere ich ihn?
Bin noch Neuling.
Liebe Grüße beagie
Antwort 3 von schnallgonz
Hallo beagie,
tolle bebilderte Anleitungen zu VBA-Projekten und mehr guxu:
VBA-Anleitungen, Beispieldateien hier
erstmal Nr.3: Anleitung zum VBA Projekt “Modul"
und danach, um einen Button anzulegen:
Nr. 4: Anleitung zum Einfügen einer Befehlsschaltfläche
Solltest Du nicht klar kommen, einfach nochmal melden.
MfG
schnallgonz
tolle bebilderte Anleitungen zu VBA-Projekten und mehr guxu:
VBA-Anleitungen, Beispieldateien hier
erstmal Nr.3: Anleitung zum VBA Projekt “Modul"
und danach, um einen Button anzulegen:
Nr. 4: Anleitung zum Einfügen einer Befehlsschaltfläche
Solltest Du nicht klar kommen, einfach nochmal melden.
MfG
schnallgonz
Antwort 4 von beagie
Hi Schnallgonz.
Ich habe jetzt alles so eingerichtet wie es sein soll. Wenn ich aber das Makro starte, dann macht er pause und springt in den VBA und zeigt:
´Filter ausstellen, sonst evtl.unvollständiger Export
makiert an. Welchen Filter meinst du denn da?
Ich habe jetzt alles so eingerichtet wie es sein soll. Wenn ich aber das Makro starte, dann macht er pause und springt in den VBA und zeigt:
´Filter ausstellen, sonst evtl.unvollständiger Export
makiert an. Welchen Filter meinst du denn da?
Antwort 5 von schnallgonz
Salve,
die Zeile
ist nur eine Kommentierung, Du kannst sie auch löschen.
Ansonsten Zeilenbeginn durch Hochkomma, also
Shift und Taste #
drücken, kein Accent, wird hier leider falsch dargestellt.
Dann sollte es klappen.
mfg
schnallgonz
die Zeile
Zitat:
´Filter ausstellen, sonst evtl.unvollständiger Export
´Filter ausstellen, sonst evtl.unvollständiger Export
ist nur eine Kommentierung, Du kannst sie auch löschen.
Ansonsten Zeilenbeginn durch Hochkomma, also
Shift und Taste #
drücken, kein Accent, wird hier leider falsch dargestellt.
Dann sollte es klappen.
mfg
schnallgonz
Antwort 6 von schnallgonz
Nachtrag:
vor dem eigentlichen Makroablauf sollen evtl eingestellte Autofilter ausgestellt werden, damit nicht zusätzliche Filterungen die Kopien beeinflussen.
vor dem eigentlichen Makroablauf sollen evtl eingestellte Autofilter ausgestellt werden, damit nicht zusätzliche Filterungen die Kopien beeinflussen.
Antwort 7 von beagie
Hi,
sorry wenn ich dich nerve aber ich glaube, das Problem liegt darin, dass in meiner Tabelle Zeilen verbunden sind. Wenn ich das Makro ausführe, zeigt er an:
Kann Teil einer verbundenen Zelle nicht ändern.
Gibt es da eine Möglichkeit, dass er die Zeilen so hinschreibt, wie sie auch in der Tabelle stehen oder geht das gar nicht wenn Zellen verbunden sind.
Vielen Dank bis jetzt.
sorry wenn ich dich nerve aber ich glaube, das Problem liegt darin, dass in meiner Tabelle Zeilen verbunden sind. Wenn ich das Makro ausführe, zeigt er an:
Kann Teil einer verbundenen Zelle nicht ändern.
Gibt es da eine Möglichkeit, dass er die Zeilen so hinschreibt, wie sie auch in der Tabelle stehen oder geht das gar nicht wenn Zellen verbunden sind.
Vielen Dank bis jetzt.
Antwort 8 von schnallgonz
Hallo beagie,
da glaubst Du richtig, verbundene Zellen sind leider Gift für eine ordentliche Tabelle.
Das einfachste wäre, Du könntest darauf verzichten.
Man könnte das Makro auch (deutlich langsamer) als Schleife laufen lassen, aber wenn die verbundenen Zellen über mehrere Zeilen gehen, ist auch da Schluss.
Ist jetzt eine Abwägung, was Dir wichtiger ist:
verbundene Zellen oder das automatisierte Filtern und Kopieren.
Mehr kann ich dazu leider nicht sagen.
MfG
schnallgonz
da glaubst Du richtig, verbundene Zellen sind leider Gift für eine ordentliche Tabelle.
Das einfachste wäre, Du könntest darauf verzichten.
Man könnte das Makro auch (deutlich langsamer) als Schleife laufen lassen, aber wenn die verbundenen Zellen über mehrere Zeilen gehen, ist auch da Schluss.
Ist jetzt eine Abwägung, was Dir wichtiger ist:
verbundene Zellen oder das automatisierte Filtern und Kopieren.
Mehr kann ich dazu leider nicht sagen.
MfG
schnallgonz
Antwort 9 von beagie
Hi Schnallgonz
dann sage ich dir vielen vielen Dank.
dann sage ich dir vielen vielen Dank.
Antwort 10 von schnallgonz
Gern geschehen,
Danke für die Rückmeldung.
Gruß
schnallgonz
Danke für die Rückmeldung.
Gruß
schnallgonz