Office 2013: Wenn Zelle leer, dann Daten einfügen. Wie umsetzen??

[PrinzPolo]

Moin zusammen,

das Makro sollte den Inhalt von Zellen auf einem anderen Blatt kopieren und in zufälliger Reihenfolge auf einem neuen Blatt einfügen, allerdings kommt es noch zu Überschneidungen. Der bisherige Ansatz ist folgender:

Code: [Auswählen]

For ZeilenNR = Eingabe1 To LetzteZeile
   
    Randomize
    Stellplatz = CInt(Int((37 * Rnd()) + 2))
 
    If IsEmpty(Worksheets("Stauplan").Cells(Stellplatz, 3)) = True Then
   
 
   
    Worksheets("Paletten").Cells(ZeilenNR + 1, 1).Cut Destination:=Worksheets("Stauplan").Cells(Stellplatz, 3)  'Auf dem Paletten-Worksheet wird ausgeschnitten und auf dem Stauplan-Worksheet wird eingefügt
    Worksheets("Paletten").Cells(ZeilenNR + 1, 2).Cut Destination:=Worksheets("Stauplan").Cells(Stellplatz, 4)  'Bei der ZeilenNR immer + 1, damit die Überschriften nicht mit berücksichtig werden
    Worksheets("Paletten").Cells(ZeilenNR + 1, 3).Cut Destination:=Worksheets("Stauplan").Cells(Stellplatz, 5)
    End If
Next ZeilenNR
Die Eingaben kommen aus einer UserForm und das funktioniert auch...

Vielen Dank im Voraus!

PrinzPolo