Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhalte übernehmen, wenn...

Forumthread: Inhalte übernehmen, wenn...

Inhalte übernehmen, wenn...
21.10.2004 10:13:55
Jutta
Hallo,
wie bekomme ich das hin:
in der Spalte B stehen Werte mit 88, immer wenn nun ein Wert 88 z. in B4, steht, soll eine Zeile höher nach rechts gesprungen werden und der Inhalt von F3 in die Zelle F4 kopiert werden.Und das für die ganze Tabelle nach unten.
Gruß
Jutta
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte übernehmen, wenn...
WernerB.
Hallo Jutta,
wie gefällt Dir das?

Sub Jutta()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For Each c In Range("B2:B" & laR)
If c.Text = "88" Then
c.Offset(0, 4).Value = c.Offset(-1, 4)
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Inhalte übernehmen, wenn...
21.10.2004 11:34:35
Jutta
Danke Werner !!!
Gruß
Jutta
AW: Inhalte übernehmen, wenn...
21.10.2004 10:28:24
Jutta
Ich formuliere die Frage anders.
Gruß
Jutta
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige