Text durch zufälligen ersetzen
08.05.2020 08:21:59
Krausert95
ich habe vergeblich versucht einen bestimmten Text in eine Zelle zu suchen und diesen durch ein zufälliges Wort aus 3 Auswahlmöglichkeiten zu ersetzen. Ich habe bisher nur die suchen und ersetzen Funktion von VBA erfolgreich eingesetzt:
Range("H8:V15").Select
ActiveCell.Replace What:="Aufgabe", Replacement:="Spieler_x", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Ich ersetze ja "Aufgabe" durch "Spieler_X", allerdings würde ich gerne aus Spieler_X Spieler_1-3 machen und durch zufall einen der 3 Spieler für Aufgabe schrieben.
Ich hoffe ihr versteht mein Problem und könnt mir weiter helfen
Danke schonmal.