Wie fügt man eine schwebende Tabelle oder ein Textfeld in ein Excel-Arbeitsblatt ein?

Wenn Sie eine Tabelle oder ein Textfeld mit einigen wichtigen Daten haben, die Sie immer auf dem Bildschirm des Arbeitsblatts sichtbar halten möchten, selbst wenn Sie das Arbeitsblatt nach oben oder unten scrollen. Dies mag eine interessante Aufgabe sein. In diesem Artikel werde ich einen schnellen Trick vorstellen, um dieses Problem zu lösen.

Schwebende Tabelle in Excel mit VBA-Code einfügen

Schwebendes Textfeld in Excel mit VBA-Code einfügen

Schwebende Tabelle in Excel mit VBA-Code einfügen

Es gibt keinen direkten Weg, eine schwebende Tabelle einzufügen, daher müssen Sie die Tabellendaten in ein Bild konvertieren und dann einen Code anwenden, um den Vorgang abzuschließen. Gehen Sie bitte wie folgt vor:

1. Wählen Sie die Datentabelle aus, die Sie sichtbar halten möchten, klicken Sie dann auf Kopieren > Als Bild kopieren unter der Registerkarte Start, siehe Screenshot:

2. Wählen Sie im erscheinenden Dialogfeld „Bild kopieren“ die Option Wie auf dem Bildschirm angezeigt im Abschnitt Darstellung und wählen Sie Bild im Abschnitt Format aus. Klicken Sie auf OK, um das Dialogfeld zu schließen, und klicken Sie dann auf eine Zelle, um das Bild auszugeben. Drücken Sie abschließend Strg + V, um das Bild einzufügen, siehe Screenshot:

3. Nachdem Sie die Tabelle in ein Bild konvertiert haben, klicken Sie mit der rechten Maustaste auf das Blattregister, das das Tabellenbild enthält, das Sie immer sichtbar halten möchten, und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren Sie im geöffneten Fenster Microsoft Visual Basic für Applikationen den folgenden Code und fügen Sie ihn in das leere Modul ein:

VBA-Code: Schwebende Tabelle in Excel einfügen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Hinweis: In diesem Code ist Picure1 der Name des erstellten Bildes. Ändern Sie es nach Bedarf.

4. Speichern und schließen Sie dann das Codefenster. Jetzt bleibt das Tabellenbild beim Scrollen des Arbeitsblatts und Anklicken einer Zelle immer in der oberen rechten Ecke des Arbeitsblatts.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Schwebendes Textfeld in Excel mit VBA-Code einfügen

Um ein schwebendes Textfeld einzufügen, gibt es hier auch einen VBA-Code, um diese Aufgabe zu lösen.

1. Klicken Sie zunächst auf der Registerkarte Entwickler auf Einfügen > Textfeld (ActiveX-Steuerelement), zeichnen Sie das Textfeld und geben Sie die benötigten Informationen in das Textfeld ein. Siehe Screenshot:

2. Klicken Sie dann mit der rechten Maustaste auf das Blattregister, das das Textfeld enthält, das Sie immer sichtbar halten möchten, und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren Sie im geöffneten Fenster Microsoft Visual Basic für Applikationen den folgenden Code und fügen Sie ihn in das leere Modul ein:

VBA-Code: Schwebendes Textfeld in Excel einfügen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Hinweis: In diesem Code ist TextBox1 der Name des eingefügten Textfelds. Ändern Sie es nach Bedarf.

3. Speichern und schließen Sie dann das Codefenster. Jetzt bleibt das eingefügte Textfeld beim Scrollen des Arbeitsblatts immer in der oberen rechten Ecke des Arbeitsblatts.