Herbers Excel/VBA-Archiv

Tabellenbereich zufällig mit X ausfüllen

• Tabellenbereich zufällig mit X ausfüllen von Albin vom 28.08.2004 19:25:32
• AW: Tabellenbereich zufällig mit X ausfüllen - von Ulf am 28.08.2004 19:58:31
  • AW: Tabellenbereich zufällig mit X ausfüllen - von Albin am 28.08.2004 20:48:08
    • AW: Tabellenbereich zufällig mit X ausfüllen - von nighty am 29.08.2004 00:50:19
      • AW: Tabellenbereich zufällig mit X ausfüllen - von Albin am 29.08.2004 19:41:55

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