Wie füge ich eine schwebende Tabelle oder ein Textfeld in ein Excel-Arbeitsblatt ein?

Wenn Sie eine Tabelle oder ein Textfeld mit einigen wichtigen Daten haben, die auf dem Arbeitsblattbildschirm immer sichtbar sein sollen, auch wenn Sie im Arbeitsblatt nach oben oder unten scrollen. Dies kann eine interessante Aufgabe sein, in diesem Artikel werde ich einen schnellen Trick vorstellen, um sie zu lösen.

Fügen Sie eine schwebende Tabelle mit VBA-Code in Excel ein

Fügen Sie ein schwebendes Textfeld mit VBA-Code in Excel ein

Fügen Sie eine schwebende Tabelle mit VBA-Code in Excel ein

Es gibt keine direkte Möglichkeit, die schwebende Tabelle einzufügen. Sie müssen daher die Tabellendaten in ein Bild konvertieren und dann einen Code anwenden, um sie zu beenden. Gehen Sie dazu wie folgt vor:

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

2. In der herausgesprungen Bild kopieren Dialogfeld auswählen Wie auf dem Bildschirm gezeigt von dem Aussehen Abschnitt, und wählen Sie Bild unter dem Format Abschnitt, klicken Sie auf OK Um den Dialog zu schließen und dann auf eine Zelle zu klicken, um das Bild auszugeben, drücken Sie zuletzt Strg + V Um dieses Bild einzufügen, siehe Screenshot:

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

VBA-Code: Fügen Sie eine schwebende Tabelle in Excel ein:

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 die Picure1 Ist der von Ihnen erstellte Bildname, ändern Sie ihn bitte nach Ihren Wünschen.

4. Speichern und schließen Sie dann das Codefenster. Wenn Sie jetzt durch das Arbeitsblatt scrollen und auf eine Zelle klicken, wird das Tabellenbild immer in der oberen rechten Ecke des Arbeitsblatts angezeigt.

Entfesseln Sie die Magie von Excel mit Kutools AI

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

Erweitern Sie Ihre Excel-Funktionen mit KI-gestützten Tools. Jetzt herunterladen und erleben Sie Effizienz wie nie zuvor!

Fügen Sie ein schwebendes Textfeld mit VBA-Code in Excel ein

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

1. Zuerst sollten Sie ein Textfeld aus dem einfügen Entwickler:in / Unternehmen Tab, klicken Sie auf Entwickler:in / Unternehmen > Insert > Textfeld (ActiveX-Steuerelement)Zeichnen Sie dann das Textfeld und geben Sie die Informationen nach Bedarf in das Textfeld ein. Siehe Screenshot:

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

VBA-Code: Fügen Sie ein schwebendes Textfeld in Excel ein:

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 die TextBox1 Ist der Name des Textfelds, den Sie eingegeben haben, ändern Sie ihn bitte nach Ihren Wünschen.

3. Speichern und schließen Sie dann das Codefenster. Wenn Sie jetzt durch das Arbeitsblatt scrollen, wird das eingefügte Textfeld immer in der oberen rechten Ecke des Arbeitsblatts angezeigt.