geht sowas?:
Ich möchte in der CB die Werte siehe "Dim Y As Variant" sehen.
Beim anklicken des Wertes in der CB er soll aber der Wert .Offset(0, 1) in die andere Tabelle übertragen werden!!!
Problem wird sein das ich mir keine Duplikate anzeigen lasse und eine Art Sverweis bei Acell2 = ComboBox2.Value nachgeschaltet werden muss bzw. Acell2 wieder in eine Var packen...!?
Aber Wie?
Ich finde gerade nicht den richtigen Ansatz!
Ich rufe so auf:
Private Sub UserForm_Initialize()
Dim X As Variant
Dim Y As Variant
With ActiveSheet
For X = 10 To [B65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("B8:B" & X), Cells(X, 2)) = 1 Then
ComboBox1.AddItem Cells(X, 2)
For Y = 10 To [D65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("D8:D" & Y), Cells(Y, 4)) = 1 Then
ComboBox2.AddItem Cells(Y, 4)
End If
Next
End If
Next
End With
End Sub
Private Sub ComboBox2_Click()
Dim Acell2 As String
Acell2 = ComboBox2.Value
Workbooks.Open ("\\server\Auslesen.xlsm")
With Workbooks("Auslesen.xlsm").Worksheets("Auslesen")
.Range("B3:T6").ClearContents
.Range("S3").Value = Acell2
Workbooks("Auslesen.xlsm").Activate
Range("A3").Select
End With
UserForm2.Hide
End Sub
Danke schon mal für Eure Hilfe!Gruß
Thorben