Inhalte übernehmen, wenn...

Forumthread: Inhalte übernehmen, wenn...
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Inhalte übernehmen, wenn...

21.10.2004 12: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

AW: Inhalte übernehmen, wenn...

WernerB.
AW: Inhalte übernehmen, wenn...

21.10.2004 13:34:35

Jutta
AW: Inhalte übernehmen, wenn...

21.10.2004 12:28:24

Jutta

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 13:34:35

Jutta

Danke Werner !!!
Gruß
Jutta

AW: Inhalte übernehmen, wenn...

21.10.2004 12:28:24

Jutta

Ich formuliere die Frage anders.
Gruß
Jutta