Auslesen aus Textfeld

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Auslesen aus Textfeld
von: Rolf
Geschrieben am: 29.11.2003 10:17:11

Hollo Excelprofis,

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
Bild


Betrifft: AW: Einlesen ins Textfeld (so muß es heißen)
von: Rolf
Geschrieben am: 29.11.2003 10:28:49

Hollo Excelprofis,

mir ist ein Beschreibungsfehler unterlaufen.
Es muß so heißen:

vieleicht kann mir jemand helfen das Makro zu erweitern.
Folgende Funktion fehlt:
Ich möchte den Inhalt aus Tabelle 2 Zelle A1 in das Textfeld 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


Bild


Betrifft: AW: Einlesen ins Textfeld (so muß es heißen)
von: GerdW
Geschrieben am: 29.11.2003 11:43:18

Auf den ersten Blick würde ich sagen sTxt ist leer, jedenfalls hast
du keinen String zugewiesen.

Gerd


Bild


Betrifft: AW: Einlesen ins Textfeld (so muß es heißen)
von: Rolf
Geschrieben am: 29.11.2003 13:13:33

Hallo GerdW,

habe deine Anwort gelesen hilft mir aber nicht weiter, da meine VBA-Kenntnisse
nicht so gut sind.
Ich möchte den Inhalt aus Tabelle 2 Zelle A1 in das Textfeld eintragen.
Könntes du dieses Makro so umstricken, so das die Bedingungen erfüllt werde?


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


Vielen Dank im voraus
Rolf


Bild

Beiträge aus den Excel-Beispielen zum Thema " Auslesen aus Textfeld"