Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Combobox Click Value iV mit Offset

Combobox Click Value iV mit Offset
23.05.2016 13:54:12
Thorben
Hall alle zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
nach einigen Versuchen geschaft! Trotzdem Danke!
24.05.2016 14:01:15
Thorben
Mit
Set Suchergebnis = .Find(ComboBox2.Text, LookIn:=xlValues, lookat:=xlPart)
If Not Suchergebnis Is Nothing Then
Acell2 = Suchergebnis.Offset(0, 1).Value
End If
End With
usw.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige