wie kann ich den wie folgt erstellten Textboxen eine Formatierung auf diktieren?
Dim theTextBox As Object
Dim textBoxCounter As Long
For textBoxCounter = 1 To AnzahlKontenPrämie1
Set theTextBox = KontoauszügePrämie.Controls.Add("Forms.TextBox.1", "Kontostand" & _
textBoxCounter, True)
With theTextBox
.Value = Sheets("Datenbank Konten Prämie").Range("L" & (textBoxCounter + 1)).Value
.Font.Size = 10
.Left = 90
.Width = 120
.Top = 6 + (36 * textBoxCounter)
End With
Next
LG Christof