Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren bzw. Filtern

Kopieren bzw. Filtern
06.06.2005 17:46:56
Erich
Hallo.....
Habe wieder mal ein Problem.
Mit diesem Code aus dem Forum

Sub DatenFiltern()
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value = "01.01.2005" Then
iRowT = iRowT + 1
Worksheets("1").Rows(iRowT).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
iRow = 1
End Sub

Wenn ich diesen Code ausführe schreibt er mir
die Daten in die gleiche Zeile in das zweite Blatt.
Wie muß ich den Code ändern, um die Daten
ab Zeile 1 der neuen Tabelle zu schreiben.
Ich hoffe man versteht was ich meine.
Vorab schon mal Danke.
Gruss Erich

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren bzw. Filtern
06.06.2005 18:02:58
JensM
Hallo Erich!
"Wenn ich diesen Code ausführe schreibt er mir die Daten in die gleiche Zeile in das zweite Blatt."
Der Code Schreibt die gefunden "Datums" beginnend mit Zeile 1, dann Zeile 2 usw. in dein Blatt "1".
"Wie muß ich den Code ändern, um die Daten ab Zeile 1 der neuen Tabelle zu schreiben."
Das tut er doch; jedenfalls bei mir wenn:
Im Ursprungsblatt stehen in Spalte A viele "Datums" untereinander weg, einige enthalten "01.01.2005". Diese überträgt er alle in Blatt "1".
Grüße,
Jens
AW: Kopieren bzw. Filtern
06.06.2005 18:15:18
Erich
Hallo Jens..
Ach meine Erklärungsversuche sind (ich sage es nicht)

Sub DatenFiltern()
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value = "01.01.2005" Then
iRowT = iRowT + 1
Worksheets("1").Rows(iRowT).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value = "01.02.2005" Then
iRowT = iRowT + 1
Worksheets("2").Rows(iRowT).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
iRow = 1
End Sub

Die erste Tabelle passt, die zweite beginnt z. B. in Zeile 8
Entschuldige bitte Hellsehen könnt ihr wahrlich nicht.
Gruss Erich
Anzeige
AW: Kopieren bzw. Filtern
06.06.2005 18:39:16
JensM
Hallo Erich,
also wenn die Daten ab Zeile 8 in Tabelle "1" sollen, entsteht hier leider ein Riesen-Programmier-Aufwand:
Gucke mal unten wo "+7" steht. That's all ;-) . Grüße und schönen Feierabend (wünsche ich mir auch jetzt),
Jens
_______________________________________________________________________

Sub DatenFiltern()
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value = "01.01.2005" Then
iRowT = iRowT + 1
Worksheets("1").Rows(iRowT + 7).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
iRow = 1
End Sub

Anzeige
AW: Kopieren bzw. Filtern
06.06.2005 18:43:06
Erich
Hallo Jens
Vielen Dank
Werde es aber erst morgen probieren können.
Wenn es doch Probleme gibt, melde ich mich wieder.
Auch Dir schönen Feierabend
Gruss Erich

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige