AW: Listbox Variable
22.10.2013 08:12:29
fcs
Hallo Karl-Heinz,
mit nach folgenden Anpassungen sollte es funktionieren.
mfg
Franz
'Code im Userform1
Private Sub UserForm_Initialize()
With ListBox1
.ColumnHeads = True
End With
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Bei doppelklick _
Listbox Eintrag Inhalt in Aktive Zelle einfügen
With ListBox1
If .ListIndex >= 1 Then 'dadurch kann Bezeichnung der Schicht nicht gewählt werden
ActiveCell.Value = .List(.ListIndex)
Application.SendKeys "{TAB}", True
ActiveCell.Select
Unload Me 'nach Aktivierung Listbox schliessen
End If
End With
End Sub
'Code unter Tabelle1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim bereich As Range, Spalte As Long
If Not Intersect(Target, Range("C8:M40")) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Cancel = True
Spalte = (Target.Row - 6) / 2
Set bereich = Range(Cells(121, Spalte), Cells(133, Spalte))
With UserForm1
.ListBox1.RowSource = "'" & Me.Name & "'!" & bereich.Address(ReferenceStyle:=xlA1)
End With
Call Start1
End If
End If
End Sub