Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Listenfeld
#1
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.


Angehängte Dateien
.xlsx   Test.xlsx (Größe: 9,76 KB / Downloads: 6)
Antwortento top
#2
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
Antwortento top
#3
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
Antwortento top
#4
Danke Ralf_b!

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


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste