Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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
Textboxen mit Makro erstellen
15.12.2008 18:34:02
adrian
Hi,
hoffe, hierbei kann mir jemand helfen!
Habe folgende Funktionen in einem Modul, die ich in einem Sheet aufrufe.
Prozedur im Modul:

Sub AddTextfeld(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 = 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
End With
End With
End Sub



Sub AddOptionButton(Position2 As Range)
Anzahl = 1
For Each Objekt In ActiveSheet.OLEObjects
If Objekt.progID = "Forms.OptionButton.1" Then
Anzahl = Anzahl + 1
End If
Next
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=Position2.Left, _
Width:=Position2.Width, Top:=Position2.Top, Height:=Position2.Height)
Set OB = Objekt.Object
With OB
.Name = ActiveSheet.ComboBox1.Value & Anzahl
End With
End With
End Sub


Aufruf im Sheet:


Sub CommandButton5_Click()
If ComboBox1.Value  "" Then
AddTextfeld Range("K20")
AddOptionButton Range("S25")
Else
MsgBox "Please choose ODM in Dropdown-Box!"
End If
End Sub


Sehr komisch... funktionier, aber sobald ich die Elemente per Button erstellt habe, funktioniert der Code nicht mehr =(
irgendetwas in der "Addtextfeld" Prozedur stimmt nicht!
Sobald ich das Textfeld habe sagt der Compiler mit "Object library invalid or contains references to object definitions that could not be found"
lg
adrian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxen mit Makro erstellen
16.12.2008 13:36:00
adrian
Hi,
war wohl zu spät gestern =)
ich Zapfen habe ja total übersehen, dass da 2mal der gleiche Namen vergeben wird > sry&lg
adrian
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige