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 …
)
grüße
herpes
Hi Herpes,
also für die Zeilen 5 bis 27 könntest Du schreiben:
r = ActiveCell.Row
If r>=5 and r
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]
Kleine Korrektur 
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