If ActiveCell.Row = i Then ...Offset

Computer: Software & Programmierung Office Software
1

hallo da draussen!

kennt jemänsch eine vereinfachung für:
If ActiveCell.Row = 5 Then
ActiveCell.Offset(1, 0).Select
End If

If ActiveCell.Row = 7 Then
ActiveCell.Offset(1, 0).Select
End If

If ActiveCell.Row = 9 Then
ActiveCell.Offset(1, 0).Select
End If

soll dann bis Row 27 laufen.

Da dann auch noch bestimmte Colums einen Offset erhalten
muss da doch auf jedenfall eine Vereinfachung hin…

oder?

vielen herzlichen dank schon mal …:wink:)

grüße
herpes

2

Hi Herpes,

also für die Zeilen 5 bis 27 könntest Du schreiben:

r = ActiveCell.Row
If r>=5 and r

3

1ne Möglichk. ist mit OR
ha!
eine lösung hab ich jetzt selber:

If ActiveCell.Row = 5 Or 7 Or 9 Or 11 Or 13 Or 15 Or 17 (usw.)Then
ActiveCell.Offset(1, 0).Select
End If

aber geht das noch einfacher?
gruß
härpes

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Kleine Korrektur :smile:
Hi Herpes,

will ja nicht spießig sein, aber so

If ActiveCell.Row = 5 Or 7 Or 9 Or 11 Or 13 Or 15 Or 17

kann das wohl nicht funktionieren. Wenn, dann muss es

r = ActiveCell.Row
If r = 5 or r = 7 or r = 9 …

heißen. Sorry, wahrscheinlich hast Du das gemeint, aber es gibt vielleicht Leute hier, die das verwirrt.

Gruß

Sculpture