Makroerweiterung
21.11.2003 16:13:26
Rolf
noch mal danke für die Anregungen von gestern.
Folgendes Makro funktioniert gut, möchte es aber erweitern.
Kurze Funktionsbeschreibung:
Aus einem Textfeld wird der Inhalt ausgelesen und in die Zelle A1 übergeben.
Bei jedem Neudurchlauf wird die nächste Zelle beschrieben (A1, A2, A3...)
und der Inhalt des Textfeldes gelöscht.
Meine Frage: Ich möchte mehrere Textfelder benutzen mit der gleichen Funktion
nur jeweils andere Zellen (B1...) , C1...).
Wie kann man diese Funktion in das Makro einbauen so das alle Textfelder
abgefragt werden. Wenn nicht möglich müßte ich jedes Textfeld ein eigenes
Marko zuweisen, aber wie kann ich dann die einzelnen Makros automatisch
nacheinander ablaufen lassen.
Sub Box2Txt()
Set oTxt = ActiveSheet.TextBoxes(1)
For iCounter = 1 To oTxt.Characters.Count Step 250
sTxt = sTxt & oTxt.Characters( _
Start:=iCounter, _
Length:=250).Text
Next iCounter
Range("A65536").End(xlUp).Offset(1, 0).Value = sTxt
ActiveSheet.Shapes("Text Box 2").Select
Selection.Characters.Text = ""
End Sub
Vielen Dank im voraus
Rolf