Bestimmte Zeilen kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Codevorschlag

31.01.2015 10:35:59

Erich

AW: Codevorschlag

31.01.2015 16:05:08

Thomas

Variante ohne Löschen

31.01.2015 19:50:59

Erich

AW: Variante ohne Löschen

01.02.2015 01:27:27

Thomas

Klärungsversuche

01.02.2015 10:33:11

Erich

AW: Klärungsversuche

03.02.2015 22:25:07

Thomas

Antworten?

04.02.2015 10:17:30

Erich

AW: Antworten?

04.02.2015 22:04:52

Thomas

AW: Variante ohne Löschen

01.02.2015 02:18:12

Thomas

Option Explicit Sub chg_Click() Dim rngDel As Range, rngCop As Range ' Quellzeile Zielzeile Dim iRowQ As Long, iRowZ As Long ' nicht Integer For iRowQ = 3 To Cells(Rows.Count, 17).End(xlUp).Row If InStr(Cells(iRowQ, 17).Value, "CHG") Then If rngDel Is Nothing Then Set rngDel = Rows(iRowQ) Else Set rngDel = Union(rngDel, Rows(iRowQ)) End If End If Next iRowQ If Not rngDel Is Nothing Then Set rngCop = Intersect(rngDel, Range("H:M")) With Worksheets("CHG-Liste") iRowZ = .Cells(.Rows.Count, 8).End(xlUp).Row + 1 If iRowZ

Option Explicit Sub chg_Click() Dim rngDel As Range, rngCop As Range, arBem Dim iRowQ As Long, iRow As Long iRowQ = Cells(Rows.Count, 17).End(xlUp).Row arBem = Range(Cells(3, 18), Cells(iRowQ, 18)) ' Spalte R merken For iRow = 3 To iRowQ If InStr(Cells(iRow, 17).Value, "CHG") Then If rngDel Is Nothing Then Set rngDel = Rows(iRow) Else Set rngDel = Union(rngDel, Rows(iRow)) End If arBem(iRow - 2, 1) = arBem(iRow - 2, 1) & "X" End If Next iRow If Not rngDel Is Nothing Then Set rngCop = Intersect(rngDel, Range("H:M")) With Worksheets("CHG-Liste") iRow = .Cells(.Rows.Count, 8).End(xlUp).Row + 1 If iRow

Hallo Erich,
dein Codebeispiel ist Klasse, allerdings passiert jetzt folgendes:
Ist ein Datensatz in der Zelle Q mit CHG, dem Kriterium für das kopieren markiert, wird der Datensatz in die Tabelle "CHG-Liste" übertragen, das ist soweit Ok. Aber nach dem kopieren bleibt "CHG" jetzt in der Zelle Q stehen, was zu folge hat, das beim nächsten kopieren dieser Datensatz erneut kopiert wird und dann zwei "X" vorhanden sind usw.
Daher sollte nach dem kopieren das Kriterium "CHG" auf einen anderen Wert gesetzt werden z.B "kopiert".
Mal zur Erklärung was die Tabelle eigentlich soll:
Mitarbeiter haben die Möglichkeit ihre Hardware nach einem Systemwechsel abzumelden, diese Hardware wird dann von uns entweder abgeholt oder manchmal bringen die Mitarbeiter die Gerätschaften zu uns. Die Abholung wird über ein Ticketsystem beantragt. Diese Abholung wird dann in die Excel Tabelle eingetragen, also in die Quelltabelle. Dann prüfe ich ob das zurückgegebene Gerät an CHG zurück muss (Leasing der Geräte) Wenn ja muss eine Liste mit den Geräten für die Rückgabe erstellt werden. Diese Liste der Geräte die zurück gegeben werden müssen könnte ich dann mit dem kopieren "CHG" einfach erstellen. Bisher wurden 2 Exceltabellen von meinem Vorgänger angelegt und leider schlampig geführt.
Danke.

Hi Thomas,
"nach dem kopieren bleibt "CHG" jetzt in der Zelle Q stehen, was zu folge hat, das beim nächsten kopieren
dieser Datensatz erneut kopiert wird und dann zwei "X" vorhanden sind usw. "
Das hattest du so "bestellt", oder?
Bevor jetzt immer neue Codeversionen entstehen, sollte das Ziel etwas klarer werden.
"sollte nach dem Kopieren das Kriterium "CHG" auf einen anderen Wert gesetzt werden z.B 'kopiert'"
Bisher wird das Kriterium "CHG" in Spalte Q mit InStr so geprüft:
If InStr(Cells(iRow, 17).Value, "CHG") Then
Damit würde auch z. B. "abc CHGef" gefunden.
In deiner Beispielmappe steht CHG immer allein in der Zelle.
Da würde
If Cells(iRow, 17).Value = "CHG" Then
völlig ausreichen. Soll das so gemacht werden?
Nun soll in Spalte Q der Hinweis "kopiert" anstelle des "CHG" geschrieben werden.
Aus "abc CHGef" würde "abc kopiertef". Ist das so gewollt?
(Wenn nur "CHG" in der Zelle steht, dann kommt das natürlich nur "kopiert" rein.)
Wenn nun das Kopieren in Spalte Q vermerkt wird - brauchst du das "X" in Spalte R überhaupt noch?
"Beim kopieren eines weiteren Datensatzes wird er am Anfang eingefügt und überschreibt den vorhandenen,
das darf nicht sein. Datensätze die hinzukommen sollten am Ende der Liste eingefügt werden."
Mit den Zeilen


With Worksheets("CHG-Liste")
iRow = .Cells(.Rows.Count, 8).End(xlUp).Row + 1
If iRow

wird die Einfügezeile für die Kopien bestimmt als die Zeile unter dem letzten Eintrag in Spalte H des Blattes "CHG-Liste".
Gibt es bei dir auf diesem Blatt Datensätze, bei denen die Zelle in Spalte H leer ist, aber in I:M etwas steht?
Wenn dem nicht so ist, solltest du eine kleine Beispielmappe mit diesem Fehler hochladen.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Zeilen kopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread