Thema Datum  Von Nutzer Rating
Antwort
Rot Textbox mittels Funktion in Modul einfügen
 04.12.2008 16:28:37 adrian
NotSolved
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:
adrian		 Datum:
04.12.2008 16:28:37		 Views:
2403		 Rating:
     
Antwort:
  Ja
Thema:
Textbox mittels Funktion in Modul einfügen
Text:
Hi,
habe ma folgendes probiert, nur klappt es leider noch nicht so ganz!
Will 2 Zellen unterhalb eines jeden Wertes in einem Bereich eine Textbox einfügen.
habe das mir folgend gedacht:

Da ich noch VBA-Anfänger bin und in diversen Büchern nichts dazu finde, wäre es toll wenn mir hier jemand helfen könnte =)

lg

adrian

Aufruf im Hauptsheet:

For Each Cell In Range("ODMListB")

If Cell.Value <> "" Then
AddTextbox(Cell.Offset(2, 0))
End If

Next

Module:


Function AddTextbox(Stelle As Range)
Const TEXTBOX As String = "Forms.TextBox.1"
Dim Objekt As OLEObject
Dim ObForm As MSForms.TEXTBOX

With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:=TEXTBOX, _
Left:=Range(Stelle).Left = 180, Top:=Range(Stelle).Top = 90, Width:=Range(Stelle).Width = _
480, _
Height:=Range(Stelle).Height = 50).Select
Set ObForm = Objekt.Object
With ObForm
.Name = "ODMVolumeBox" & ActiveSheet.OLEObject.Count
.Caption = "ODMVolumeBox" & ActiveSheet.OLEObject.Count
.Enabled = True
End With
ActiveWorkbook.Save
End With
End Function


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
Rot Textbox mittels Funktion in Modul einfügen
 04.12.2008 16:28:37 adrian
NotSolved
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