automatisches Vorbelegen von Feldern nach auswahl aus einem Dropdown-Menü

Jetzt mal ohne zu Testen müßte das ungefär so aussehen :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range(Target.Address).Column = Range("A:A").Column Then
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Bestellnummer 100,Bestellnummer 101,Bestellnummer 102"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If

Select Case Range("A" & Range(Target.Address).Row).Value
Case "Bestellnummer 100"
Range("B" & Range(Target.Address).Row).Value = "-15-"
Range("C" & Range(Target.Address).Row).Value = "-25-"
Range("D" & Range(Target.Address).Row).Value = "-35-"
Case "Bestellnummer 101"
Range("B" & Range(Target.Address).Row).Value = "-222-"
Range("C" & Range(Target.Address).Row).Value = "-333-"
Range("D" & Range(Target.Address).Row).Value = "-444-"
Case "Bestellnummer 102"
Range("B" & Range(Target.Address).Row).Value = "-456-"
Range("C" & Range(Target.Address).Row).Value = "-567-"
Range("D" & Range(Target.Address).Row).Value = "-678-"
End Select

End Sub


miniversum

Ok hier die Erklärung:
Allgemeiner Ablauf:
Es wird geprüft ob du eine Zelle im der Spalte A markiert hast und wenn das so ist dan wird für diese Zelle eine Gültigkeitsprüfung erzeugt.

Ablauf im einzelnen:
'hier wird überprüft ob du eine Zelle in Spalte A markiert hast (über Target.Address)
If Range(Target.Address).Column = Range("A:A").Column Then
'ab hier wird eine Gültigkeitsprüfung erzeugt
With Selection.Validation
.Delete 'alte Werte für die Gültigkeitsprüfungen löschen
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
xlBetween, Formula1:="Bestellnummer 100,Bestellnummer 101,Bestellnummer 102" 'Neue Werte für die Gültigkeitsprüfung anlegen
'ab hier noch andere Parameter wie Leerzeichen ignorieren, das der Pfeil angezeigt wird, und was bei andern Eingaben geschehen soll (Fehlermeldungen oder Hinweise oder so), ist nur der vollständigkeit halber.
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If


Wenn du jetzt bei D noch was haben willst könntest du das ganze noch in einander verschachteln, wird aber bei mehreren Angaben recht ausfendig.
Drum würd ich einfach noch den Block für D drunterhängen und die If bedingung am anfang anpassen.
Das ganze wäre also so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range(Target.Address).Column = Range("A:A").Column Then
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
xlBetween, Formula1:="Bestellnummer 100,Bestellnummer 101,Bestellnummer 102"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If

Select Case Range("A" & Range(Target.Address).Row).Value
Case "Bestellnummer 100"
Range("B" & Range(Target.Address).Row).Value = "-15-"
Range("C" & Range(Target.Address).Row).Value = "-25-"
Range("D" & Range(Target.Address).Row).Value = "-35-"
Case "Bestellnummer 101"
Range("B" & Range(Target.Address).Row).Value = "-222-"
Range("C" & Range(Target.Address).Row).Value = "-333-"
Range("D" & Range(Target.Address).Row).Value = "-444-"
Case "Bestellnummer 102"
Range("B" & Range(Target.Address).Row).Value = "-456-"
Range("C" & Range(Target.Address).Row).Value = "-567-"
Range("D" & Range(Target.Address).Row).Value = "-678-"
End Select

'Ab hier für D die Auswahl
If Range(Target.Address).Column = Range("D:D").Column And _
Range("A" & Range(Target.Address).Row).Value = "Bestellnummer 102" Then
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
xlBetween, Formula1:="-678-,-666-"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If

End Sub

miniversum

Ok war ein Fehler von mir:
Ändere den Case mal folgendermasen um:

Case "Bestellnummer 102"
Range("B" & Range(Target.Address).Row).Value = "-456-"
Range("C" & Range(Target.Address).Row).Value = "-567-"
if not Range("D" & Range(Target.Address).Row).Value = "-678-" or Range("D" & Range(Target.Address).Row).Value = "-666-" then Range("D" & Range(Target.Address).Row).Value = "-678-"

Das mit den einfach reinkopieren stimmt aber das mit dem selbst Makro ausführen brauchst du eigentlich nicht.
Es sollte immer laufen sobald du auf ein Feld in der Tabelle klickst, weil die Funktion ja Worksheet_SelectionChange(ByVal Target As Range) heißt.
Hast du es in einen Modul Ordner (modul 1 oder so) kopiert? Es muß im Tabellenblat (z.B. Tabelle1) stehen.


Wen du smal ausprobieren willst kannst du ja mal folgendes in Tabelle1 (oder wie es bei dir heist) kopieren:

Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

Hier sollte einfach nur imemr in Meldungsfenster aufgeben was dir Anzeigt welche Zelle du angeklickt hast.

miniversum

Das er den wert ncith verändert wenn 678 oder 666 drinsteht
Ich hab das aus dem Kopf geschrieben und nicht getestet sorry.

Sollte eigentlch gehen so.

miniversum

Hallo captainchaos666!

Ändere die Zeile If Range(Target.Address).Column = Range("A2:A10").Column Then in

Analog dazu müsstest Du (zur Sicherheit) auch für die Spalte E schreiben:

Ich gehe davon aus, dass das führende Minuszeichen zB in "-666-" stört. Kannst Du

• dieses vermeiden,
• durch ein benutzerdefiniertes Zahlenformat ersetzen oder
• die Zellen vorweg als "Text" formatieren?

Ansonsten könntest Du noch im Code die Schreibweise mit Apostroph (') versuchen, also:
- sieht zwar in der Liste nicht so gut aus, funktioniert aber (zumindest bei mir).

Meinst Du mit "aktualisiert", dass der Programmteil "Vorbelegung Werte" ausgeführt wird? Falls ja, könntest Du diesen Teil auf das Ereignis "Worksheet_Change" beziehen und den ganzen Block in das folgende Sub stellen (im "Worksheet_SelectionChange"-Ereignis brauchst Du ihn dann natürlich nicht mehr):
Die Zuweisung für Spalte D bei "Bestellnummer 102" habe ich so verstanden, dass eine Vorbelegung mit "-678-" erfolgen soll, falls nicht schon ein Eintrag "-666-" existiert - richtig? Auf Basis dieser Annahme habe ich den Code etwas vereinfacht.

HTH
bastla