Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen nach bestimmten Kriterien in neues Blatt

Zeilen nach bestimmten Kriterien in neues Blatt
06.02.2004 10:55:20
Hannelore D.
Hallo an alle VBA - Profis!!
Ich versuche ein Makro zu schreiben das mir Zeilen die einen bestimmten Textteil enthalten in eine neues Arbeitsblatt kopiert.
Leider habe ich überhaupt keine Idee wie ich nur nach Textteilen in Zellen suchen kann . Wobei der Text immer an verschiedenen Positionen stehen kann.
Der Text steht in der Ursprungsdatei immer in Spalte D.
Aus dieser Datei sollen dann drei neue Arbeistblätter entstehen.
1. Ausfall sonst. (soll alle Zeilen enthalten die in der Spalte D den Textteil "Ausfallzeit sonst." enthalten.)
2. Ausfall Weiter. (soll alle Zeilen enthalten die in der Spalte D den Textteil "Ausfallzeit Weiterb." enthalten.)
3. Produktiv (soll alle Zeilen enthalten die in der Spalte D weder den Textteil "Ausfallzeit sonst." noch "Ausfallzeit Weiterb." enthält.)
Kann mir da jemand weiterhelfen?? Es würde mir die Arbeit erheblich erleichtern und mit meinen Mini-VBA Kenntnissen bekomme ich das nicht hin!
Vielen Dank im Voraus!

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

Betreff
Datum
Anwender
Anzeige
AW: doppelt
06.02.2004 11:02:04
Matthias G
Hallo Hannelore,
ein wenig Geduld wäre angebracht - nicht gleich wieder neu posten!
Grüße,
Matthias
AW: doppelt
06.02.2004 11:15:47
Hannelore
Sorry ! War nur ein Versehen!!!
Hatte nichts mit Ungeduld zu tun!!
Gruß Hannelore
hier noch eine Beispielsdatei!!
https://www.herber.de/bbs/user/3452.xls
AW: Zeilen nach bestimmten Kriterien in neues Blatt
06.02.2004 11:41:17
Karl-Otto Reimann
Hallo Hannelore
Bitte immer nur einen Thread, man verliert sonst den Überblick.
Zu Deinem Problem.
Frage zu 3: Steht da 'was drin, oder sind die Zellen leer?

Sub FilternUndKopieren()
Application.ScreenUpdating = False
With Range("A1")
.AutoFilter Field:=4, Criteria1:="*Ausfallzeit sonst*"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Ausfall sonst").Range("A1")
.AutoFilter Field:=4, Criteria1:="*Weiterb*"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Ausfall weiter").Range("A1")
'''Hier bist Du dran
End With
End Sub

Gruß
Karl-Otto
Anzeige
AW: Zeilen nach bestimmten Kriterien in neues Blatt
06.02.2004 12:40:35
Hannelore
Erst mal danke !
Werde ich gleich ausprobieren!
ZU 3: Ja da steht was drin.
Hier eine Beispieldatei
https://www.herber.de/bbs/user/3459.xls
AW: Zeilen nach bestimmten Kriterien in neues Blatt
06.02.2004 12:49:39
Karl-Otto Reimann
Nach dem gleichen Muster strickst Du einfach eine Bedingung dazu.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige