Wie kann man eine Zelle in Excel umkreisen?

Beim Bearbeiten eines Arbeitsblatts möchten Sie möglicherweise einen Kreis um eine Zelle zeichnen, um sie deutlich hervorzuheben, wie im folgenden Screenshot gezeigt. Nun stelle ich Ihnen einige Tricks vor, um eine Zelle in Excel zu umkreisen.

Eine Zelle mit einer ovalen Form umkreisen

Eine Zelle mit VBA umkreisen

Eine Zelle mit einer ovalen Form umkreisen

Um eine Zelle zu umkreisen, müssen Sie eine ovale Form einfügen.

1. Klicken Sie auf Einfügen > Formen und wählen Sie die ovale Form aus dem Abschnitt Grundformen in der Liste aus. Siehe Screenshot:

2. Zeichnen Sie das Oval, um die gewünschte Zelle zu umkreisen. Siehe Screenshot:

3. Klicken Sie mit der rechten Maustaste auf die Form und wählen Sie Form formatieren aus dem Kontextmenü.

4. Im Dialogfeld Form formatieren (oder im Bereich Form formatieren) klicken Sie auf die Registerkarte Füllung und ziehen den Pfeil für Transparenz nach rechts, um sicherzustellen, dass 100% in der Textbox angezeigt werden. Siehe Screenshot:

5. Schließen Sie das Dialogfeld. Nun können Sie sehen, dass ein Kreis um die Zelle ist.

Tipp: Standardmäßig wird sich die Form mit der Zelle bewegen und deren Größe anpassen.

Eine Zelle mit VBA umkreisen

Wenn Sie schnell eine Zelle umkreisen möchten, können Sie den VBA-Code verwenden.

1. Wählen Sie die Zelle aus, die Sie umkreisen möchten, und drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und kopieren Sie den folgenden VBA-Code in das aufgepoppte Fenster.

VBA: Eine Zelle umkreisen.

Sub DrawCircle()
	'Updateby20141105
	Dim Arng As Range
	Dim WorkRng As Range
	Set WorkRng = Application.Selection
	For Each Arng In WorkRng.Areas
		With Arng
			x = Arng.Height * 0.1
			y = Arng.Width * 0.1
			Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
			Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
			With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
				.Interior.ColorIndex = xlNone
				.ShapeRange.Line.Weight = 1.25
			End With
		End With
	Next
	WorkRng.Select
End Sub

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um den VBA-Code auszuführen. Nun ist die ausgewählte Zelle umkreist.

Tipps:

(1) Wenn Sie im ersten Schritt mehrere angrenzende Zellen auswählen, wird dieses VBA-Makro diese Zellen gemeinsam umkreisen.

(2) Wenn Sie im ersten Schritt mehrere nicht angrenzende Zellen auswählen, wird dieses VBA-Makro jede Zelle einzeln umkreisen.