Office: Dropdown auswahl speichern

Hallo
kann mir jemand sagen, wie ich die auswahl eines dropdown menüs an einem anderen punkt meiner tabelle abspeichern kann?

und wäre es auch möglich, das in eine bereits bestehende liste als unterpunkt (zb mit dem gruppieren befehl) einzufügen?

kann man einen knopf erstellen, der zb speichern heisst, und der dann automatisch ein makro startet, das die daten abspeichert?

ich hoffe ihr könnt helfen

besten dank im vorraus

 

Hallo!

Schau dir mal den Anhang an.
Das müsste in etwa passen.

 

danke sehr,
jetzt hab ich schonmal einen Ansatz.
gibts denn auch ne möglichkeit das ganze zwischen die einzelnen punkte in der speicherliste zu paacken, und das dann auszublenden?

und kann ich das noch irgendwie begrenzen, dass zb nur zahlen abgespeichert werden?

ich habe gestern abend in meinem anderen beitrag im excel forum eine datei angehangen , in der man ganz gut sehen kann, wie das funktionieren sollte. könntest du da vlt mal hinein schauen, und mir sagen ob das geht?

mfg squooshie

 

Hallo!

Deine Datei habe ich mir schon angeschaut, bin daraus aber in keinster Weise schlau geworden, da sich mir nicht erschließt, auf welche Art was mit welchem kombiniert werden soll...

Ebensowenig verstehe ich diese Aussage:

Um nur Zahlen zu speichern, musst du den DD-Inhalt darauf abfragen:

Code:

Private Sub CommandButton1_Click()
If IsNumeric(Range("F2")) Then Range("A65536").End(xlUp).Offset(1, 0) = Range("F2")
End Sub

 

ich hab das hier nochmal in meiner beispieldatei verändert,
sollte jetzt etwas klarer sein, was ich überhaupt möchte

 

Hallo!

Teste mal diesen Code:

Code:

Private Sub CommandButton1_Click()
Dim Ziel As Range
With Sheets("Maschinen")
Set Ziel = .Columns(1).Find(Range("B16"))
.Rows(Ziel.Row + 1).Insert Shift:=xlShiftDown
.Range(Ziel.Offset(1, 0), Ziel.Offset(1, 3)).NumberFormat = "@"
Ziel.Offset(1, 0) = Range("B16")
Ziel.Offset(1, 1) = Left(Range("C16"), InStr(Range("C16"), " ") - 1)
Ziel.Offset(1, 2) = Left(Range("D16"), InStr(Range("D16"), " ") - 1)
Ziel.Offset(1, 3) = Range("E16")
End With
End Sub

In den Spalten B und C werden die Einträge ab dem Leerzeichen abgeschnitten.