Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Textbox mit Makro erstellt. Texteingabe
16.12.2008 17:19:18
adrian
Hi,
hiermit wird eine Textbox erstellt, nur leider kann ich keinen Text eingeben =/
Bis jetzt bin ich dem Problem noch nicht auf die Spur gekommen!
Wäre toll wenn mit jemand helfen kann! =)
lg
adrian

Sub FirstAddTextfeld(Position As Range)
Anzahl = 1
For Each Objekt In ActiveSheet.OLEObjects
If Objekt.progID = "Forms.TextBox.1" Then
Anzahl = Anzahl + 1
End If
Next
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:="Forms.TextBox.1", Left:=Position.Left, _
Width:=Position.Width, Top:=Position.Top, Height:=Position.Height)
Set TB = Objekt.Object
With TB
.Name = "FirstChoice" & ActiveSheet.ComboBox1.Value & Anzahl
.BackColor = &HE0E0E0
.Font = "Georgia"
.Font.Bold = True
.Font.Size = 16
.TextAlign = fmTextAlignLeft
.EnterKeyBehavior = True
.TabKeyBehavior = True
.Height = 180
.Width = 340
.ScrollBars = fmScrollBarsVertical
.Locked = True
.AutoWordSelect = True
.DragBehavior = fmDragBehaviorDisabled
.WordWrap = True
.MultiLine = True
.SpecialEffect = fmSpecialEffectSunken
.Enabled = True
.SelectionMargin = True
.IntegralHeight = True
.PrintObject = True
.IMEMode = fmIMEModeNoControl
.MousePointer = fmMousePointerDefault
End With
End With
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox mit Makro erstellt. Texteingabe
16.12.2008 18:41:00
Anton
Hallo adrian,
versuch 's mit
.Locked = False
mfg Anton
AW: Textbox mit Makro erstellt. Texteingabe
17.12.2008 11:44:00
adrian
Hi,
danke dir =)
habe das auch schon probiert gehabt....da wollte es nicht funktionieren.
Jetzt habe ich es weggelassen und es klappt!
lg
adrian
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige