Ich habe mal wieder eine Frage, zwei sogar ;o)
Wie kann ich leere Zeilen überspringen. Ich habe in einer Userform eine Combobox1, welche Daten aus einer Tabelle in verschiedenen Textboxen auf dieser Userform anzeigt. Bis dahin funktioniert alles bestens. Nun ist es so, dass nicht jede Zelle auf der Tabelle mit Daten gefüllt ist. Wie kann ich diese überspringen? Sonst habe ich in der Combobox1 sehr viele leere Zeilen. Mein Code bis dahin:
Dim arrA() As String
Dim arrB() As String
Dim arrC() As String
Dim arrD() As String
---------------------------------------
Private Sub ComboBox1_Click()
TextBox6 = arrA(ComboBox1.ListIndex)
Label1 = arrB(ComboBox1.ListIndex)
Label2 = arrC(ComboBox1.ListIndex)
Label18 = arrD(ComboBox1.ListIndex)
----------------------------------------------
Private Sub UserForm_Initialize()
ReDim Preserve arrA(0)
ReDim Preserve arrB(0)
ReDim Preserve arrC(0)
ReDim Preserve arrD(0)
arrA(0) = Cells(1, 1)
arrB(0) = Cells(1, 2)
arrC(0) = Cells(1, 3)
arrD(0) = Cells(1, 4)
i = 1
Do Until Cells(i, 1) = ""
ReDim Preserve arrA(UBound(arrA) + 1)
ReDim Preserve arrB(UBound(arrB) + 1)
ReDim Preserve arrC(UBound(arrC) + 1)
ReDim Preserve arrD(UBound(arrD) + 1)
i = i + 1
arrA(UBound(arrA())) = Cells(i, 1)
arrB(UBound(arrB())) = Cells(i, 2)
arrC(UBound(arrC())) = Cells(i, 3)
arrD(UBound(arrD())) = Cells(i, 4)
Loop
ReDim Preserve arrA(UBound(arrA) - 1)
ReDim Preserve arrB(UBound(arrB) - 1)
ReDim Preserve arrC(UBound(arrC) - 1)
ReDim Preserve arrD(UBound(arrD) - 1)
ComboBox1.List = arrB
Meine 2. Frage ist: kann man mit einer Multipage z.Beispiel Multipage.Page5 eine direkte Aktion ausführen? Bei Click soll es eine andere Userform anzeigen.
Ich wäre riesig dankbar für eure Hilfe!
Gruss
Karin