Hab mir gedacht, dass ich plötzlich nicht weiter komme.
Unterstehender Code funktioniert soweit recht gut. Durch eine Listbox (MultiSelect) können mehrere Lagerorte ausgewählt werden. Diese werden dann durchsucht und alle Namen welche sich in diesem Lagerort befinden aufgelistet. Dabei wird eine Überschrift mit dem Lagerort , Name, Vorname usw. erstellt. Gleichzeitig überprüft es ob der ausgewählte Lagerort auf der Seite noch platz hat. Wenn nicht, macht es einen Seitenumbruch.
Nun komme ich nicht weiter. Danach sollte es den Rest der Suche auf die nächste Seite schreiben. Hoffe Ihr versteht in etwa was ich meine?
Ihr mal mein Code:
Private Sub CommandButton4_Click()
Dim i As Long
Dim Suchen As String
Dim ws As Worksheet
Set ws = Worksheets("Lagerliste_drucken")
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then Exit For
Next
If i = .ListCount Then
MsgBox "Bitte Auswahl treffen"
Exit Sub
End If
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Suchen = strAusgabe & .List(i)
Set rng = Worksheets("WSCAR_Daten").Range("F:F").Find(Suchen, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
If rng Is Nothing Then
MsgBox "Lagerort " & Suchen & " nicht gefunden!", vbInformation
Else
If WorksheetFunction.CountIf(Worksheets("WSCAR_Daten").Range("F:F"), Suchen) sfirstaddress
Else
ws.HPageBreaks.Add before:=Range("A" & ws.Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
End If
End If
Next
End With
End Sub
Gruss Daniel