Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
TextBox1.Left = Cells(.ScrollRow + 5, .ScrollColumn + 5).Left
TextBox1.Top = Cells(.ScrollRow + 5, .ScrollColumn + 5).Top
End With
End Sub
Um ein Textfeld in Excel so zu bewegen, dass es beim Scrollen nicht hinter einer Fixierung verschwindet, befolge diese Schritte:
Textfeld einfügen: Gehe zu „Einfügen“ > „Textfeld“ und ziehe es in den gewünschten Bereich deiner Tabelle.
Entwicklertools aktivieren: Wenn du die Entwicklertools noch nicht aktiviert hast, gehe zu „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere die „Entwicklertools“.
VBA-Editor öffnen: Klicke auf „Entwicklertools“ > „Visual Basic“, um den VBA-Editor zu öffnen.
Code hinzufügen: Wähle das entsprechende Arbeitsblatt aus und füge den folgenden Code ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
TextBox1.Left = Cells(.ScrollRow + 5, .ScrollColumn + 5).Left
TextBox1.Top = Cells(.ScrollRow + 5, .ScrollColumn + 5).Top
End With
End SubVBA-Editor schließen: Schließe den VBA-Editor und gehe zurück zu Excel.
Testen: Bewege dich in der Tabelle und überprüfe, ob das Textfeld sich wie gewünscht verhält.
Wenn du das Textfeld in Excel nicht mit VBA bewegen möchtest, gibt es auch andere Möglichkeiten:
Hier sind einige Szenarien, in denen das Fixieren eines Textfeldes sinnvoll ist:
1. Wie kann ich ein Textfeld in Excel fixieren?
Um ein Textfeld in Excel zu fixieren, musst du den VBA-Code verwenden, um die Position des Textfeldes beim Scrollen anzupassen.
2. Funktioniert das auch in Excel Online?
Leider ist der Zugriff auf VBA in Excel Online nicht möglich. Du musst die Desktop-Version verwenden, um die Funktionalität zu nutzen.
3. Kann ich mehrere Textfelder gleichzeitig bewegen?
Ja, du kannst den VBA-Code anpassen, um mehrere Textfelder gleichzeitig zu bewegen, indem du eine Schleife einfügst, die über alle gewünschten Textfelder iteriert.