Servus mitnand
ich wollte gern über VBA ein Code schreiben der folgendes macht...
wenn ich zwischen Reihe 3 und 79 Spalte A selektier, soll er mir an das Ende des geschriebenen in der Reihe springen bzw. auf das nächste feie Feld.
im manuell würde das so aussehn...
A3 selektieren, END Pfeil nach rechts Taste drücken und nochmal eins nach rechts drücken. dann steht er auf dem nächsten freien Feld.
über das Aufnahme Makro würd es so aussehn...
Sub ende()
Range("A3").Select
Selection.End(xlToRight).Select
Range("J3").Select
End Sub
Jetzt woll ich das aber als automatische Makro
hab so was
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r = ActiveCell.Row
If r > 3 And r < 79 Then
If Cells(r, 1) = Select Then das mit Select geht eben nicht
Selection.End(xlToRight).Select
End If
End If
End Sub
Danke
Timonski