ListBox einlesen...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() For i = 48 To 95 If Sheets("Tabelle1").Cells(i, 32).Value = "" Then GoTo weiter ListBox1.ColumnCount = 2 ListBox1.AddItem Sheets("Tabelle1").Cells(i, 32).Value weiter: Next End Sub

Private Sub UserForm_Initialize() Dim arr() As Variant Dim i As Integer Dim iRow As Integer Dim iAnz As Integer iAnz = WorksheetFunction.CountA(Range("AF48:AF95")) ReDim arr(0 To iAnz - 1, 0 To 1) iRow = 0 For i = 48 To 95 If Cells(i, 32).Value <> "" Then arr(iRow, 0) = Format(Cells(i, 32), "000") arr(iRow, 1) = Cells(i, 33) iRow = iRow + 1 End If Next ListBox1.ColumnCount = 2 ListBox1.List = arr End Sub

Hallo Peter,

nein, es kommt keine Fehlermeldung.

Die Zeile in der ListBox wird nach Klick (linke Maustaste) blau unterlegt, mehr nicht.
Ich kann auch weitere Zeilen in der ListBox anklicken, die ebenfalls blau unterlegt werden, aber nicht übernommen.

Mit diesem Code klappt das ausgezeichnet:


Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "Tabelle1!AF48:AG95"
End Sub


Private Sub ListBox1_Click()
Sheets("Tabelle1").Range(ActiveCell.Address) = ListBox1.Value
Unload Me
End Sub


Private Sub CommandButton2_Click()
Unload Me
End Sub

Gruss
Ina

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("G9:G39")) Is Nothing Then If Cells(Target.Row, 2) = "1" Then UserForm2.Show Else UserForm1.Show End If End If If Not Intersect(Target, Range("H9:H39")) Is Nothing Then UserForm3.Show End If Cancel = True End Sub

Private Sub UserForm_Initialize() Dim arr() As Variant Dim i As Integer Dim iRow As Integer Dim iAnz As Integer Dim iCount As Integer With Sheets("Tabelle3") iAnz = WorksheetFunction.CountA(.Range("B8:B107")) ReDim arr(0 To iAnz - 1, 0 To 4) iRow = 0 For i = 8 To 107 If .Cells(i, 2).Value <> "" Then For iCount = 2 To 6 arr(iRow, iCount - 2) = .Cells(i, iCount) Next iRow = iRow + 1 End If Next End With ListBox1.ColumnCount = 5 ListBox1.List = arr End Sub

Private Sub UserForm_Initialize() Dim arr() As Variant Dim i As Integer Dim iRow As Integer Dim iAnz As Integer Dim iCount As Integer With Sheets("Tabelle3") iAnz = WorksheetFunction.CountA(.Range("B8:B107")) ReDim arr(0 To iAnz - 1, 0 To 4) iRow = 0 For i = 8 To 107 If .Cells(i, 2).Value <> "" Then arr(iRow, 0) = Format(.Cells(i, 2), "0000") For iCount = 3 To 6 arr(iRow, iCount - 2) = Format(.Cells(i, iCount), "hh:mm") Next iRow = iRow + 1 End If Next End With ListBox1.ColumnCount = 5 ListBox1.List = arr End Sub

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread