Debug.Print, Werte Einstellungen der TextBox in aktive Zelle
08.02.2026 12:02:07
Dieter(Drummer)
Mit dem Code werden alle Werte der Einstellungen, der Textbox der Userform, in das Direktfenster mit Debug.Print geschrieben. Das funktioniert perfekt.
Was ich aber nicht schaffe, wie der Code sein muss, dass ich nur einmal "Debug.Print" im Code angebe, aber dennoch mehrfach die Namen der Einstellungen, der TextBox1 nutze.
Eine 2te Variante wäre auch, dass die Einstellungen der TextBox1, nach Aufruf des Codes nicht im Direktfenster landen, sondern direkt ab der aktiven Zelle, im Tabellenblatt eingefügt werden.
Mit der Bite um Hilfe, grüßt
Dieter(Drummer)
Sub Einstellungen_TextBox1()
With UserForm1.TextBox1
Debug.Print .AutoSize
Debug.Print .AutoTab
Debug.Print .AutoWordSelect
Debug.Print .BackColor
Debug.Print .BackStyle
Debug.Print .BorderColor
Debug.Print .BorderStyle
Debug.Print .ControlSource
Debug.Print .ControlTipText
Debug.Print .DragBehavior
Debug.Print .Enabled
Debug.Print .EnterFieldBehavior
Debug.Print .EnterKeyBehavior
Debug.Print .Font
Debug.Print .ForeColor
Debug.Print .Height
Debug.Print .HelpContextID
Debug.Print .HideSelection
Debug.Print .IMEMode
Debug.Print .IntegralHeight
Debug.Print .Left
Debug.Print .Locked
Debug.Print .MaxLength
Debug.Print .MouseIcon
Debug.Print .MousePointer
Debug.Print .MultiLine
Debug.Print .PasswordChar
Debug.Print .ScrollBars
Debug.Print .SelectionMargin
Debug.Print .SpecialEffect
Debug.Print .TabIndex
Debug.Print .TabKeyBehavior
Debug.Print .TabStop
Debug.Print .Tag
Debug.Print .Text
Debug.Print .TextAlign
Debug.Print .Top
Debug.Print .Value
Debug.Print .Visible
Debug.Print .Width
Debug.Print .WordWrap
End With
'Direktfenster zeigen und Inhalt markieren
Application.SendKeys "^g", True
Application.SendKeys "^a", True
'Inhalt kopieren
Application.SendKeys "^C", True
'Einfügen in markierte Zelle?
'Sheets("Tabelle2").Range("I3").Select
'Application.SendKeys "^V", True
End SubAnzeige