Letzte Zeile springen
12.10.2004 15:16:54
Erich
ich will nach Werteingabe in E? (z.B. E10) nicht in die nächste D? (hier wäre es D11) springen, sondern in die erste leere D?.
Dazu habe ich folg. Möglichkeiten "konstruiert" :
1) If Target.Column = 5 Then [D65536].End(xlUp).Offset(1,0).select
2) Case 5
[D65536].End(xlUp).Offset(1,0).Select
Die Sache funktioniert, nur geht es nicht auch ohne [D65536].... ?
Weitere Frage :
Ich habe mehrmals 'If Target.Column = 4 Then Target.Offset(0,1).Select', dann 'If Target.Column = 5 Then Target.Offset(0,1),Select' u.s.w. Kann man dies nicht mit einer Schleife machen ?
Das gleiche gilt für 'Case 4 - Cells(Target.Row, Target.Column + 1).Select', dann 'Case 5 - Cells(Target.Row, Target.Column + 1).Select ...
Leicht für Könner, für mich allerdings ...
Gruß Erich Müller
Anzeige