Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox Variable

Forumthread: Listbox Variable

Listbox Variable
21.10.2013 18:58:40
Kruse
Hallo Excelfreunde
Ich plane einen Schichtplan in dem ich wenn ein Doppelklick auf C8:M8 mache die Listbox mit dem Inhalt von A120:A133 hat und wenn ich auf C10:M10 einen Doppeklick mache die Listboxs mit dem Inhalt von B120:B133 gefüllt wird usw.
bei Doppelklick auf den Listbox eintrag soll der wert in die betreffende Zelle eingefügt werden.Ich schaffe es nicht den Listbox Eintrag Variabel zu halten.
vieleicht könnt ihr mir helfen.
Danke und Gruß
Karl-Heinz
https://www.herber.de/bbs/user/87726.xls

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige
AW: Listbox Variable
23.10.2013 06:17:03
Kruse
Hallo Franz
Danke klappt wunderbar
Gruß
Karl-Heinz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige