kann mir bitte jemand sagen warum mein Makro nicht funktioniert. Hab's aus dem Forum und verstehe nicht warum nichts passiert. Aus drei Tabellen werden eine. Diese Tabelle soll später den Inhalt eines ComboBox in einer UF bilden.
Sub SuchListe()
Dim lEnd As Long
Dim Zeile1 As Long
Dim Zeile2 As Long
Dim Zeile3 As Long
Dim x As Integer
Dim y As Integer
Dim z As Integer
With Application
.ScreenUpdating = False
End With
UserForm3.Label2.Caption = UserForm3.Label2.Caption & "n"
UserForm3.Repaint
With Sheets("Zugangszellen")
x = Cells(Rows.Count, 3).End(xlUp).Select
For Zeile1 = 6 To x
Sheets("Schnellsuche").Cells(Zeile - 5, 1) = .Cells(Zeile, "C") & IIf(Not IsEmpty(.Cells(Zeile, _
"D")), ", " _
& .Cells(Zeile, "D"), "")
Sheets("Schnellsuche").Cells(Zeile - 5, 2) = .Cells(Zeile, "E")
Sheets("Schnellsuche").Cells(Zeile - 5, 3) = .Cells(Zeile, "F")
Sheets("Schnellsuche").Cells(Zeile - 5, 4) = .Cells(Zeile, "G")
Sheets("Schnellsuche").Cells(Zeile - 5, 5) = .Cells(Zeile, "H")
Sheets("Schnellsuche").Cells(Zeile - 5, 6) = .Cells(Zeile, "I")
Sheets("Schnellsuche").Cells(Zeile - 5, 7) = .Cells(Zeile, "J")
Next
End With
UserForm3.Label2.Caption = UserForm3.Label2.Caption & "n"
UserForm3.Repaint
With Sheets("S-Belegung")
y = Cells(Rows.Count, 3).End(xlUp).Select
For Zeile = 6 To y
Sheets("Schnellsuche").Cells(551 + (Zeile - 5), 1) = .Cells(Zeile, "C") & IIf(Not IsEmpty(. _
Cells(Zeile, "D")), ", " _
& .Cells(Zeile, "D"), "")
Sheets("Schnellsuche").Cells(551 + (Zeile - 5), 2) = .Cells(Zeile, "E")
Sheets("Schnellsuche").Cells(551 + (Zeile - 5), 3) = .Cells(Zeile, "F")
Sheets("Schnellsuche").Cells(551 + (Zeile - 5), 4) = .Cells(Zeile, "G")
Sheets("Schnellsuche").Cells(551 + (Zeile - 5), 5) = .Cells(Zeile, "H")
Sheets("Schnellsuche").Cells(551 + (Zeile - 5), 6) = .Cells(Zeile, "I")
Sheets("Schnellsuche").Cells(551 + (Zeile - 5), 7) = .Cells(Zeile, "J")
Next
End With
UserForm3.Label2.Caption = UserForm3.Label2.Caption & "n"
UserForm3.Repaint
With Sheets("B-Zellen")
z = Cells(Rows.Count, 3).End(xlUp).Select
For Zeile = 6 To z
Sheets("Schnellsuche").Cells(1101 + (Zeile - 5), 1) = .Cells(Zeile, "C") & IIf(Not IsEmpty(. _
Cells(Zeile, "D")), ", " _
& .Cells(Zeile, "D"), "")
Sheets("Schnellsuche").Cells(1101 + (Zeile - 5), 2) = .Cells(Zeile, "E")
Sheets("Schnellsuche").Cells(1101 + (Zeile - 5), 3) = .Cells(Zeile, "F")
Sheets("Schnellsuche").Cells(1101 + (Zeile - 5), 4) = .Cells(Zeile, "G")
Sheets("Schnellsuche").Cells(1101 + (Zeile - 5), 5) = .Cells(Zeile, "H")
Sheets("Schnellsuche").Cells(1101 + (Zeile - 5), 6) = .Cells(Zeile, "J")
Sheets("Schnellsuche").Cells(1101 + (Zeile - 5), 7) = .Cells(Zeile, "K")
Next
End With
UserForm3.Label2.Caption = UserForm3.Label2.Caption & "n"
UserForm3.Repaint
Sheets("Schnellsuche").Activate
Columns("A:G").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("C1") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortTextAsNumbers
End Sub
Danke für eure Hilfe
Martin