Zufallsbuchstaben/-zahlen

Forumthread: Zufallsbuchstaben/-zahlen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zufallsbuchstaben/-zahlen

16.07.2008 19:42:00

André

Hallo Excelfans,
stehe mal wieder vor einem Problem,
ich möchte in einem Bereich (C12:D41) der z.T. mit Namen und z.T. meist aber am Ende mit Leerzellen gefüllt ist, mit Zufallsbuchstaben und -zahlen füllen. Bedingung dabei ist, dass immer als erstes "zzz" und anschließend eine lfd. Zahl dahinter steht. Bsp: 1. freie Zelle: zzz1; 2. freie Zelle: zzz2; 3. freie Zelle: zzz3 usw.
Kann man dieses per VBA umsetzen? Wüde mich freuen mir hier jemand helfen könnte.
Falls Fragen sein sollten, bitte ich um Rückmeldung.
PS: Leider habe ich nichts im Archiv gefunden.
Vielen Dank im Voraus!
Gruß
André aus SH

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zufallsbuchstaben/-zahlen

16.07.2008 20:15:00

Peter
AW: Zufallsbuchstaben/-zahlen

18.07.2008 17:59:36

André
AW: Zufallsbuchstaben/-zahlen

16.07.2008 21:49:00

Erich

AW: Zufallsbuchstaben/-zahlen

16.07.2008 20:15:00

Peter

Hallo nach SH
so könnte es gehen:
Option Explicit


Public Sub PerZufall()
Dim rZelle  As Range
Randomize
For Each rZelle In Range("C12:D41")
If rZelle.Value = "" Then
rZelle.Value = "zzz" & Int(Rnd() * 800) + 100
End If
Next rZelle
End Sub

Gruß Peter aus HH

AW: Zufallsbuchstaben/-zahlen

18.07.2008 17:59:36

André

Vielen Dank für beide Lösungsvorschläge!
Ich habe mich aber für die Lösung von Peter entschieden, da diese genau so arbeitet wie ich es mir vorstelle!
Vielen Dank nochmals.
Gruß
André aus SH

AW: Zufallsbuchstaben/-zahlen

16.07.2008 21:49:00

Erich

Hallo André,
oder so - mit zufälligen Kleinbuchstaben:


Public Sub PerZufall2()
Dim rZelle As Range
Randomize
For Each rZelle In Range("C12:D41")
If rZelle.Value = "" Then _
rZelle.Value = Chr(Int(26 * Rnd) + 97) _
& Chr(Int(26 * Rnd) + 97) _
& Chr(Int(26 * Rnd) + 97) _
& Int(Rnd() * 800) + 100
Next rZelle
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!