Herbers Excel-Forum - das Archiv

Textbox wird "verschoben" postioniert

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Textbox wird "verschoben" postioniert
von: Jörg Schreiber
Geschrieben am: 01.10.2003 16:33:07
Servus!

Ich moechte eine Textbox nach der absoluten Position (Cells.Left/Cells.Top) einer bestimmten Zelle ausrichten (linke Ecke Textbox = linke Ecke Zelle) und zwar dynamisch in der Zeile, die der User gerade anklickt (die Spalte ist bei allen identisch). Das tut er auch, allerdings richtet er die Textbox nicht an besagter Ecke aus, sondern nur "so ungefaehr". Des weiteren verschiebt er diese immer weiter nach unten, je groesser die Zeilennummer ist, also in Y bestaendig, in X eher dynamisch - fuer mich absolut unerklaerlich. Manuell im Code nachbessern widerstrebt mir und ist hier auch nicht effizient, da er ja dynamisch weiterverrutscht und irgendwann wieder aus dem Ruder laeuft. Hat hier jemand einen Rat?

Dim Zeile as Integer
Zeile = Selection.Row

ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, _
Left:=Cells(Zeile, 33).Left, Top:=Cells(Zeile, 33).Top, Width:=239, _
Height:=27).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With

Bild

Betrifft: AW: Textbox wird "verschoben" postioniert
von: ChrisL
Geschrieben am: 01.10.2003 18:17:33
Hi Jörg

Habe ein bischen rumprobiert. Bei mir (XL 97) tritt das Problem dann auf, wenn die Bildschirmansicht nicht auf 100 % gezoomt ist. Je weiter von 100 % entfernt desto ungenauer. Mir fiel da lediglich folgende Krücke ein...

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Zeile As Integer
Dim WertZoom As Integer
Zeile = Selection.Row
WertZoom = ActiveWindow.Zoom
Application.ScreenUpdating = False
ActiveWindow.Zoom = 100
ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, _
Left:=Cells(Zeile, 33).Left, Top:=Cells(Zeile, 33).Top, Width:=239, _
Height:=27).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
ActiveWindow.Zoom = WertZoom
Application.ScreenUpdating = True
End Sub


Gruss
Chris
 Bild
Excel-Beispiele zum Thema " Textbox wird "verschoben" postioniert"
Text aus Textbox in Variable Namen von TextBoxes hochzählen
Text aus Textbox in Zellen aufteilen Nichtnumerische Eingaben in TextBox verhindern
Text aus UserForm-Textbox in Variable einlesen Nur Buchstaben in eine UserForm-TextBox
TextBoxes- und Label-Werte in Abhängigkeit verändern Nur AJM in TextBox akzeptieren und Anzahl zählen
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen Artikel aus Auswahltextbox in Sammeltextbox verschieben