EXCEL VBA eine Userform mit ListBox / Listenfeld

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub cbxVorhaben_Change() Me.lbxText.Clear Me.cbxHauptvorhaben.Clear If Me.cbxVorhaben.ListIndex = -1 Then Exit Sub arrListe = wksAuswahl.ListObjects(Me.cbxVorhaben.Value).DataBodyRange Me.cbxHauptvorhaben.List = arrListe Me.Label_UVH.Caption = "" End Sub

Private Sub cmbEintragen_Click() Dim iList As Integer, Zeile As Long wksData.Range("B13:B38").ClearContents Zeile = 0 With Me.lbxText For iList = 0 To .ListCount - 1 If .Selected(iList) Then Zeile = Zeile + 1 wksData.Cells(Zeile, 1).Value = .List(iList, 0) End If Next End With Me.Hide End Sub

Private Sub cmbEintragen_Click() Dim iList As Integer, Zeile As Long wksData.Range("B13:B38").ClearContents Zeile = 12 'unterhalb dieser Zeile beginnt das Eintragen der gewählten Texte With Me.lbxText For iList = 0 To .ListCount - 1 If .Selected(iList) Then Zeile = Zeile + 1 wksData.Cells(Zeile, 2).Value = .List(iList, 0) 'Wert in 2. Spalte (B) _ eintragen End If Next End With Me.Hide End Sub

Wie kann ich aus der Userbox den Hauptvorbaben des Name der angewählte Bezeichnung zb. Planung in Zeile A 13 Anzeigen lassen? Und wenn ich auf den Hauptvorgang Montage wechsel, sollte das Wort Montage in der Zeile A13 angezeigt werden? Dann hätte ich alles.... Und vielen Dank für Deine Mühe und die brillante Lösung!!!
Es war doch gut die Hoffnung nicht aufzugeben, Sehr schön das es solche Leute wie Dich gibt, die andern mit Ihrem Wissen Helfen und nicht nur dumme Sprüche ablassen,
Klasse ich bin Dir zu tausendmal Dankbar.
Hätte doch noch was. :) vielleicht hast du eine Idee.
Extra Excel Makro:
Wenn 1. Datum aus dem Datum Bereich (A1- A500) überschritten wird, werden die überschrietenen Datume Rot und springt im nächsten 2. Datum Bereich (B1-B500). Wenn dieser überschritten wird, wird es auch Rot, wechselt dann zum 3. Datum Bereich (C1-C500) und gleicht dieses Datum ab und ist da ein Datum überschritten, wird es Rot und kommt eine Warnmeldung ZB. in einer Textbox.

Private Sub cmbEintragen_Click() Dim iList As Integer, Zeile As Long wksData.Range("B13:B31").ClearContents Zeile = 12 wksData.Cells(Zeile + 1, 1).Value = Me.cbxVorhaben.Value With Me.lbxText For iList = 0 To .ListCount - 1 If .Selected(iList) Then Zeile = Zeile + 1 wksData.Cells(Zeile, 2).Value = .List(iList, 0) End If Next End With Me.Hide End Sub

Danke: Ja das mit dem Datum hab ich hin bekommen.
Aber ich habe noch ein klein Fehler oder Prob. in der UserForm.
und zwar wenn ich im erste Untervorhaben Texte auswähle und Sie Eintrage. Und dann im zweiten Untervorhaben Texte auswähle und Eintrage werden die schon ausgewählte7hinzugefügten Texte aus dem erste untervorhaben gelöscht/überschrieben.In der Zeile B13.
Es müsste prüfen ob ab Zeile B13,B14,B15 usw was befühlt ist.

Private Sub cmbEintragen_Click()
Dim iList As Integer, Zeile As Long
wksData.Range("B13:B31").ClearContents
Zeile = 12
wksData.Cells(Zeile + 1, 1).Value = Me.cbxVorhaben.Value
With Me.lbxText
For iList = 0 To .ListCount - 1
If .Selected(iList) Then
Zeile = Zeile + 1
wksData.Cells(Zeile, 2).Value = .List(iList, 0)
End If
Next
End With
Me.Hide
End Sub

Beliebteste Forumthreads (12 Monate)

EXCEL VBA eine Userform mit ListBox / Listenfeld

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

EXCEL VBA eine Userform mit ListBox / Listenfeld

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread