Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige