Durch Zellergebnis aus Liste in Zelle springen
20.12.2013 17:29:10
Michel
Ich schon wieder. Ich habe ein Tabellenblatt mit 2000 Zeilen. In Spalte A wird jeweils über eine Gültigkeitsliste ein Wert ausgewählt. Je nachdem welches Ergebnis die Auswahl bringt soll der Cursor in eine andere Zelle der Zeile springen:
z. Bsp. Auswahl Wert A => Zelle B
Auswahl Wert B => Zelle T
Auswahl Wert C => Zelle AD der betreffenden Zeile
Ich habe die Foren durchforstet und einiges ausprobiert, wobei ich keinen blassen Schimmer von VBA habe.
Auf der Tabellenseit ist jedoch schon ein Code aktiv:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'* H. Ziplies *
'* 13.06.03 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://home.media-n.de/ziplies/
' wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum _
eingetragen
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("b2:b2000, e2:e2000")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 4) = Date 'die 1 _
steht für die nächste spalte ggf. Wert erhöhen harald
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Nur damit sich die beiden nicht ins Gehege kommen.
Ich hoffe dass Ihr mir eine Idee habt.