ComboBox begrenzen

[Silverstream]

Guten Tag,

Kurze Frage zu ComboBoxen.

Wenn ich eine ComboBox erstelle und als "linkedCell" die gerade ausgewählte Zelle benutzen möchte dann muss ich doch das verwenden oder?

"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.LinkedCell = ActiveCell.Address
End Sub
"

Dann wird der Wert den ich über die Dropdownliste der ComboBox auswähle in die gerade aktive Zelle geschrieben.


Kann ich das dann auch begrenzen?

Das dies z.b. nur in A1 bis A4 funktioniert aber sonst nirgends?
Geht mir darum, Fehler zu vermeiden wenn zufällig eine Zelle außerhalb des Bereiches aktiv ist. (und mir dann ggf etwas überschreibt)

Danke

Grüße

Silver

[UweD]

Hallo

so?

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A4")) Is Nothing Then
        ComboBox1.LinkedCell = Target.Address
    End If
   
End Sub

LG UweD

[Silverstream]

Perfekt.

Recht herzlichen Dank!

[steve1da]

Schön dass du im anderen Forum a) nicht auf die Hilfe reagiert hast und b) nicht mitgeteilt hast dass du weitergezogen bist....

[Silverstream]

leider hatte das mit der anderen Abänderung des Codes nie funktioniert.
Ging entweder nur der 1. oder nur der 2.
Evtl hatte ichs falsch eingetragen etc. bin aber nicht drauf gekommen.

Grüße

Silver