Brian fragte, ob es in Excel eine Möglichkeit gibt, den Inhalt der aktuellen Zelle zu vergrößern. Er arbeitet an einem Arbeitsblatt, das eine niedrige Zoomeinstellung (ca. 30%) haben muss, um das gesamte Blatt zu sehen. Wenn verschiedene Szenarien ausgeführt werden, ändern die Zellen je nach Ergebnis ihre Farbe. Brian kann leicht erkennen, welche Zellen er untersuchen muss, kann sie jedoch aufgrund der Zoomeinstellung nicht lesen. Normalerweise ändert er den Zoom, liest die Antwort und zoomt zurück, um ein anderes Szenario auszuführen. Es wäre viel einfacher, wenn nur die aktuelle Zelle (die ausgewählte) auf ein lesbares Maß vergrößert würde.

In Excel gibt es keine integrierte Methode, um diese selektive Zoommethode durchzuführen. Sie können jedoch einige Problemumgehungen verwenden. Eine solche Problemumgehung besteht darin, ein Makro zu verwenden, das den Wert in der aktiven Zelle in einem Meldungsfeld anzeigt. Ein solches Makro kann einfach zum Arbeitsblattmodul hinzugefügt werden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox ActiveCell.Address & ": " & ActiveCell.Value End Sub

Jedes Mal, wenn Sie eine andere Zelle im Arbeitsblatt auswählen, öffnet das Makro ein Meldungsfeld, in dem der Inhalt dieser Zelle angezeigt wird. Dies löst das Problem, aber es kann mühsam werden, die Meldungsfelder jedes Mal zu schließen, wenn Sie die ausgewählte Zelle ändern.

Sie können auch ein Makro erstellen, das einfach die Schriftgröße der aktuell ausgewählten Zelle ändert. Das folgende einfache Makro, das dem Arbeitsblattmodul hinzugefügt wurde, betrachtet die aktuell ausgewählte Zelle und erhöht ihre Schriftgröße um 500%.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

FontSize = ActiveCell.Font.Size     LargeSize = FontSize * 5     Cells.Font.Size = FontSize     ActiveCell.Font.Size = LargeSize End Sub

Die Nützlichkeit eines solchen Makros hängt natürlich davon ab, wie Sie die Höhe und Breite der ausgewählten Zelle formatiert haben. Wenn es sich um statische Höhen und Breiten handelt, kann es sein, dass durch Erhöhen der Schriftgröße der Zelleninhalt unlesbar wird. Wenn Höhe und Breite dynamisch sind, sollte der Inhalt immer noch gut lesbar sein.

Ein weiterer Ansatz besteht darin, ein eigenes vergrößertes Bild jeder ausgewählten Zelle zu erstellen:

Private Sub ZoomCell(ZoomIn As Single)

Dim s As Range     Set s = Selection

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

Um das Makro verwenden zu können, müssen Sie es jedes Mal aufrufen, wenn sich die Auswahl im Arbeitsblatt ändert. Dazu fügen Sie dem Arbeitsblattmodul ein kleines Makro hinzu:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ZoomCell 6 End Sub

In diesem Fall wird jedes Mal, wenn die Zellenauswahl geändert wird, das ZoomCell-Makro ausgeführt, um ein Bild zu erstellen, das sechsmal so groß wie das Original ist. Wenn es lästig wird, wenn sich das Bild jedes Mal automatisch ändert, wenn Sie eine andere Zelle auswählen, können Sie das Auslösemakro im Arbeitsblattmodul entfernen und das ZoomCell-Makro so ändern, dass es bei jeder Initiierung ausgeführt wird, möglicherweise mit einer Tastenkombination Sie einrichten.

Sub ZoomCell()

Dim s As Range     Dim ZoomIn As Single     Set s = Selection     ZoomIn = 6

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

_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 (10426) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Nur die aktuelle Zelle vergrößern.