Thema Datum  Von Nutzer Rating
Antwort
24.08.2015 14:37:28 PrinzPolo
Solved
Blau Office 2013: Wenn Zelle leer, dann Daten einfügen. Wie umsetzen??
 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:
Gast99190		 Datum:
24.08.2015 16:48:18		 Views:
385		 Rating:
     
Antwort:
  Ja
Thema:
Office 2013: Wenn Zelle leer, dann Daten einfügen. Wie umsetzen??

Um Überschneidungen zu vermieden, muss man sich einen Vorrat erzeugen und daraus dann einen zufälligen Wert herausziehen.

z.B. so

Option Explicit

Sub Bsp()
  
  Const C_MIN As Long = 2
  Const C_MAX As Long = 38
  
  Dim colStellplatz As VBA.Collection
  Dim idxStellplatz As Long
  Dim i As Long
  
  Set colStellplatz = New VBA.Collection
  
  'Zahlenvorrat erzeugen
  For i = C_MIN To C_MAX
    Call colStellplatz.Add(i)
  Next
  
  Randomize Timer
  
  Do While colStellplatz.Count > 0
    
    'Zahl aus Zahlenvorrat 'herausnehmen'
    i = Int(colStellplatz.Count * Rnd + 1)
    idxStellplatz = colStellplatz(i)
    Call colStellplatz.Remove(i)
    
    Debug.Print "index = " & idxStellplatz
    
    'mache etwas mit dem Wert idxStellplatz
    'z.B. Worksheets("Paletten").Cells(ZeilenNR + 1, 1).Cut Destination:=Worksheets("Stauplan").Cells(idxStellplatz, 3)
    
  Loop
  
End Sub

 

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
24.08.2015 14:37:28 PrinzPolo
Solved
Blau Office 2013: Wenn Zelle leer, dann Daten einfügen. Wie umsetzen??
 24.08.2015 16:48:18 Gast99190
*****
NotSolved
24.08.2015 16:50:31 Gast75387
NotSolved
24.08.2015 21:03:59 Gast56239
**
NotSolved