VBA Kopieren von ListBox Auswahl in Tabelle
Hallo zusammen
Ich bin momentan daran ein UserForm zu kreiren, wobei ich nicht mehr weiter weiss und auch im Internet nichts nützliches gefunden habe. Ich benutze momentan Excel 2002 (Leider ist die in unserem Unternehmen die neueste Version.
Ich habe eine UserForm kreiert und da mehrer Textboxen und Listboxen eingefügt. Ich möchte nun, das die Einträge in dieser UserForm in eine bestimmte Tabelle eingefügt wird. Das Exportieren der Textboxen funktioniert problemlos. Das Kopieren der selektierten ListBox Einträge klappt jedoch nicht. Dabei ist anzufügen, das mehrere Auswahlen möglich sind. Diese Auswahlen sollten alle in eine Zelle eingefügt werden, wenn möglich mit Zeilenumbruch. Der Code denn ich bis jetzt verwende ist:
Private Sub CB_Enter_Click()
ActiveWorkbook.Sheets("Customer Overview").Activate
Range("b9").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Offset(0, 0) = TB_Customer.Value
ActiveCell.Offset(0, 1) = TB_Captive.Value
ActiveCell.Offset(0, 2) = TB_DAte.Value
ActiveCell.Offset(0, 3) = LB_Lob.List(0)
ActiveCell.Offset(0, 3) = LB_Documents.List(0)
Range("b9").Select
TB_Customer.Text = ""
TB_Captive.Text = ""
TB_DAte.Text = ""
Registration.Hide
End Sub
Kann mir da jemand weiterhelfen?
Besten Dank und Grüsse
Manuel
Private Sub CB_Enter_Click()
ActiveWorkbook.Sheets("Customer Overview").Activate
Range("b9").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Offset(0, 0) = TB_Customer.Value
ActiveCell.Offset(0, 1) = TB_Captive.Value
ActiveCell.Offset(0, 2) = TB_DAte.Value
ActiveCell.Offset(0, 3) = LB_Lob.List(0)
ActiveCell.Offset(0, 3) = LB_Documents.List(0)
Range("b9").Select
TB_Customer.Text = ""
TB_Captive.Text = ""
TB_DAte.Text = ""
Registration.Hide
End Sub
Kann mir da jemand weiterhelfen?
Besten Dank und Grüsse
Manuel
Please also mark the comments that contributed to the solution of the article
Content-Key: 180439
Url: https://administrator.de/contentid/180439
Printed on: April 23, 2024 at 17:04 o'clock
1 Comment