VBA Focus auf Zelle in Zeile überspringen
09.08.2017 12:10:35
Peer
Ich versuche gerade über VBA folgendes Ereignis zu erzeugen, scheitere aber mangels Wissen daran.
Vielleicht findet von Euch jemand den Fehler oder/und weiß eine bessere Lösung.
Ich möchte bei Auswahl ab Zeile 10 in der Spalte 4, dass der Focus auf in derselben Zeile auf die Spalte 20 gelegt wird. Ob mit der Maus oder per Tab-Taste.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'wenn die aktive Zeile in Spalte 4 den Focus bekommt, springt der Cursor auf die selbe Zeile in _
Spalte 20
Dim strCell As String
Dim Spalte As Range
strCell = ActiveCell.Address
Spalte = ActiveSheet.Cells(Zeile, 4)
'If strCell = Range(Cells(Zeile, 4)).Address Then Range("L10").Select
If Spalte.Range(Cells(, 4)).Address Then ActiveSheet.Cells(Zeile, 20).Select
End Sub