Auslesen aus Textfeld
29.11.2003 10:17:11
Rolf
vieleicht kann mir jemand helfen das Makro zu erweitern.
Folgende Funktion fehlt:
Ich möchte den Inhalt aus dem Textfeld in Tabelle2 in die Zelle A1 eintragen.
Hier das Markro mit der fehlenden Funktion
Sub Txt2Box()
Dim oTxt As TextBox
Dim sTxt As String, sPart As String
Dim iCounter As Integer
Set oTxt = ActiveSheet.TextBoxes(1)
For iCounter = 1 To Len(sTxt) Step 250
oTxt.Characters( _
Start:=iCounter, _
Length:=250).Text = Mid(sTxt, iCounter, 250)
Next iCounter
End Sub
Schon mal vielen Dank
Rolf