Zelle in Userform ist zu klein, es wird nicht alles übernommen

[leher]

Hallo,

ich habe eine Excel Tabelle, auf der sich ein Button befindet, bei dessen Anklicken sich eine Userform öffnet. Die eingetragenen Daten in diese Userform werden in eine andere Tabelle in Excel übernommen. Wenn ich nun in der Userform in die Textbox etwas eintrage und zwar sehr viel, wird allerdings nicht alles übernommen... Es scheint als ob die Zelle eine zu geringe Kapazität hat...

Kann mir hier jemand helfen? Das wäre toll!

Vielen Dank!

Leher

[ae]

Hallo,
was bedeutet "wird nicht alles übernommen"?
Hast Du bei den Eigenschaften des Textfeldes die Länge über MaxLength begrenzt?
Oder wie soll man sich das vorstellen?

[Beverly]

Hi Andreas,

ich nehme an der Fragesteller meint, dass nur 256 Zeichen ins Tabellenblatt übernommen werden, wenn mehr als 256 Zeichen in der TextBox sind. Irgendwie gab es da eine Begrenzung, allerdings soweit ich weiß trat das unter bestimmten Umständen beim Kopieren von einer Tabelle in eine andere auf, nicht bei der Übernahme aus einer TextBox (ich kann mich da allerdings auch irren).

Ich habe das jetzt versucht nachzuvollziehen, allerdings mit negativem Erfolg - es werden alle Zeichen übernommen, auch wenn mehr als 256 in der TextBox sind. Ich habe allerdings nur Excel 2010 und Excel 2003 zur Verfügung.

Bis später,
Karin

[leher]

Ich werde mal die Datei mit anhängen. Ich glaube dann ist es verständlicher....

Vielen Dank!!!

Gruß, Leher

[ae]

Hallo,
scheint wirklich irgendwie mit 2007 zusammen zu hängen

Ich kann wie auch Karin problemlos in 2003 und 2010 längere Texte übernehmen

[maninweb]

Hallo leher...

wie lautet denn der Code, den Du zur Übernahme des Textes verwendest?

Gruß

[Beverly]

Hi,

ich weiß nicht, ob es etwas bringt, aber versuche mal anstelle deines Codes diesen zu verwenden:

Code: [Auswählen]

Sheets("Tabelle2").Range("C24") =TextBox7
Bis später,
Karin

[maninweb]

Hallo leher...

hatte gestern Deine Datei übersehen. Das Problem liegt wohl an der Format-Funktion, die Du verwendet hattest. Solange Du keine explizite Formatierung des Textes vornehmen möchtest (z.B. Zahlen als Dezimalzahl), brauchst Du den Text nicht explizit formatieren. Die Format Funktion verhält sich bei mir in Excel 2003, 2007 und 2010 gleich. Anbei ein Code mit den Änderungen...

Code: Visual Basic

1. Private Sub CommandButton1_Click()
2.  
3.   Dim erste_freie_Zeile As Long
4.   Dim letzteZeile As Long
5.  
6.   erste_freie_Zeile = Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0).Row
7.  
8.   ThisWorkbook.Worksheets("Tabelle1").Cells(erste_freie_Zeile, 7).Value = TextBox7.Text
9.  
10.   letzteZeile = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
11.  
12.   ThisWorkbook.Worksheets("Tabelle2").Range("C24").Value = TextBox7.Text
13.  
14. End Sub
15.  

Empfehlen würde ich zudem, die Zeilenzähler als Long statt Integer zu deklarieren sowie die Eigenschaften, die Du abrufst (Wert der Zelle) explizit anzusprechen; hier dann .Value bei .Cells(...) oder .Range(...).

Gruß

[Beverly]

Hi,

auf .Value und .Text kann verzichtet werden, weil dies die Standardeigenschaft der Zelle bzw. des Textfeldes ist.

Außerdem würde ich die erste freie Zelle nicht mit Bezug auf Range("A65536") ermitteln, weil man sich damit explizit auf Excel-Versionen vor 2007 festlegt. Universeller und unabhängig von der Excel-Version ist diese Art (für die letzte belegte Zelle in Spalte A):

Code: [Auswählen]

IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Bis später,
Karin

[leher]

Vielen vielen Dank!!

Sorry für die späte Antwort...

Das mit dem ... = Textbox7.Text ohne Format hat schon gereicht! Das Problem ist also gelöst!

Oh, wie schön:D

Einen schönen Wochenstart,

Gruß,

Leher