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. Zeigen Sie das Dialogfeld Excel-Optionen an. (Klicken Sie in Excel 2007 auf die Schaltfläche Office und dann auf Excel-Optionen. Zeigen Sie in Excel 2010 und Excel2013 die Registerkarte Datei des Menübands an und klicken Sie dann auf Optionen.)

  2. Wenn Sie Excel 2007 verwenden, stellen Sie sicher, dass links im Dialogfeld „Beliebt“ ausgewählt ist. Wenn Sie Excel 2010 oder Excel 2013 verwenden, klicken Sie links auf dem Bildschirm auf Erweitert und scrollen Sie zum Bereich Allgemein.

  3. Klicken Sie auf Benutzerdefinierte Listen bearbeiten. Excel zeigt das Dialogfeld Benutzerdefinierte Listen an und blendet das Dialogfeld Excel-Optionen aus. (Siehe Abbildung 1.)

  4. Wählen Sie die Option NEUE LISTE aus der Liste Benutzerdefinierte Listen links im Dialogfeld.

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

  6. Wenn Sie fertig sind, klicken Sie auf die Schaltfläche Hinzufügen.

  7. Klicken Sie zum Abschluss auf OK.

Um die neu erstellte 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, führen Sie stattdessen die folgenden Schritte aus:

  1. Wählen Sie die Zellen aus, die die Buchstaben des Alphabets enthalten.

  2. Zeigen Sie das Dialogfeld Excel-Optionen an. (Klicken Sie in Excel 2007 auf die Schaltfläche Office und dann auf Excel-Optionen. Zeigen Sie in Excel 2010 und Excel2013 die Registerkarte Datei des Menübands an und klicken Sie dann auf Optionen.)

  3. Wenn Sie Excel 2007 verwenden, stellen Sie sicher, dass links im Dialogfeld „Beliebt“ ausgewählt ist. Wenn Sie Excel 2010 oder Excel 2013 verwenden, klicken Sie links auf dem Bildschirm auf Erweitert und scrollen Sie zum Bereich Allgemein.

  4. Klicken Sie auf Benutzerdefinierte Listen bearbeiten. Excel zeigt das Dialogfeld Benutzerdefinierte Listen an und blendet das Dialogfeld Excel-Optionen aus. Sie sollten auch beachten, dass der in Schritt 1 ausgewählte Zellenbereich links neben der Schaltfläche Importieren angezeigt wird.

  5. Klicken Sie auf die Schaltfläche Importieren. Excel fügt den Inhalt der ausgewählten Zellen als benutzerdefinierte Liste hinzu.

  6. OK klicken.

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.

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.

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

Dieser Tipp (7803) gilt für Microsoft Excel 2007, 2010 und 2013. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: