Marlene ist Lehrerin und hat Schüler, die die Wortsuche lieben. Sie findet es ziemlich zeitaufwändig, sie zu erstellen, aber die Schüler scheinen sich viel besser an das Kursmaterial zu erinnern, wenn sie sie verwendet. Marlene fragte sich, ob es eine Möglichkeit gab, eine Reihe von Zellen automatisch mit Buchstaben des Alphabets A bis Z zu füllen. Auf diese Weise kann sie die Funktion verwenden, um die Quadrate der Wortsuche mit Buchstaben zu füllen, bevor sie einige dieser Buchstaben durch Buchstaben ersetzt die tatsächlich zu suchenden Wörter.

Das AutoFill-Tool in Excel verfügt über einige Standardsequenzen, die automatisch gefüllt werden, z. B. Datumsangaben und numerische Sequenzen. Der sehr leistungsstarke Teil von AutoFill besteht jedoch darin, dass Sie benutzerdefinierte Listen erstellen können, die das Tool genauso einfach verwendet wie die integrierten Sequenzen. Um eine benutzerdefinierte Liste manuell zu erstellen, können Sie die folgenden Schritte ausführen:

  1. Wählen Sie Optionen aus dem Menü Extras. Excel zeigt das Dialogfeld Optionen an.

  2. Stellen Sie sicher, dass die Registerkarte Benutzerdefinierte Listen ausgewählt ist. (Siehe Abbildung 1.)

  3. Geben Sie im Feld Listeneinträge jeden Buchstaben des Alphabets ein, einen Buchstaben pro Zeile. (Drücken Sie nach jedem eingegebenen Buchstaben die Eingabetaste.)

  4. Klicken Sie auf Hinzufügen.

Sie haben jetzt Ihre benutzerdefinierte Liste erstellt und können alle geöffneten Dialogfelder schließen. Um die benutzerdefinierte Liste zu verwenden, geben Sie einfach einen oder zwei Buchstaben ein, mit denen Sie die Sequenz beginnen möchten, wählen Sie diese Zellen aus und ziehen Sie mit dem AutoFill-Handle über so viele Zellen, wie Sie füllen möchten.

Es gibt eine andere Möglichkeit, eine benutzerdefinierte Liste zu erstellen, die möglicherweise etwas einfacher ist, nur für den Fall, dass Sie keine 26 Buchstaben in das Dialogfeld eingeben möchten. Wenn Sie die Buchstaben des Alphabets bereits in 26 Zellen haben, wählen Sie einfach diese Zellen aus und führen Sie die folgenden Schritte aus:

  1. Wählen Sie Optionen aus dem Menü Extras. Excel zeigt das Dialogfeld Optionen an.

  2. Stellen Sie sicher, dass die Registerkarte Benutzerdefinierte Listen ausgewählt ist. Der von Ihnen ausgewählte Zellenbereich sollte im Feld Liste aus Zellen importieren angezeigt werden.

  3. Klicken Sie auf Importieren.

Jetzt können Sie das Dialogfeld schließen und die benutzerdefinierte Liste nach Ihren Wünschen verwenden.

Natürlich hat die Verwendung einer benutzerdefinierten Liste einen Nachteil, insbesondere beim Erstellen von Wortsuchen: Die Buchstaben, die zu leeren Quadraten hinzugefügt werden, befinden sich immer in einer vorhersehbaren Reihenfolge, wodurch das Auffinden der tatsächlichen Wörter möglicherweise etwas einfacher wird als gewünscht. Um die Rätsel etwas schwieriger zu gestalten, ist es besser, die Nicht-Wort-Quadrate mit zufälligen Buchstaben zu füllen.

Eine einfache Möglichkeit, zufällige Buchstaben zu erhalten, ist die Verwendung der folgenden Formel:

=CHAR(RANDBETWEEN(65,90))

Diese Formel funktioniert, weil die Funktion RANDBETWEEN einen zufälligen numerischen Wert zwischen den beiden angegebenen Grenzwerten zurückgibt. In diesem Fall wird ein Wert zwischen 65 und 90 zurückgegeben, bei dem es sich um die ASCII-Werte der Buchstaben A bzw. Z handelt. Die CHAR-Funktion wird dann verwendet, um diesen zufälligen numerischen Wert in einen tatsächlichen Buchstaben umzuwandeln.

Die RANDBETWEEN-Funktion ist Teil des Analysis ToolPak, eines Add-Ins, das viele Benutzer in Excel installiert haben. (Wählen Sie Extras | Add-Ins, um festzustellen, ob Sie es installiert haben.) Wenn Sie das Add-In nicht aktivieren möchten, können Sie sich auf eine grundlegendere Formel wie die folgende verlassen:

=CHAR((65+(90-65)*RAND()))

Die CHAR-Funktion sollte vertraut aussehen. Der einzige Unterschied besteht in der Verwendung der RAND-Funktion zum Generieren des Zufallswerts anstelle von RANDBETWEEN.

Wenn Sie viele Wortsuchrätsel erstellen, können Sie ein Makro verwenden, um einen Zellbereich mit zufälligen Buchstaben des Alphabets zu füllen.

Es gibt eine Reihe von Möglichkeiten, wie ein solches Makro zusammengestellt werden kann. Das Folgende ist besonders flexibel. Es funktioniert entweder mit einem vorgewählten Bereich (einem Bereich, der beim Ausführen des Makros ausgewählt wurde) oder Sie können einen Bereich auswählen, nachdem Sie das Makro ausgeführt haben.

Sub AlphaFill()

Dim Cell, CellChars     Dim Default, Prompt, Title     Dim rangeSelected As Range     Dim UpperCase As Boolean

Title = "AlphaFill Cell Selection"

Default = Selection.Address     Prompt = vbCrLf _       & "Use mouse in conjunction with " _       & "SHIFT and CTRL keys to" & vbCrLf _       & "click and drag or type in name(s) " _       & "of cell(s) to AlphaFill" & vbCrLf & vbCrLf _       & "Currently selected cell(s): "

& Selection.Address

On Error Resume Next     Set rangeSelected = InputBox(Prompt, Title, _       Default, Type:=8)

If rangeSelected Is Nothing Then Exit Sub

UpperCase = True     Randomize     For Each Cell In rangeSelected         CellChars = Chr(64 + Int((Rnd * 26) + 1))

If Not UpperCase Then CellChars = LCase(CellChars)

Cell.Value = CellChars     Next End Sub

Der geschriebene Makrocode fügt die Großbuchstaben in den von Ihnen angegebenen Bereich ein. Wenn Sie stattdessen Kleinbuchstaben verwenden möchten, müssen Sie lediglich die Variable UpperCase auf False anstatt auf True setzen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3109) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

AutoFilling with the Alphabet.