Ich habe ein kleines problem.
Mehrer Txtbox und combobx in zellen fortlaufen einfügen und dies nur von B1:B18
Wer könnt mir da weiter helfen!
Besten Dank jetzt schon
Option Explicit
Public Sub test()
Dim objCell As Range
With ActiveSheet
For Each objCell In .Cells(1, 2).Resize(18, 1)
Call .TextBoxes.Add(Left:=objCell.Left + objCell.Width / 2, _
Top:=objCell.Top, Width:=objCell.Width / 2, Height:=objCell.Height)
Next
End With
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 12
das ganze funktionier mit dem Code Tabelle1.Range("B11") = CBMI1.Text