AW: Mehrzeilige Listbox mit strings füllen
24.02.2012 14:09:08
Dieterlem
Hallo Ransi,
vielen Dank für deine Hilfe. Das klappt soweit ganz gut. Ich habe versucht den Code soweit anzupassen dass er auch in meiner Datei funktioniert. Damit es etwas einfacher zu verstehen war habe ich ein kleines Beispiel gepostet. Mein Code ist da etwas umfangreicher. Leider schaffe ich es nicht ihn für meine Bedürfnisse anzupassen. Vieleicht kannst du mir nochmal einen Tipp geben. Hier wieder mein Beispiel:
Option Explicit
Private str1 as String
Private str2 as String
Private str3 as String
Private Sub userform_Activate()
Listbox.columnCoun=3
Listbox.ColumnWidths = "90;50;50"
Call Test1
Call Test2
End Sub
Private Sub Test1()
Dim i as Byte
Dim iSheet as Byte
For iSheet = 1 to 5
For i = 1 to 20
If Sheets(1).Cells(i,1) = "X" Then
str1= Sheets(1).Cells(i,2) & "blabla"
str2= Sheets(1).Cells(i,3) & "blabla"
str3= Sheets(1).Cells(i,4) & "blabla"
Listbox.?
End if
Next i
Next iSheet
End Sub
Private Sub Test2()
Dim i as Byte
Dim iSheet as Byte
For iSheet = 5 to 10
For i = 21 to 40
If Sheets(1).Cells(i,1) = "X" Then
str1= Sheets(1).Cells(i,2) & "blabla"
str2= Sheets(1).Cells(i,3) & "blabla"
str3= Sheets(1).Cells(i,4) & "blabla"
Listbox.?
End if
Next i
Next iSheet
End Sub
Gruß
Dieterlem