Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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 !
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige