Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenbereich zufällig mit X ausfüllen

Betrifft: Tabellenbereich zufällig mit X ausfüllen von: Albin
Geschrieben am: 28.08.2004 19:25:32

Brauche dringend Hilfe,
ich möchte in Excel einen Tabellenbereich zufällig mit "X" ausfüllen lassen.
Z.B.
Ich gebe in der Zelle K33 die Zahl 50 ein.
Dann sollten 50 mal das "X" Zufällig im Tabellenbereich B2:J31 gesetzt werden.

Kann man(n) das irgendwie schaffen?
Ich bekomm es einfach nicht hin.

Vielen Dank im voraus für Eure Hilfe

Grüße vom Edersee

Albin

  


Betrifft: AW: Tabellenbereich zufällig mit X ausfüllen von: Ulf
Geschrieben am: 28.08.2004 19:58:31

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "K33" Then
  If IsNumeric([k33]) Then
    If [k33] > 0 Then
      [b2:j31].ClearContents
      Do Until Application.CountA([b2:j31]) = [k33]
        Cells(Int(Rnd * 30 + 2), Int(Rnd * 9 + 2)) = "x"
      Loop
    End If
  End If
End If
End Sub


Ulf


  


Betrifft: AW: Tabellenbereich zufällig mit X ausfüllen von: Albin
Geschrieben am: 28.08.2004 20:48:08

SUPER!!!!
Ulf VIELEN VIELEN DANK!!!

...ich saß da schon seid 2 Tagen dran, und kam nicht weiter...

Klasse, Du hast mir SEHR damit geholfen.

Grüße
Albin


  


Betrifft: AW: Tabellenbereich zufällig mit X ausfüllen von: nighty
Geschrieben am: 29.08.2004 00:50:19

hi alle :)

hier ohne duplikate :)

gruss nighty

Option Explicit
Sub makro01()
Randomize Timer
ReDim zuzahl(270) As String
Dim zahl(50) As Variant
Dim endeindex As Integer
Dim allezahlen As Integer
Dim allezahlen1 As Integer
Dim allezahlen2 As Integer
Dim ziehung As Integer
Dim gezogen As Integer
endeindex = 270
For allezahlen1 = 2 To 10
For allezahlen = 2 To 31
allezahlen2 = allezahlen2 + 1
zuzahl(allezahlen2) = Chr$(64 + allezahlen1) & allezahlen
Next allezahlen
Next allezahlen1
For ziehung = 1 To 50
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
Range(zahl(ziehung)) = "x"
Next ziehung
End Sub



  


Betrifft: AW: Tabellenbereich zufällig mit X ausfüllen von: Albin
Geschrieben am: 29.08.2004 19:41:55

Vielen Dank nighty,
...jetzt klappts auch mit der Nachbarin... :-)

Gruß
Albin