Das Archiv des Excel-Forums

Umbruch aus Textbox in Zelle übernehmen

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

Betrifft: Umbruch aus Textbox in Zelle übernehmen
von: Anja

Geschrieben am: 08.10.2003 21:07:29

Hallo zusammen,

Ich habe ein User-Form mit eine Textbox. Hier soll der eingegebene Text nach drücken einer Schaltfläche in eine bestimmte Zelle geschrieben werden. Das klappt soweit ganz gut. Ein Problem gibt es nur bei Zeilenumbrüchen, die in der Textbox eingegeben werden. Hier erscheint in der Zelle selbst dann immer ein |. Ist ja auch klar, denn der Zeilenumbruch, der in der Textbox eingegeben wird hat den Wert Chr(13), der Zeilenumbruch, den ich in der Zelle abbilden möchte (auch zu erzeugen per Tastenkombination Alt + Return) den Wert Chr(10).

Gibt es eine Möglichkeit, die Werte gegeneinander auszutauschen?

Ich habe es bereits damit versucht, dass ich jedes einzelne Zeichen der Textbox vor dem Eintragen in die Zelle auf den Wert Chr(13) überprüft und dann durch den Wert Chr(10) ersetzt habe. Nur dann stehen in der Zelle selbst ein | UND ein Zeilenumbruch.

Ich bin für jeden Tipp dankbar! Herzliche Grüsse,

Anja
Bild


Betrifft: AW: Umbruch aus Textbox in Zelle übernehmen
von: Michael Scheffler
Geschrieben am: 08.10.2003 21:18:15

Hallo Anja,

hast Du es mal mit Replace versucht?

Gruß

Micha


Bild


Betrifft: AW: Umbruch aus Textbox in Zelle übernehmen
von: Anja
Geschrieben am: 08.10.2003 21:24:14

Hi Micha,

bisher sah mein unten geschilderter Versuch wie unten eingefügt aus.

Bei Replace suche ich ja nach dem ASCII-Zeichen. Das ist bei Zeilenumbrüchen doch eher nicht praktikabel, dachte ich mir....

Grüsse,

Anja
________________________________

l = Len(kette)
i = 1

Do While i < l
If Asc(Mid(kette, i, 1)) = 13 Then
Mid(kette, i, 1) = Chr(10)
End If

i = i + 1
Loop


Bild


Betrifft: AW: Umbruch aus Textbox in Zelle übernehmen
von: Nepumuk
Geschrieben am: 08.10.2003 21:22:18

Hallo Anja,
übergib den Inhalt der Textbox an eine Variable und lass diese vor der Übergabe an die Zelle durch folgende Zeilen laufen.

Do While InStr(1, deineVariable, Chr(13)) <> 0
deineVariable = Mid(deineVariable, 1, InStr(1, deineVariable, Chr(13)) - 1) & Chr(10) & Mid(deineVariable, InStr(1, deineVariable, Chr(13)) + 1)
Loop


Code eingefügt mit: Excel Code Jeanie

Den Variablennamen musst du natürlich noch anpassen. In meinem Beispiel heißt sie "deineVariable".

Gruß
Nepumuk


Bild


Betrifft: AW: Umbruch aus Textbox in Zelle übernehmen
von: Anja
Geschrieben am: 08.10.2003 21:42:09

Hi Nepumuk

Das klappt! Super, ich dank dir!

Ich habe die Code-Zeile noch dahingehend verändert, dass ich das Chr(10) in der Mitte entfernt habe. Denn es wurde ein einfacher Zeilenumbruch aus der Textbox als doppelter Zeilenumbruch (also zwei hintereinander) in der Zelle dargestellt.

*freu*

Liebe Grüsse,

Anja


Bild


Betrifft: AW: Umbruch aus Textbox in Zelle übernehmen
von: K.Rola
Geschrieben am: 08.10.2003 21:41:49

Hallo,


Sub ersetzen()
Selection.Replace What:=Chr(13), Replacement:=""
End Sub


Wenn du alle Zellen beackern willst, ersetz Selection durch Cells

Gruß K.Rola


Bild


Betrifft: AW: Umbruch aus Textbox in Zelle übernehmen
von: Anja
Geschrieben am: 08.10.2003 21:56:29

Hey, das klappt ja auch ;-)

Da habe ich wieder etwas dazu gelernt heute. Danke K.Rola!

Grüsse,

Anja


Bild


Betrifft: AW: Umbruch aus Textbox in Zelle übernehmen
von: K.Rola
Geschrieben am: 08.10.2003 21:58:39

Hallo,

und das ca. 10.000 mal schneller! Den Unterschied merkst du allerdings
erst, wenns um ganze Tabellen oder besser noch, ganze Mappen, geht.

Gruß K.Rola


 Bild

Excel-Beispiele zum Thema " Umbruch aus Textbox in Zelle übernehmen"

Zeilenumbruch download Zeilenumbruch in Formel erzwingen download
Vertikalen Seitenumbruch verhindern download Auf Doppelklick Zeilenumbruch und "X" download
Seitenumbruch ermitteln und Übertrag erstellen download Zeilenumbrüche im aktiven Blatt entfernen download
Zeilenumbrüche in eine *.CSV-Datei übernehmen download Aufteilen eines Strings mit Zeilenumbrüchen download
Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen download Text gemäß Zeilenumbrüchen in Einzelzellen aufteilen download
Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen download TextBox-Inhalt mit und ohne Zeilenumbrüche auslesen download
Zeichenfolge nach Zeilenumbrüchen aufteilen download Zeilenumbruch bei Wertänderung download
Zeilenumbrüchen über VBA setzen download Zeilenumbruch in simuliertem ControlTipText-Element download
Text aus Textbox in Variable download Namen von TextBoxes hochzählen download
Text aus Textbox in Zellen aufteilen download Nichtnumerische Eingaben in TextBox verhindern download
Text aus UserForm-Textbox in Variable einlesen download Nur Buchstaben in eine UserForm-TextBox download
TextBoxes- und Label-Werte in Abhängigkeit verändern download Nur AJM in TextBox akzeptieren und Anzahl zählen download
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen download Artikel aus Auswahltextbox in Sammeltextbox verschieben download
Bei Doppelklick Textbox mit Text einfügen download Umwandlung eines TextBox-Wertes in eine Zahl download
Wert in UserForm-TextBox eintragen und selektieren download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Werte aus UserForm-TextBox in bestimmten Formate übertragen download
UserForm-TextBoxes ein- und ausblenden download Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen download
In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern download Bestimmte Zeichen in einer UserForm-TextBox markieren download
Textvariable in eine UserForm-TextBox eintragen download UserForm-TextBox-Werte über ScrollBar einlesen download
Wert aus Zelle in Tabellenblatt-Textbox eintragen download TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download
Werte zweiter UserForm-TextBoxes multiplizieren download TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln download
Text aus UserForm-TextBox drucken download Tabulator in UserForm-TextBox simulieren download
UserForm-TextBox-Werte einer ListBox hinzufügen download UserForm-TextBox-Werte auf Numeric prüfen und in Tabelle eintragen download
Text aus UserForm-TextBox in Tabelle suchen download Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download
Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren download Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download
Arbeitsmappe schliessen, wenn kein Eintrag in TextBox erfolgt download Plausibilistätsprüfung bei Datum&Zeit-Eingaben in UserForm-TextBox download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld download
Eingabebegrenzungen für TextBoxes download Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes download
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen download Focus und Selection zwischen zwei TextBoxes wechseln download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Datumreihe aus TextBox-Einträgen generieren download
Eingetragenen Wert in TextBox speichern download Eigene Klasse für UserForm-TextBoxes bilden download
Markierung einer Datumsreihe gem. UserForm-TextBoxes download Datum aus TextBox an erste frei Stelle eintragen download