Listenfeld

[schwarzeteufel]

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.

[schwarzeteufel]

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

[ralf_b]

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

[schwarzeteufel]

Danke Ralf_b!

Das war genau das was ich gesucht habe. Funktioniert Super. Nochmal Danke.