Zellen aktualisieren mit VBA
25.08.2004 09:34:23
Markus
Folgende Aufgabe
in einem Tabellenblatt Zelle (A) können über eine Liste einer Gültigkeitsregel bestimmte Eingaben (Taxi, Bahn, Tanken....) ausgewählt werden.
Beim Verlassen möchte ich nun in einer der daneben liegenden Zelle (B) dann entsprechend die dazu passenden Werte anzeigen lassen:
Bsp:
(A) (B)
Taxi 77
Bahn 99
Den Befehl SVerweis kenne ich, möchte es aber mit VBA und Case...Select machen
Wie rufe ich das auf, damit jeweils beim Verlassen der Zelle(A) die Zelle (B) aktualisiert wird?
Zelle (A) habe ich den Namen Fahrtkosten1 definiert.
Ich habe so mal angefangen, das klappt aber leider nur im Einzelschrittmodus:
(Makro steht im betreffenden Tabellenblatt)
Private Sub Fahrtkosten1_Change()
Fahrtkosten = Range("B30").Value
Select Case Fahrtkosten
Case "Bahn"
Range("H30") = "99"
Case "Tankbeleg"
Range("H30") = "88"
Case Default
Range("H30") = ""
Case "Taxi"
Range("H30") = "77"
End Select
End Sub
Stimmt der Aufruf:
Private Sub Fahrtkosten1_Change()?
Für Hilfe Danke im voraus,
Gruß
Markus