Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Range in Textbox

Betrifft: Range in Textbox von: Eggi
Geschrieben am: 21.07.2008 19:49:25

Hallo Zusammen

Ich habe in einer UF eine Textbox. Es soll der Text in einem Tabelleblatt zur UF übertragen werden.
Es handelt sich um ein Anleitungstext mit mehreren Untergruppen.

Leider erhalte ich einen Fehler wenn ich den Text von der Tabelle in die UF übertrage. Wenn ich nur A8 nehme geht es. Aber als A8 - A65 bringt er mir einen Fehler.

Kann mir jemand von Euch helfen. Weis nicht was ich da so falsch mache.
Multiline ist eingeschaltet.

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets(Array("Tabelle1").Range("A8:A65"))
End Sub



Für Eure hilfe danke ich Euch

herzliche Grüsse

Eggi (Egidio)

  

Betrifft: AW: Range in Textbox von: Daniel
Geschrieben am: 21.07.2008 20:09:39

Hi
so sollte es funktionieren:

Private Sub UserForm_Initialize()
Dim Zelle as Range
For each Zelle in Range("A8:A65")
   Textbox1.Value  = Textbox1.Value & Zelle.value
next
End Sub



Gruß, Daniel


  

Betrifft: AW: Range in Textbox von: Eggi
Geschrieben am: 21.07.2008 20:33:54

Hallo Daniel, hallo Matthias

Vielen Dank an Euch beiden. Beide Lösungen sind perfekt. Die von Matthias ist es sogar möglich Leerzeilen
visuell darzustellen.

Nochmals vielen Dank an Euch beide für Eure hilfe.

herzliche Grüsse

Eggi (Egidio)


  

Betrifft: AW: Range in Textbox von: Matthias L
Geschrieben am: 21.07.2008 20:09:56

Hallo Eggi

meinst Du so etwas?

https://www.herber.de/bbs/user/54040.xls

Gruß Matthias


  

Betrifft: AW: Range in Textbox von: Eggi
Geschrieben am: 21.07.2008 21:02:55

Hallo Daniel, hallo Matthias

Noch evt. eine kleine Frage:

Ist es möglich, dass fett geschriebener Text in der Tabelle auch in der UF so angezeigt wird. Es sind die Ueberschriften der Anleitung. Wäre schon Cool wenn diese hervorgehoben werden könnten.

herzliche Grüsse

Eggi (Egidio)


  

Betrifft: AW: Range in Textbox von: Matthias L
Geschrieben am: 21.07.2008 22:22:27

Hallo

Ganz so einfach geht das nicht.
Alle Zeilen der Textbox haben den gleichen Schriftstil.

Du müßtest eine zweite Textbox befüllen, dann würde es mit der 1.Überschrift klappen.

hier nochmal ein Beispiel:

https://www.herber.de/bbs/user/54041.xls

Gruß Matthias


  

Betrifft: AW: Range in Textbox von: Eggi
Geschrieben am: 21.07.2008 22:34:26

Hallo Matthias

Nun, es ist kein Beinbruch ob die Ueberschriften fett dargestellt werden. Für den Leser wäre dies sicher ein Vorteil. Aber was solls auch so ist es gut.

Trotzdem vielen Dank für Deine Hilfe

herzliche Grüsse

Eggi (Egidio)


 

Beiträge aus den Excel-Beispielen zum Thema "Range in Textbox"