AW: Listbox in Textfeld Formatiert weiterleiten
01.02.2004 16:40:47
ARC
Hallo Alex,
vielen Dank für den Tip...leider kriege ich es nicht hin.
Er nimmt mir die Ergebnisse aus der Listbox nicht an. Ich habe 2 Listboxen auf einem Userforum.Die eine holt sich die Daten aus einem Sheet. Dann kann ich mit links rechts Buttons aus dieser Listbox der anderen die ausgewählten Daten rüberschieben. Die Ergebnise der 2.Listbox gehören dann in ein wenn ich das Button "übernehmen"Textfeld getrennt mit dem ";" Zeichen.
Ich habe deinen Code etwas umgemodelt und es versucht anzupassen aber ohne Erfolg:
Trotzdem Vielen Dank!
Option Explicit
Dim UsFo As New cNAUserForm
Sub UserForm_Initialize()
With UsFo
.MaxButton = True
.MinButton = True
.Na_BorderStyle = Na_xlÄnderbar
.Create LB_NA_UserForm
End With
End Sub
Private Sub LB_AllLeft_CommandButton_Click()
Dim i%
'Alle Leistungsbereiche werden in Listbox LB_Left_ListBox hinzugefügt
For i = 0 To LB_right_ListBox.ListCount - 1
LB_Left_ListBox.AddItem LB_right_ListBox.List(i)
Next
LB_right_ListBox.Clear
End Sub
Private Sub LB_AllRight_CommandButton_Click()
Dim i%
'Alle Leistungsbereiche werden in Listbox LB_Right_ListBox hinzugefügt
For i = 0 To LB_Left_ListBox.ListCount - 1
LB_right_ListBox.AddItem LB_Left_ListBox.List(i)
Next
LB_Left_ListBox.Clear
End Sub
Private Sub LB_OneLeft_CommandButton_Click()
Dim i%
'Gewählte Leistungsbereiche werden in Listbox LB_Left_ListBox hinzugefügt
For i = 0 To LB_right_ListBox.ListCount - 1
If LB_right_ListBox.Selected(i) = True Then
LB_Left_ListBox.AddItem LB_right_ListBox.List(i)
End If
Next
'Gewählte Leistungsbereiche werden in Listbox LB_right_ListBox gelöscht
For i = LB_right_ListBox.ListCount - 1 To 0 Step -1
If LB_right_ListBox.Selected(i) = True Then
LB_right_ListBox.RemoveItem i
End If
Next
End Sub
Private Sub LB_OneRight_CommandButton_Click()
Dim i%
'Gewählte Leistungsbereiche werden in Listbox LB_Right_ListBox hinzugefügt
For i = 0 To LB_Left_ListBox.ListCount - 1
If LB_Left_ListBox.Selected(i) = True Then
LB_right_ListBox.AddItem LB_Left_ListBox.List(i)
End If
Next
'Gewählte Leistungsbereiche werden in Listbox LB_Left_ListBox gelöscht
For i = LB_Left_ListBox.ListCount - 1 To 0 Step -1
If LB_Left_ListBox.Selected(i) = True Then
LB_Left_ListBox.RemoveItem i
End If
Next
End Sub
Sub LB_Uebernehmen_CommandButton_Click() ''Das ist der Button der nicht greifft!
Dim i As Integer
With LB_NA_UserForm.LB_right_ListBox
Tool_Bar.Nachtrag_GewLB.Value = ""
For i = 0 To LB_NA_UserForm.LB_right_ListBox.ListCount - 1
If LB_NA_UserForm.LB_right_ListBox.Selected(i) = True Then
Tool_Bar.Nachtrag_GewLB.Value = Tool_Bar.Nachtrag_GewLB.Value & .List(i) & ";"
End If
Next i
End With
Tag = -1
LB_NA_UserForm.Hide
End Sub
Sub LB_Abbrechen_CommandButton_Click()
Tag = 0
LB_NA_UserForm.Hide
End Sub