Thema Datum  Von Nutzer Rating
Antwort
04.12.2008 16:28:37 adrian
NotSolved
Blau Aw:Textbox mittels Funktion in Modul einfügen
 07.12.2008 18:39:41 jh
NotSolved
08.12.2008 16:24:20 adrian
NotSolved
09.12.2008 14:35:59 adrian
NotSolved
09.12.2008 17:27:39 adrian
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
07.12.2008 18:39:41		 Views:
1146		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Textbox mittels Funktion in Modul einfügen
Hallo,

so gehts:

Code im Bereich des Worksheets:

Dim c As Range
For Each c In Range("ODMListB").Cells
If c.Value <> "" Then
AddTextbox c.Offset(2, 0)
End If
Next c

Und die Function:

Function AddTextbox(Stelle As Range)
Dim Objekt As OLEObject, TB As MSForms.TextBox
Set Objekt = ActiveSheet.OLEObjects.Add(ClassType:= _
"Forms.TextBox.1", Left:=Stelle.Left, Top:=Stelle.Top, _
Width:=Stelle.Width, Height:=Stelle.Height)
Set TB = Objekt.Object
TB.Name = "ODMVolumeBox" & ActiveSheet.OLEObjects.Count
End Function

Eine Textbox hat übrigens keine Caption-Eigenschaft.

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.12.2008 16:28:37 adrian
NotSolved
Blau Aw:Textbox mittels Funktion in Modul einfügen
 07.12.2008 18:39:41 jh
NotSolved
08.12.2008 16:24:20 adrian
NotSolved
09.12.2008 14:35:59 adrian
NotSolved
09.12.2008 17:27:39 adrian
NotSolved