4-Spaltige Listbox
08.08.2007 13:59:00
jimmypikfein
ich habe folgendes Problem. Ich habe eine 4-Spaltige Listbox und möchte Die in der ListBox angeklickten Werte in die (Tabelle2) kopieren. die soll ich den u.g. Code ändern?
Option Explicit
Private Sub CommandButton1_Click()
Dim iRow As Long ' Excel hat mehr als 32... Zeilen
With Worksheets("Tabelle2")
iRow = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
Rows. _
Count) + 1
.Cells(iRow, 3).Value = ListBox1.Text
End With
End Sub
siehe Anlage
https://www.herber.de/bbs/user/44862.zip
Gruß
Ahmadian
Anzeige