Dropdown, nach Auswahl, Zellen nach rechts füllen
10.03.2017 15:31:09
Peter
Mit dem unten stehenden Script werden Dropdowns von A11 bis A35 erstellt.
Die Auswahlwerte kommen von Tabelle Ressourcengruppen die in Spalte B2:B stehen, in den Spalten C:D stehen die entsprechenden Zusatzinformationen.
Wenn ein Wert gewählt wurde, soll dieser in die aktive Zelle geschrieben werden (soweit gut). Jedoch zusätzlich, sollen in die Spalten rechts von der aktiven Zelle, die entsprechenden Zusatzinformationen geschrieben werden.
Wie könnte ich das lösen, eine Art VBA Sverweis mit Schlaufe (keine Formel) ....?
https://www.herber.de/bbs/user/112092.xlsm
Sub Dropdown_Ressourcengruppen_A11bisA35()
ActiveSheet.Unprotect
With Range("A11:A35").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Dynamischetabelle_Ressourcengruppe"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Danke für die Unterstützung.
Viele Grüsse,
Peter
Anzeige