Hallo Zusammen,
Im Forum habe ich ein Macro gefunden, dass der Inhalt mehrerer Tabellen in eine neue Tabelle zusammenfügt sodass man mit einer UserForm darin suchen kann. Es funktioniert alles so weit, nur die neue Liste beginnt immer in der Zelle A1. Ich möchte, dass die neue Liste ab Zelle A8 beginnt (brauche Platz oben für CommandButtons). Die neue Liste wird beim Starten der Datei generiert und beim Schliessen wieder gelöscht. Ich möchte lediglich, dass die neue Liste ca. 8 zeilen tiefer anfängt als es jetzt der Fall ist. Wer weiss eine Lösung? Hier ein auszug aus dem Makro:
Sub SuchListe()
Dim lEnd As Long
Dim Zeile As Long
With Application
.ScreenUpdating = False
End With
With Sheets("AVD bis 2011")
For Zeile = 5 To 40
Sheets("Schnellsuche").Cells(Zeile + 2, 3) = .Cells(Zeile, "C") & IIf(Not IsEmpty(.Cells(Zeile, "D")), ", " _
& .Cells(Zeile, "D"), "")
Sheets("Schnellsuche").Cells(Zeile + 2, 4) = .Cells(Zeile, "E")
Sheets("Schnellsuche").Cells(Zeile + 2, 5) = .Cells(Zeile, "F")
Sheets("Schnellsuche").Cells(Zeile + 2, 6) = .Cells(Zeile, "G")
Next
End With
With Sheets("AVD bis 2014")
For Zeile = 5 To 40
Sheets("Schnellsuche").Cells(51 + (Zeile + 2), 3) = .Cells(Zeile, "C") & IIf(Not IsEmpty(.Cells(Zeile, "D")), ", " _
& .Cells(Zeile, "D"), "")
Sheets("Schnellsuche").Cells(51 + (Zeile + 2), 4) = .Cells(Zeile, "E")
Sheets("Schnellsuche").Cells(51 + (Zeile + 2), 5) = .Cells(Zeile, "F")
Sheets("Schnellsuche").Cells(51 + (Zeile + 2), 6) = .Cells(Zeile, "G")
Next
End With
Gruß
Martin