Wie kann man eine Zelle in Excel einkreisen?
Beim Bearbeiten eines Arbeitsblatts möchten Sie eine Zelle vielleicht besonders hervorheben, indem Sie sie einkreisen – so wie im folgenden Screenshot dargestellt. Im Anschluss zeige ich Ihnen einige Methoden, mit denen Sie eine Zelle in Excel einkreisen können.
Eine Zelle mit einer Ovalform einkreisen
Eine Zelle mithilfe von VBA einkreisen
Eine Zelle mit einer Ovalform einkreisen
Um eine Zelle einzukreisen, fügen Sie einfach eine Ovalform ein.
1. Klicken Sie auf Einfügen > Formen und wählen Sie die Oval-Form aus dem Abschnitt Grundformen in der Liste aus. Siehe Screenshot:
2. Zeichnen Sie das Oval so, dass es die gewünschte Zelle umschließt. Siehe Screenshot:
3. Klicken Sie mit der rechten Maustaste auf die Form und wählen Sie im Kontextmenü Form formatieren.
4. Klicken Sie im Dialogfeld Form formatieren(bzw. im Bereich)Form formatieren) auf die Registerkarte Füllung und ziehen Sie den Schieberegler für Transparenz nach rechts, bis 100 % im Textfeld angezeigt wird. Siehe Screenshot:
5. Schließen Sie das Dialogfeld – und schon sehen Sie einen Kreis um die Zelle.
Tipp: Standardmäßig bewegt und skaliert sich die Form automatisch mit der Zelle.
Eine Zelle mithilfe von VBA einkreisen
Möchten Sie eine Zelle schnell einkreisen, können Sie hierfür einen VBA-Code verwenden.
1. Wählen Sie die gewünschte Zelle aus und drücken Sie gleichzeitig 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 erscheinende Fenster.
VBA: Eine Zelle umranden.
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. Die ausgewählte Zelle ist jetzt eingekreist.
Tipps:
(1) Wenn Sie im ersten Schritt mehrere benachbarte Zellen auswählen, umkreist dieses VBA-Makro alle diese Zellen gemeinsam.
(2) Wenn Sie im ersten Schritt mehrere nicht benachbarte Zellen auswählen, umkreist dieses VBA-Makro jede einzelne Zelle.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins