Mit einem Button rufe ich folgende Sub auf.
Dim Acell As Range
Set Acell = Cells(ActiveCell.Row, 2)
Workbooks.Open ("\\server\***.xlsm")
With Workbooks("***.xlsm").Worksheets("Übersicht")
.Range("C3").Value = Acell.Value
Workbooks("***.xlsm").Activate
Range("A3").Select
End With
Wie kann ich das ganze über ne Combobox realisieren (bisher nur sehr sehr selten mit CB was gemacht)
Ich möchte per Set Acell den Wert aus der CB ziehen
und übernehmen.
Die Combobox und Comboclick hab ich so:
Private Sub UserForm_Initialize()
Dim X As Variant
With ActiveSheet
For X = 8 To [B65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("B8:B" & X), Cells(X, 2)) = 1 Then
ComboBox1.AddItem Cells(X, 2)
End If
Next
End With
End Sub
Private Sub ComboBox1_Click()
Dim Acell As String
Set Acell = ComboBox1.Value
Workbooks.Open ("\\***.xlsm")
With Workbooks("***.xlsm").Worksheets("Übersicht")
.Range("C3").Value = Acell.Value
Workbooks("***.xlsm").Activate
Range("A3").Select
End With
End Sub
Mein Problem ist jetzt die Zuweisung Acell für den Wert den ich in der Combobox anklicke.Set Acell = ComboBox1.Value kann und wird so nicht funktionieren.
Set Acell = ComboBox1.Text geht auch nicht, auch nicht über ComboBox1_Change
Ich komme nicht weiter und hoffe einer von Euch kann mir Diesen Code bitte erweitern!
Besten Dank und Gruß
Thorben