AW: Text auswählen, Zahl übernehmen
15.11.2019 10:39:59
Werner
Hallo Peter,
erstell dir eine Userform mit einer Combobox. Folgender Code ins Codemodul der Userform:
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex > -1 Then
'Blattname anpassen
ActiveCell = Worksheets("Tabelle1").Columns("A") _
.Find(what:=Me.ComboBox1, _
LookIn:=xlValues, lookat:=xlWhole).Offset(, 1).Value
Unload Me
End If
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
'Blatt mit der Liste in Spalte A
'Blattname an deine Bedürfnisse anpassen
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.AddItem .Cells(i, "A")
Next i
End With
End Sub
Folgender Code ins Codemodul von "DieseArbeitsmappe"
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Cancel = True
UserForm1.Show
End Sub
Ich bin davon ausgegangen, dass deine "Liste" im Blatt "Tabelle1" ist (ggf. im Code anpassen). Weiterhin bin ich davon ausgegangen, dass deine "Liste" in Zelle A2 beginnt (Zelle A1 Überschrift).
Das Makro startet bei Doppelklick in eine Zelle.
Gruß Werner