AW: geht evtl doch
07.03.2006 12:33:46
Manuel
Hi Robert.
Also.
In dem Blatt, in welchem du die Combobox haben willst, gibst du im VBA-Editor folgendes ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
spalte = Mid(Target.Address, InStr(1, Target.Address, "$") + 1, (InStr(InStr(1, Target.Address, "$") + 1, Target.Address, "$") - (InStr(1, Target.Address, "$") + 1)))
If spalte = "B" Then frmAuswahl.Show
End Sub
Spalte musste dann anpassen.
Und du erstellst dir die Form "frmAuswahl".
1 Combobox und 1 Button.
Folgender Code:
Private Sub UserForm_Initialize()
For i = 1 To Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem (Sheets("Tabelle2").Cells(i, 1))
Next i
End Sub
Private Sub CommandButton1_Click()
ActiveCell.Value = ComboBox1.SelText
Unload Me
End Sub
Bitte um Rü, ob es hilft.
Mit freundlichen Grüßen
Manuel Marhold