Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox fest positionieren in excelsheet?

Forumthread: Textbox fest positionieren in excelsheet?

Textbox fest positionieren in excelsheet?
06.07.2008 13:02:41
marc
hallo zusammen
meine frage lautet:
wie kann ich einer textbox eine feste orientierung zuweisen? wie ich diese per vba verschieben kann weiss ich, leider geht das nicht bei meiner sache. das problem ist das ich das sheet verlassen kann
über eine symbolleiste und die textbox dann an verschiedenen stellen stehen kann?
wie kann ich dieser einen festen wert zuweisen ? z.b. oberhalb zelle a17 und oberhalb zelle a25?
danke für die hilfen
gruess

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox fest positionieren in excelsheet?
06.07.2008 13:03:00
marc
das ist der jetzige code:

Public Sub Textbox21_rechts()
' Textbox an Rand rechts  schieben
ActiveSheet.Unprotect
Range("L4").Select
ActiveSheet.Shapes("Text Box 21").Select
Selection.Characters.Text = "" & Chr(10) & ""
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.ShapeRange.IncrementLeft 447.75
Selection.ShapeRange.IncrementTop -2.25
Range("L4").Select
ActiveSheet.Protect
End Sub


Anzeige
AW: Textbox fest positionieren in excelsheet?
06.07.2008 13:47:00
Tino
Hallo,
unter Steuerelement Formatieren kannst du dies einstellen.
Userbild
Werden die Zellen verschoben, geht dass Steuerelement mit.
Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Textbox fest positionieren in excelsheet?
06.07.2008 13:56:14
marc
ja so ists auch eingestellt!
ich kann aber nicht die zellen einfach so verschieben da ob der textbox zellinhalte sind die bleiben müssen dort wo sie sind.
ich will nur die textbox alleine an eine bestimmte position schieben?
gruess

AW: Textbox fest positionieren in excelsheet?
06.07.2008 14:09:19
Tino
Hallo,
wie kann ich dieser einen festen wert zuweisen ? z.b. oberhalb zelle a17 und oberhalb zelle a25?
Kann Deiner Fragestellung nicht richtig folgen,
möchtest du die Textbox nun an einer Festen Position oder möchtest Du diese verschieben?
Bsp. zum verschieben an eine bestimmte Stelle.
ActiveSheet.Shapes("TextBox1").Left = Range("A17").Left
ActiveSheet.Shapes("TextBox1").Top = Range("A17").Top
Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Textbox fest positionieren in excelsheet?
06.07.2008 14:18:36
marc
genau so.
besten dank und noch schönen sonntag
gruess
;
Anzeige
Anzeige

Infobox / Tutorial

Textbox fest positionieren in Excel

Schritt-für-Schritt-Anleitung

Um eine Textbox in Excel fest zu positionieren, kannst du folgende Schritte ausführen:

  1. Textbox erstellen:

    • Gehe zu Einfügen > Formen und wähle Textbox. Zeichne die Textbox an der gewünschten Stelle.

  2. Textbox formatieren:

    • Klicke mit der rechten Maustaste auf die Textbox und wähle Form formatieren. Hier kannst du verschiedene Optionen anpassen.

  3. VBA-Code verwenden:

    • Öffne den VBA-Editor mit ALT + F11.
    • Füge den folgenden Code in ein Modul ein:
    Public Sub TextboxFestPositionieren()
   ActiveSheet.Shapes("TextBox1").Left = Range("A17").Left
   ActiveSheet.Shapes("TextBox1").Top = Range("A17").Top
End Sub
    • Passe den Namen der Textbox ("TextBox1") und die Zielzelle (z.B. "A17") nach Bedarf an.

  4. Makro ausführen:

    • Schließe den VBA-Editor und führe das Makro aus, um die Textbox an die gewünschte Position zu verschieben.

Häufige Fehler und Lösungen

  • Textbox bleibt nicht an der Position:

    • Stelle sicher, dass die Option Bewege und Größe mit Zellen in den Eigenschaften der Textbox deaktiviert ist.

  • VBA-Code funktioniert nicht:

    • Überprüfe den Namen der Textbox und die Referenz zur Zielzelle. Achte darauf, dass die Textbox auf dem aktiven Blatt vorhanden ist.

Alternative Methoden

  1. Verwendung von Steuerelementen:

    • Du kannst auch ActiveX-Steuerelemente verwenden, die mehr Flexibilität bieten. Diese findest du unter Entwicklertools > Einfügen.

  2. Manuelles Positionieren:

    • Klicke und ziehe die Textbox an die gewünschte Position. Dies kann jedoch problematisch sein, wenn das Arbeitsblatt Änderungen durch andere Daten erfordert.

Praktische Beispiele

  • Textbox über Zelle A17:

    Mit dem folgenden VBA-Code wird die Textbox direkt über Zelle A17 positioniert:

    ActiveSheet.Shapes("TextBox1").Top = Range("A17").Top - ActiveSheet.Shapes("TextBox1").Height

  • Textbox zwischen zwei Zellen:

    Um die Textbox zwischen A17 und A25 zu positionieren, kannst du diesen Code verwenden:

    ActiveSheet.Shapes("TextBox1").Top = (Range("A17").Top + Range("A25").Top) / 2

Tipps für Profis

  • Makros automatisieren:

    • Du kannst das Makro so einrichten, dass es beim Öffnen der Datei automatisch ausgeführt wird, um sicherzustellen, dass die Textbox immer an der richtigen Stelle ist.

  • Verwendung von Variablen:

    • Nutze Variablen, um die Adresse der Zelle flexibel zu halten. So kannst du leicht Änderungen vornehmen, ohne den gesamten Code anpassen zu müssen.

FAQ: Häufige Fragen

1. Wie kann ich die Textbox nach dem Positionieren sperren?
Um die Textbox nach der Positionierung zu sperren, kannst du die Eigenschaften in der Formatierung anpassen und das Arbeitsblatt schützen.

2. Was ist der Unterschied zwischen Formen und ActiveX-Steuerelementen?
Formen sind einfacher zu handhaben, während ActiveX-Steuerelemente mehr Funktionalität und Anpassungsmöglichkeiten bieten, aber komplexer in der Handhabung sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige