Wie kann man ausgewählte Zellen in Excel vergrößern oder heranzoomen?
Wie wir alle wissen, bietet Excel eine Zoomfunktion, mit der sich die Darstellung des gesamten Arbeitsblatts – und damit auch der Zellinhalte – vergrößern lässt. Doch was, wenn Sie nur bestimmte ausgewählte Zellen vergrößern möchten? Gibt es eine Möglichkeit, gezielt nur die markierten Zellen in einem Arbeitsblatt zu zoomen?
Ausgewählte Zelle mit VBA-Code zoomen oder vergrößern
Ausgewählte Zelle mit VBA-Code zoomen oder vergrößern
Es gibt zwar möglicherweise keinen direkten Weg, um die ausgewählten Zellen in Excel zu vergrößern, doch ich kann Ihnen hierzu eine praktische VBA-Umgehungslösung anbieten. Gehen Sie dazu bitte wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, für die die ausgewählten Zellen automatisch vergrößert werden sollen, und wählen Sie im Kontextmenü Code anzeigen. Fügen Sie den folgenden Code im geöffneten Fenster Microsoft Visual Basic for Applications in das leere Modul ein:
VBA-Code: Ausgewählte Zellen zoomen oder vergrößern:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Schließen Sie anschließend das Codefenster und speichern Sie Ihre Änderungen. Sobald Sie nun bestimmte Datenzellen auswählen oder anklicken, werden diese automatisch als Bild vergrößert. Siehe Screenshot:
Hinweis: Die ausgewählten Zellen kehren automatisch zu ihrer Originalgröße zurück, sobald Sie andere Zellen auswählen.
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