Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrzeilige Textbox

mehrzeilige Textbox
27.03.2008 18:08:00
Stempfle
Hallo an die Profis und alle die es wissen wollen,
Wenn ich in einer mehrzeiligen Textbox die Eingabetaste drücke, wird eine neue Zeile begonnen,was ja richtig ist. Allerdings wird diese Zeile mit dem Befehle Linecount nicht mitgezählt. Zweites Problem ist, wenn ich den Inhalt der Textbox einer Zelle in einer ExcelTabelle oder einen Textfeld zuweise, dass die Eingabetaste eine Art Steuerzeichen hinterlässt, im Form eines kleinen Quadrats, welches ich nicht gebrauchen kann. Dieses Zeichen lässt sich auch nicht mit "STRG C" kopieren, so dass ich es anschließend in dem String ansprechen und es entfenren kann. Wie bekomme ich nun dieses kleine Quadrat aus der Zelle oder dem Textfeld und wie löse ich das Problem mit dem Linecount?
Im angebebenen Pfad ist eine kleine Beispieldatei.
Vielen Dank schon im voraus
Gruß Leo
https://www.herber.de/bbs/user/51087.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrzeilige Textbox
27.03.2008 18:32:00
Beverly
Hi Leo,
den Inhalt der Textbox bekommst du so in die Zelle

Cells(1, 1) = Application.Substitute(TextBox100, Chr(13), "")



AW: mehrzeilige Textbox
27.03.2008 19:36:19
Stempfle
Danke Beverly, habe es schon eingebaut, saubere Lösung.
Das mit dem Linecount werde ich schon noch hinkriegen.
Gruß Leo

AW: mehrzeilige Textbox
27.03.2008 19:50:15
Beverly
Hi Leo,
vielleicht eine Möglichkeit für das Problem mit LineCount. Verwende anstelle des KeyPress Ereignisses diese beiden Codes

Private Sub TextBox100_Enter()
Label2.Caption = TextBox100.LineCount
End Sub




Private Sub TextBox100_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Zeilen As Byte
Dim Länge As Integer
Dim MaxString As String
Zeilen = TextBox100.LineCount
If KeyCode = 13 Then
Label2.Caption = TextBox100.LineCount + 1
If Zeilen > 2 Then
Länge = Len(TextBox100.Value)
MaxString = Left(TextBox100.Value, Länge - 1)
TextBox100.Value = Left(MaxString, Len(MaxString) - 1)
MsgBox " Die Textfeldgrösse wurde überschritten! "
Label2.Caption = TextBox100.LineCount
End If
End If
End Sub


Das Problem ist jedoch, dass der Zeilenumbruch nicht mit in die Textlänge eingeht, sodass es da zu Differenzen kommt.


Anzeige
AW: mehrzeilige Textbox
28.03.2008 08:25:36
Stempfle
Danke Beverly, funktioniert schon.
Bei dem Ereignis KeyPress, funktioniert LineCount nicht und der Befehl KeyCode liefert keinen Wert.
Danke nochmals, toll gemacht.

Links zu Excel-Dialogen

Label TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige