Zufallsgenerator
31.10.2012 21:08:32
DieterG
folgendes Makro hab ich bei meinen Recheren endeckt.
Sub Zufallsfeld()
Dim ZZahl
Randomize
ZZahl1 = Int((26 * Rnd) + 1)
zzahl2 = ZZahl1 + 2
i = "G" & zzahl2
Range(i).Select
End Sub
Im Bereich G3:G28 wird eine zufällige Zelle selektiert. Die selektierte Zelle wird anschließend manuell mit dem aktuellen Datum befüllt.
Meine Frage:
Ist es möglich, beim nächsten Start des Makros nur die leeren Zellen im Bereich G3:G28 zu berücksichtigen? Es sollen also nur die Zellen selktiert werden in denen noch kein Datum vorhanden ist.
Danke schon mal für die Hilfe
Gruß Dieter