Übertragung in ListBox
03.06.2009 08:50:01
Eugen
brauche mal wieder eure Hilfe...!!!
In meiner Tabelle "Projekte" werden in einer Maske zwei Eingaben ( Abteil.-Nr) in TextBox4 und (Abteilung) in TextBox5 vorgenommen und per Button_Cklick in Spalten eingetragen. Dabei möchte ich diese wiederum gelichzeitig in eine benachberte Listbox in einer Zeile zu übertragen .
Private Sub CommandButton2_Click()
Dim lLetzte As Long
With Worksheets("Tabelle1")
lLetzte = IIf(.Range("B65536") "", 65536, .Range("B65536").End(xlUp).Row) + 1
If lLetzte "" And TextBox5.Value "" Then
With ListBox1
.ColumnCount = 1
.AddItem TextBox4.Value
.ColumnCount = 1
.ListFillRange = "B7:C20"
End With
End If
End Sub
Leider ist es mich bis jetzt nicht gelungen es richtig zu übertragen.. Entweder werden die Daten untereinander geschrieben.. oder die Eigenschaft ListFillRang wird nicht erakannt.
kann mir da jemand weiter helfen.?
Grüße
Eugen
Anzeige