Angepasster Curserrücksprung
22.01.2006 16:22:53
Uwe
Habe eine Tabelle erstellt, in der unter A B usw(max60Spalten)die Zahlen addiert werden.
Zeile mit 1 2 3 4usw ist nur optisch von Bedeutung.A=Zelladresse F3.
In Zelle X1 gebe ich die Anzahl der zu addierenden Spalten ein.
Es geht hier um Curserrücksprung. Habe folgendes Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim iRow As Integer
If Target.Column = 66 Then
iRow = ActiveCell.Row
Cells(iRow + 1, 6).Select
End If
End Sub
Ich will nun, dass = 66 Then automatisch den Inhalt der Zelle X1 übernimmt.
Also, wenn in X1 17 steht, dann muss der Curser endsprechend zurück springen.
A B C D E F G H W X
1 2 3 4 5 6 7 8 9 10 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1
1 1 1 1 1
Hoffe, mein Problem ist verständlich geschildert.
Nun hoffe ich, dass ihr Klugen einem Dummen helfen könnt.
Bedanke mich im Vorraus Gruss Uwe