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
|