Microsoft Excel

Herbers Excel/VBA-Archiv

Zufallszahlen

Betrifft: Zufallszahlen von: Andre
Geschrieben am: 11.07.2007 13:37:23

Hallo Excelprofis,

ist es möglich einem Zellbereich zb. a1:b30 mit Zufallszahlen zu füllen?

Das Problem dabei ist, dass ich zb. im Bereich a1:b15 (Bereich ändert sich stetig, müsste daher varibel bleiben) Namen stehen habe und der Rest aber leer ist und mit Zufallszahlen gefüllt werden müsste, dabei darf aber keine der Zahl in dem restlichen Bereich doppelt vorkommen und muss dreistellig ab 200 sein.

Vielen Dank für jede Hilfe!

Gruß
Andre

  

Betrifft: AW: Zufallszahlen von: Andi
Geschrieben am: 11.07.2007 13:58:11

Hi,

probier mal dies:

Sub t()
Dim c As Range
Dim zahl As Double
For Each c In Range("A1:B30")
If IsEmpty(c) Then
  Do
  zahl = Int(Rnd() * 800) + 200
  If Range("A1:B30").Find(zahl) Is Nothing Then
    c.Value = zahl
    Exit Do
  End If
  Loop
End If
Next c
End Sub



Schönen Gruß,
Andi


  

Betrifft: @Andi von: Andre
Geschrieben am: 11.07.2007 14:45:41

Super!

Klappt genau so wie ich es mir dachte!

VIELEN DANK!!!


Gruß
André


  

Betrifft: Gern geschehen... von: Andi
Geschrieben am: 11.07.2007 14:55:57

Danke für die Rückmeldung!

Schönen Gruß,
Andi


  

Betrifft: @Andi von: Andre
Geschrieben am: 11.07.2007 14:59:12

Hi,

habe doch noch mal eine Frage.

Kann man auch die Spalte A mit Zufallszahlen füllen zB. mit "zz" ?

Gruß
André


  

Betrifft: Zufallszahlen von: Andre
Geschrieben am: 12.07.2007 10:12:19

Hallo Excelfans,

hatte die Frage erst an Andi gestellt, glaube allerdings er ist nicht so oft hier.

Meine Frage an ihn war ob man sein Code um folgendes ausbauen kann?

- Kann man auch die Spalte A unter den gleichen Bedingungen wie zuvor anstatt mit Zufallszahlen zu füllen zB. mit "zz" füllen?

Gruß
André


  

Betrifft: AW: Zufallszahlen von: Andi
Geschrieben am: 12.07.2007 19:32:17

Hi,

da bin ich wieder... ;-)

Wenn ich das richtig verstehe, dann möchtest Du gerne zufällig Kombinationen aus zwei kleinen Buchstaben, oder?

Probier mal dies:


Sub t()
 Dim c As Range
 Dim Code As String
 For Each c In Range("A1:B30")
 If IsEmpty(c) Then
   Do
   Code = Chr(Int(Rnd() * 25) + 97) & Chr(Int(Rnd() * 25) + 98)
   If Range("A1:B30").Find(Code) Is Nothing Then
     c.Value = Code
     Exit Do
   End If
   Loop
 End If
 Next c
 End Sub





Schönen Gruß,
Andi


 

Beiträge aus den Excel-Beispielen zum Thema "Zufallszahlen"