Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus Doppel- Bereich kopieren

Forumthread: Aus Doppel- Bereich kopieren

Aus Doppel- Bereich kopieren
05.09.2013 06:37:48
Peter
Hallo es ist noch ein Problem aufgetaucht,
ich suche mit der „WorksheetFunction.CountIf“ nach “ Doppel“. Die gefundenen Zeilen unterscheiden sich in Spalte 20 durch die Kennzeichnung NEU und AKTUELL.
Ich möchte einen bestimmten Bereich vom Doppel NEU zum Doppel AKTUELL kopieren.
-Siehe Datei-
https://www.herber.de/bbs/user/87158.xls
Wer kann helfen?
Danke im voraus
Peter

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus Doppel- Bereich kopieren
05.09.2013 09:05:42
ChrisL
Hi Peter
Sub Doppelt_verschieben()
Dim iRow As Integer, iiRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 5).End(xlUp).Row
For iRow = 2 To iRowL
If WorksheetFunction.CountIf(Columns(5), Cells(iRow, 5)) > 1 And _
Cells(iRow, 20) = "aktuell" Then
For iiRow = 2 To iRowL
If Cells(iRow, 5) = Cells(iiRow, 5) And Cells(iiRow, 20) = "neu" Then
Range(Cells(iiRow, 7), Cells(iiRow, 19)).Copy Cells(iRow, 7)
Exit For
End If
Next iiRow
End If
Next iRow
End Sub
cu
Chris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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