Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte kopieren bis anderer Wert

Werte kopieren bis anderer Wert
31.08.2017 10:07:08
Marie
Guten Morgen ihr Lieben,
ich habe mal wieder eine Frage an euch schlauen Köpfe.
Das Problem ist in der Beispieldatei geschildert und hoffentlich verständlich!
https://www.herber.de/bbs/user/115906.xlsx
Und zwar sollen Zellen kopiert werden, so lange bis in Spalte F ein anderer Wert steht.
Ich freue mich auf Eure Unterstützung!!

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

Betreff
Datum
Anwender
Anzeige
AW: Werte kopieren bis anderer Wert
31.08.2017 10:17:39
ChrisL
Hi Marie
Sub t()
Dim i As Long
For i = 4 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(i, 6)  Cells(i - 1, 6) And Cells(i, 6) = 0 Then _
Range("F" & i - 1 & ":J" & i - 1).Copy Cells(i, 6)
Next i
End Sub
cu
Chris
AW: Werte kopieren bis anderer Wert
31.08.2017 10:31:34
Marie
Hallo Chris,
na das nenn ich mal schnell!! Danke vielmals!
Es funktioniert super, dauert nur ne Weile - das liegt aber wahrscheinlich an meinem Rechner!
Ich wünsche noch einen schönen Tag :-)
AW: Werte kopieren bis anderer Wert
31.08.2017 10:38:27
ChrisL
Hi
Danke für die Rückmeldung. So läuft es vielleicht etwas schneller:
Sub t()
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 4 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(i, 6)  Cells(i - 1, 6) And Cells(i, 6) = 0 Then _
Range("F" & i - 1 & ":J" & i - 1).Copy Cells(i, 6)
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

cu
Chris
Anzeige
AW: Werte kopieren bis anderer Wert
31.08.2017 10:53:22
Marie
Hey,
damit läuft es nicht schneller. Macht aber nichts!
Danke und lieben Gruß

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige