Thema Datum  Von Nutzer Rating
Antwort
Rot Office 2013: Wenn Zelle leer, dann Daten einfügen. Wie umsetzen??
 24.08.2015 14:37:28 PrinzPolo
Solved
24.08.2015 16:48:18 Gast99190
*****
NotSolved
24.08.2015 16:50:31 Gast75387
NotSolved
24.08.2015 21:03:59 Gast56239
**
NotSolved

Ansicht des Beitrags:
Von:
PrinzPolo		 Datum:
24.08.2015 14:37:28		 Views:
772		 Rating:
     
Antwort:
 Nein
Thema:
Office 2013: Wenn Zelle leer, dann Daten einfügen. Wie umsetzen??

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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Office 2013: Wenn Zelle leer, dann Daten einfügen. Wie umsetzen??
 24.08.2015 14:37:28 PrinzPolo
Solved
24.08.2015 16:48:18 Gast99190
*****
NotSolved
24.08.2015 16:50:31 Gast75387
NotSolved
24.08.2015 21:03:59 Gast56239
**
NotSolved