Kombinationsfeld mit verschiedenen Zellenverknüpfu

Computer: Software & Programmierung Office Software
1

Hallo.
Ist es möglich, ein Kombinationsfeld durch ein Makro auf verschiedene Eingabebereiche und Zellverknüpfung (ausgabe) zu verknüpfen?

Ich habe folgendes vor:
Über ein Optionsfeld habe ich 6 Punkte. Wenn ich jetzt Punkt 1 anklicke, soll im
Kombinationsfeld der Eingabebereich von Tabelle1 A1 bis A20 stehen.

Wenn ich in Optionsfeld den 2 Punkt anklicke, soll jetzt im Kombinationsfeld der Eingabebereich von Tabelle2 A1 bis A30 stehen

Und so weiter.

Ich denke mir mal, das dies doch machbar sein müsste.

Oder hat jemand vielleicht eine bessere Idee, wie ich das bewerkstelligen könnte?

Ich sage schon mal an allen die sich den Kopf für mein Problem zerbrechen herzlichen Dank.

Mit freundlichen Grüßen. Toni

2

Ich habe folgendes vor:
Über ein Optionsfeld habe ich 6 Punkte. Wenn ich jetzt Punkt 1
anklicke, soll im
Kombinationsfeld der Eingabebereich von Tabelle1 A1 bis A20
stehen.
Wenn ich in Optionsfeld den 2 Punkt anklicke, soll jetzt im
Kombinationsfeld der Eingabebereich von Tabelle2 A1 bis A30
stehen

Oder hat jemand vielleicht eine bessere Idee, wie ich das
bewerkstelligen könnte?

Keine Ahnung, weiss ja nicht was du insgesamt machen willst.

Hi Krisam,
weise deinen Optionsfelder die nachfolgenden Makros zu.
Gruß
Reinhard

Sub tt1()
 ActiveSheet.Shapes("Drop Down 1").Select
 With Selection
 .ListFillRange = "a1:a20"
 .LinkedCell = "d1"
 .DropDownLines = 8
 .Display3DShading = False
 End With
End Sub
Sub tt2()
 ActiveSheet.Shapes("Drop Down 1").Select
 With Selection
 .ListFillRange = "a1:a40"
 .LinkedCell = "d1"
 .DropDownLines = 8
 .Display3DShading = False
 End With
End Sub
Sub tt3()...
3

Danke, Super!!! Aber eine Frage noch dazu.
Zuerst einmal ein großes Dankeschön.
Funktioniert super.
Aber wie kann ich verschiedene Seiten damit ansprechen?
(Zb. Wenn Optionsfeld1 aktiviert ist sollen die Daten aus Tabelle2 von A1 bis A20 gelesen werden und bei Optionsfeld2 aus Tabelle3 und so weiter.)

Sub tt1()
ActiveSheet.Shapes(„Drop Down 1“).Select
With Selection
.ListFillRange = „a1:a20“
.LinkedCell = „d1“
.DropDownLines = 8
.Display3DShading = False
End With
End Sub
Sub tt2()
ActiveSheet.Shapes(„Drop Down 1“).Select
With Selection
.ListFillRange = „a1:a40“
.LinkedCell = „d1“
.DropDownLines = 8
.Display3DShading = False
End With
End Sub
Sub tt3()…