Hallo!
Ich versuche mir gerade eine paar Grundkenntnise zum Programmieren von Excel-Tabellen beizubringen. Leider stehe ich bei folgendem an und hoffe mir kann hier jemand auf die Sprünge helfen.
Darum geht es:
Ich haben einen Spaltenbereich zB A2:A10 in dem die Eingabe via Auswahl aus einer Dropdown-Liste möglich ist. Ich möchte, dass wenn ein bestimmter Wert der Liste gewählt wird, der Benutzer zu einer Eingabe aufgefordert wird und diese Eingabe dann in der Zeile anstelle dem Listenwert steht.
So weit so gut. Ich habe hinbekommen, dass dieser Ablauf für eine Zeile zB A2 funktioniert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A$2:$A$10")) Is Nothing Then
Select Case Range("A2")
Case "wert": Macro1
'Stops Select Case statement
End Select
End If
End Sub
Sub Macro1()
Range("A2").Value = _
InputBox(Prompt:="Enter value:")
End Sub
Das Ganze soll aber für alle Zeilen in der Range A2:A10 immer wieder erfolgen, wenn der bestimmte Listenwert in einer Zeile ausgewählt wird.
Soweit ich verstehe sollte dies mit Sub LoopCells1() ... Next ... End Sub Funktion möglich sein aber ich bekomme es nicht hin.
Ich wäre dankbar für Hilfe wie ich diese Funktion wiederholbar mache.
|