ich habe ein Excelblatt anbei hochgeladen. Ich möchte auf der Bemessungsseite in den Spalten B bis J die Möglichkeit haben entweder die geladenen Werte über die Funktion SVerweis oder über Dropdownliste bzw. durch eigene Eingabe zu verwenden. Wenn die Werte durch eigene Eingabe bzw. Dropdownliste nicht zufriedenstellend waren, sollen durch Löschung die ursprünglichen Werte aus dem Verweis wieder drin stehen.
Ich habe folgenden Code beispielhaft für die Spalte B gebastelt, der jedoch nicht ganz funktioniert. Dieser (wenn er denn funktioniert) soll dann für die Spalten B bis J ausgeweitet werden. Hat jemand eine Idee?
Danke schon mal für die Hilfe.
Code:
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target, Range("B13:B1012")) Is Nothing Then
If Target = "" Then
Target.FormulaR1C1 = "=vlookup(r[]c[-1],Statik!r2c1:r1000c11,2,0)"
End If
End If
End If
End Sub
https://www.herber.de/bbs/user/108104.zip