Hallo zusammen,
Ich habe eine test Mappe in c1 Listenfeld befindet.
Wenn ich in dem Listenfeld was auswähle soll die wie in Link Zell Bezug die Zellen springen.
wie bekomme ich das hin.
ist das nicht möglich in dem Listenfeld wenn man was auswählt oder mit vba in dem angegebenen Bereiche markiert und dort springt.
Danke Voraus
Hier das sollte es sein. Es wird zur ersten Zelle des Zielbereiches gescrollt
Wohin du es kopieren mußt weist du?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arVerweise, i As Integer
arVerweise = Array(Array("Einnahme", "A1:S40"), Array("Lohn", "A41:S55"), Array("Nebenjob", "A56:S75"), Array("Renten", "A76:S88"), Array("Ausgaben", "T1:AH36"), Array("Wohnung", "T37:AH59"), Array("Telefons", "T60:AH83"), Array("Versicherungen", "T84:AH122"))
If Target.Address(0, 0) = "C1" Then
For i = LBound(arVerweise, 1) To UBound(arVerweise, 1)
If arVerweise(i)(0) = Target.Value Then
Application.Goto Range(arVerweise(i)(1)).Cells(1, 1).Address(False, False, xlR1C1, , Target), True
Exit For
End If
Next
End If
End Sub
Danke Ralf_b!
Das war genau das was ich gesucht habe. Funktioniert Super. Nochmal Danke.