Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen selektieren

Zeilen selektieren
22.10.2004 14:10:45
Rüdiger
Hallo,
ich habe folgendes Problem.
In "Tabelle1" gibt es Zeilen, die in Spalte A "Schlecht" oder "Gut" stehen haben.
Ich will nun die Werte der Zeilen, die mit "Gut" beginnen in "Tabelle2" kopieren und Zeilen mit dem Wert "Schlecht" in "Tabelle3" kopieren. Wer hat das passende Makro?
Aus "Tabelle1":
gut anton anton anton
schlecht berta berta berta
gut cäsar cäsar cäsar
wird also:
Tabelle2:
gut anton anton anton
gut cäsar cäsar cäsar
und Tabelle3:
schlecht berta berta berta
Danke schon im Voraus,
Rüdiger

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen selektieren
22.10.2004 14:25:00
ANdreas
Hallo Rüdiger,
für große Datenmengen:
Annahme - 1. Zeile enthält Überschrift.

Sub ZeilenKopieren()
'Annahme 1. Zeile Überschrift
With Worksheets("Tabelle1")
If Not ActiveSheet.AutoFilterMode Then .Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=1, Criteria1:="gut"
Worksheets("Tabelle2").Cells.ClearContents
.Range("A1:D65536").Copy _
Destination:=Worksheets("Tabelle2").Range("A1")
.Range("A1").AutoFilter Field:=1, Criteria1:="schlecht"
Worksheets("Tabelle3").Cells.ClearContents
.Range("A1:D65536").Copy _
Destination:=Worksheets("Tabelle3").Range("A1")
.Range("A1").AutoFilter
End With
Application.CutCopyMode = False
End Sub

Dabei wird Autofilter gesetzt und die entsprechenden Daten in die Tabellenblätter kopiert. (Die Tabellenblätter werden vorher noch "entleert")
Hoffe das hilft weiter,
Andreas
Anzeige
AW: Zeilen selektieren
22.10.2004 14:30:49
Rüdiger
Vielen Dank, bestens.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige