Zelle in der Mitte zentrieren und automatisch auswählen
Schritt-für-Schritt-Anleitung
Um die Zelle mit dem aktuellen Datum automatisch auszuwählen und sie in der Mitte des Excel-Fensters zu zentrieren, folge diesen Schritten:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Wähle im VBA-Editor im linken Fenster "DieseArbeitsmappe" aus.
-
Füge den folgenden Code ein:
Private Sub Workbook_Open()
Worksheets("Tabelle1").Activate
ActiveSheet.Columns(2).Find(Date).Select
CenterOnCell ActiveCell
End Sub
-
Erstelle ein neues Modul, indem Du im Menü Einfügen > Modul wählst.
-
Füge in das Modul den folgenden Code ein:
Sub CenterOnCell(OnCell As Range)
Dim VisRows As Integer
Dim VisCols As Integer
Application.ScreenUpdating = False
OnCell.Parent.Parent.Activate
OnCell.Parent.Activate
With ActiveWindow.VisibleRange
VisRows = .Rows.Count
VisCols = .Columns.Count
End With
With Application
.Goto reference:=OnCell.Parent.Cells( _
.WorksheetFunction.Max(1, OnCell.Row + _
(OnCell.Rows.Count / 2) - (VisRows / 2)), _
.WorksheetFunction.Max(1, OnCell.Column + _
(OnCell.Columns.Count / 2) - _
.WorksheetFunction.RoundDown((VisCols / 2), 0))), _
scroll:=True
End With
OnCell.Select
Application.ScreenUpdating = True
End Sub
-
Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).
Jetzt wird die Zelle mit dem aktuellen Datum beim Öffnen der Datei automatisch ausgewählt und zentriert.
Häufige Fehler und Lösungen
Problem: Der Code funktioniert nicht und zeigt einen Fehler an.
Lösung: Stelle sicher, dass der Tabellenname ("Tabelle1") korrekt ist. Du kannst ihn anpassen, wenn dein Arbeitsblatt anders benannt ist.
Problem: Die Zelle wird nicht zentriert.
Lösung: Überprüfe die Bildschirmauflösung und den Zoom-Faktor. Wenn die Zelle zu nah am Rand ist, kann die zentrierte Anzeige nicht korrekt funktionieren.
Alternative Methoden
Eine weitere Möglichkeit, die Zelle automatisch auszuwählen, besteht darin, den Private Sub Workbook_SheetActivate(ByVal Sh As Object)-Code zu verwenden:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Tabelle1" Then
CenterOnCell Columns(2).Find(Date)
End If
End Sub
Füge diesen Code ebenfalls in "DieseArbeitsmappe" ein, um sicherzustellen, dass die Zelle bei jedem Wechsel zu Tabelle1 zentriert wird.
Praktische Beispiele
Wenn Du möchtest, dass die Zelle in der Mitte auch diagonal geteilt und beschriftet wird, kannst Du die Funktion "Zelle diagonal teilen und beschriften" in Excel verwenden. Gehe dazu wie folgt vor:
- Wähle die Zelle aus, die Du diagonal teilen möchtest.
- Gehe zu
Start > Zellen formatieren.
- Wähle die Registerkarte
Ausrichtung.
- Aktiviere die Option
Diagonal und gib die gewünschten Beschriftungen ein.
Tipps für Profis
- Verwende die
Find-Methode, um nach bestimmten Werten in Excel zu suchen und zu navigieren. Dies kann nützlich sein, wenn Du regelmäßig mit Datumsangaben arbeitest.
- Optimiere den Code, indem Du die Bildschirmaktualisierung während des Ausführens von Makros deaktivierst, um die Leistung zu verbessern.
FAQ: Häufige Fragen
1. Kann ich den Code auch in Excel 2010 verwenden?
Ja, der Code funktioniert in Excel-Versionen ab 2000. Achte darauf, dass Du die Datei als Makro-fähige Arbeitsmappe speicherst.
2. Was mache ich, wenn ich mehrere Tabellenblätter habe?
Du kannst den Code anpassen, um spezifische Tabellenblätter auszuwählen, indem Du den Namen im Code entsprechend änderst.
3. Gibt es eine einfache Möglichkeit, die Zelle diagonal zu teilen?
Ja, Du kannst die Zelle formatieren, indem Du die Zellenformatierung öffnest und die diagonale Ausrichtung aktivierst.