Hallo zusammen,

ich habe ein Makro erstellt (mein erstes, daher schaut es schlimm aus), mitdem ich Paletten automatisch in eine Excel Tabelle auf einen Platz "einlagern" kann.

Da wir auf der Arbeit leider nicht die 365 version haben, in der es die "Filter" Funktion gibt muss ich nun ein weg finden wie das Makro die nächste Zelle mit einem Wert auswählen kann.

z.B.: der Platz 26-27 ist voll und wird daher nicht mehr in der Liste angezeigt (jedoch ist in der Zelle noch die Formel "=WENN(Lager!C87<=0;Lager!B87;"")" ) nun soll das Makro aber den Platz 28 auswählen bzw. immer die nächste Zelle mit einem Wert.

Problem hierbei ist glaube ich, dass der Platz 26-27 nicht leer ist sonder nur durch meine Formel nicht angezeigt wird..

Oder gibt es eine Möglichkeit in der Excel Version 2019 eine "Filter" funktion zu schreiben wie in Excel 365?

Option Explicit

Sub One_Find()
Dim Lagerplätze As Range
Dim number As Long, i As Long
number = InputBox("Anzahl der Paletten")
Dim r As Range

'Die Anzahl der wiederholungen
For i = 1 To number

    Set r = Selection
    'Kopiert den Lagerplatz der Aktiven Zelle
    Selection.Copy
    'Fügt den kopierten Lagerplatz in das Feld "Lagerplatz"
    Range("K5").PasteSpecial Paste:=xlPasteValues
    'Wählt die zuletzt Aktive Zelle wieder aus
    r.Select
    'Wählt den nächsten Platz aus (Leider egal ob leer oder voll)
    ActiveCell.Offset(1, 0).Range("A1").Select
    
'Sucht den Lagerplatz in Reihe B
Set Lagerplätze = Worksheets("Lager").Range("B:B").Find(What:=Worksheets("Lager").Range("K5").Value, LookIn:=xlValues, LookAt:=xlWhole)

    'Fügt den Wert Material für den gesuchten Lagerplatz ein
    Lagerplätze.Offset(, 1).Value = Worksheets("Lager").Range("D3").Value

    'Fügt den Wert Bezeichnung für den gesuchten Lagerplatz ein
    Lagerplätze.Offset(, 2).Value = Worksheets("Lager").Range("D5").Value

    'Fügt den Wert Abmessungen für den gesuchten Lagerplatz ein
    Lagerplätze.Offset(, 3).Value = Worksheets("Lager").Range("D7").Value

    'Fügt den Wert Menge für den gesuchten Lagerplatz ein
    Lagerplätze.Offset(, 4).Value = Worksheets("Lager").Range("K3").Value
    
    'Fügt den Wert WE-Datum für den gesuchten Lagerplatz ein
    Lagerplätze.Offset(, 5).Value = Worksheets("Lager").Range("G3").Value

    'Fügt den Wert LKW-Lieferschein für den gesuchten Lagerplatz ein
    Lagerplätze.Offset(, 6).Value = Worksheets("Lager").Range("G5").Value

'Druckt die Platzkarte aus
Worksheets("Platzkarte").Range("A1:G10").PrintOut

    'Startet das Makro neu
    Next i

End Sub

Hoffentlich kann mir jemand helfen!

Vielen Dank im Voraus!

Gruß