Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textfeld beim auslesen teilen
zurück: Schleife ändern/anpassen. weiter: 1) If then und 2) Unterschiedliche Buchstaben in 2 Zellen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bernd 1306
Einsteiger


Verfasst am:
18. Jun 2011, 11:36
Rufname: Bernd

Textfeld beim auslesen teilen - Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo Excelexperten,

ich habe ein Textfeld mit der Einstellung Multiline. Hier kann jeder Text eingeben.
Jetzt möchte ich diesen Text in ein anderes Tabellenblatt schreiben, dabei aber diesen Text nach folgender Vorgabe teilen.

In die Zelle A1 nur max. 100 Zeichen bzw. wenn das letzte Wort mehr als 100 Zeichen ergibt, dann bis zum letzten Wort vor 100 Zeichen.
In die Zelle A2 die nächsteen 100 Zeichen usw.
Oder aber im Textfeld ist mit ENTER die Zeile umgebrochen, dann auch in die nächste Zelle schreiben.
Ich habe bisher noch nichts gefunden, geht sowas überhaupt?
Danke für Eure Hilfe.

Gruß Bernd
EtoPHG
Ich sehe dunkle Zeiten aufziehen...


Verfasst am:
18. Jun 2011, 15:35
Rufname: Hansueli


AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo Bernd,

Gehen tut vieles, alles ist eine Frage des Aufwands.
Dein Ansinnen scheint mir sehr aufwändig.

Warum arbeitest du nicht einfach mit Daten - Gültigkeit
auf diesen Zellen, wählst dort Text und Textlänge zwischen 0 und 100 ?

Gruess Hansueli

_________________
Forenhelfer danken für eine Rückmeldung!
Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow
Bernd 1306
Einsteiger


Verfasst am:
19. Jun 2011, 10:06
Rufname: Bernd

AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo Hansueli,

Danke für den Tipp aberich weis nicht wie Du das meinst.
Die Eingabe erfolgt doch im Textfeld und dieser Text soll dann in die Zellen aufgeteiilt werden.

Gruß Bernd
r.mueller
Gast


Verfasst am:
19. Jun 2011, 10:52
Rufname:

AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo

Code:

Sub WuselMeinenTextAuseinander()
Dim strText As String
Dim strT As String
Dim strZ As String
Dim lngZeile As Long
Dim vntTeileArray As Variant
Dim lngI As Long
Dim lngX As Long
Dim lngMaxLaenge As Long
Dim wksZiel As Worksheet
lngMaxLaenge = 100
Set wksZiel = ActiveWorkbook.Worksheets("Tabelle1") 'Anpassen!!!!
strText = TextBox1.Text  'Anpassen!!!!

vntTeileArray = Split(strText, vbCrLf, -1, 1)

For lngI = LBound(vntTeileArray) To UBound(vntTeileArray)
 strT = vntTeileArray(lngI)
 Do
  If Len(strT) > lngMaxLaenge Then
   lngX = InStrRev(Left(strT, lngMaxLaenge + 1), " ", -1, 1)
   If lngX = 0 Then
    strZ = Left(strT, lngMaxLaenge)
    lngZeile = lngZeile + 1
    wksZiel.Cells(lngZeile, 1).Value = strZ
    strT = Mid(strT, lngMaxLaenge + 1)
   Else
    strZ = Trim(Left(strT, lngX))
    lngZeile = lngZeile + 1
    wksZiel.Cells(lngZeile, 1).Value = strZ
    strT = Mid(strT, lngX + 1)
   End If
  Else
   lngZeile = lngZeile + 1
   wksZiel.Cells(lngZeile, 1).Value = strT
   Exit Do
  End If
 Loop
Next
End Sub



Gruß
r.mueller
Bernd 1306
Einsteiger


Verfasst am:
19. Jun 2011, 12:04
Rufname: Bernd


AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo r. mueller,

Danke das funktioniert ja wie ich mir es vorgestellt habe. Ich habe das unter
Code:
Private Sub TextBox1_Change()
eingefügt und jetzt schreibt es sich gleich richtig in die Zellen.

Noch eine Frage wenn ich die Zelle von A1 ändern möchte, ist das dann hier
Code:
wksZiel.Cells(lngZeile, 1).Value = strZ
oder kann ich das irgendwie vorher an nur einer Stelle definieren.
Nochmal vielen Dank für Deine Hilfe.

Gruß Bernd
r.mueller
Gast


Verfasst am:
19. Jun 2011, 12:14
Rufname:

AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo

>> Noch eine Frage wenn ich die Zelle von A1 ändern

Was genau ändern?

Gruß
r.mueller
Bernd 1306
Einsteiger


Verfasst am:
19. Jun 2011, 12:17
Rufname: Bernd

AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Sorry, habe ich vergessen z.B. in A25.

Gruß Bernd
r.mueller
Gast


Verfasst am:
19. Jun 2011, 12:21
Rufname:

AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo

Einfügen: lngZeile = 24

Code:

'.....
lngZeile = 24
For lngI = LBound(vntTeileArray) To UBound(vntTeileArray)
'.....


Gruß
r.mueller
Bernd 1306
Einsteiger


Verfasst am:
19. Jun 2011, 12:54
Rufname: Bernd


AW: Textfeld beim auslesen teilen - AW: Textfeld beim auslesen teilen

Nach oben
       Version: Office XP (2002)

Hallo r. mueller,

vielen Dank und schönen Sonntag noch.

Gruß Bernd
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zellen auslesen 7 Danco 826 14. Nov 2006, 14:29
dtabken Zellen auslesen
Keine neuen Beiträge Excel Formeln: Wert auslesen + 1 addieren und in Zelle schreiben 3 DerEchteThomas 16438 25. Sep 2006, 11:51
DerEchteThomas Wert auslesen + 1 addieren und in Zelle schreiben
Keine neuen Beiträge Excel Formeln: Namen des Tabellenblattes auslesen? 3 Sobo 1612 29. Aug 2006, 15:38
Gast Namen des Tabellenblattes auslesen?
Keine neuen Beiträge Excel Formeln: Anzahl2 soll unendlich viele Zeilen auslesen 4 DeeKay 3275 24. Aug 2006, 12:57
Cabation Anzahl2 soll unendlich viele Zeilen auslesen
Keine neuen Beiträge Excel Formeln: Zellen eines Bereiches immer durch den gleichen Wert teilen 4 Nordsee2001 7553 28. Jun 2006, 12:47
Nordsee2001 Zellen eines Bereiches immer durch den gleichen Wert teilen
Keine neuen Beiträge Excel Formeln: Monat auslesen / Quartalsauswertung 2 BerndMueller 2633 10. Apr 2006, 07:11
< Peter > Monat auslesen / Quartalsauswertung
Keine neuen Beiträge Excel Formeln: Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren 2 JensK 1222 22. März 2006, 22:52
JensK Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren
Keine neuen Beiträge Excel Formeln: Format Inhalt auslesen 7 shanghai357 5567 10. Feb 2006, 17:24
shanghai357 Format Inhalt auslesen
Keine neuen Beiträge Excel Formeln: Zelle von links und rechts auslesen bis zum Leerzeichen 3 Sascha David 10506 17. Jan 2006, 14:31
Gast Zelle von links und rechts auslesen bis zum Leerzeichen
Keine neuen Beiträge Excel Formeln: Tabellenzeile indizieren und auslesen 4 Zander-Carve 2128 28. Nov 2005, 11:07
Zander-Carve Tabellenzeile indizieren und auslesen
Keine neuen Beiträge Excel Formeln: Werte einer Tabelle auslesen 4 bobi 1930 29. Jun 2005, 13:36
bobi Werte einer Tabelle auslesen
Keine neuen Beiträge Excel Formeln: Rahmendienstplan auslesen 2 KHJakobs 2434 10. März 2005, 12:16
KHJakobs Rahmendienstplan auslesen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps