Automatischer Curserrücksprung
23.01.2006 21:19:58
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.
Der Curser bewegt sich im Bereich F5 bis BM5, um dann eine Zeile tiefer bei F6
weiter zu machen. Ich will nun erreichen, dass der Curser bei Inhalt der Zelle X1
zB.17 nur von F5 bis V5,wenn in X1 20 steht, dann F5 bis Y5, usw.Also, maximal
66Spalten. Inhalt von X1 ist veränderbar, je nachdem, wieviel Spalten ich brauche.
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