Multilinefunktion ausreizen

[SonjaFido]

Verehrte Gemeinde,
ich habe folgendes Problem. Ich möchte mittels einer Textbox die Inhalte aus meinen Excel-Zellen
untereinander darstellen. Für eine Spalte bekomme ich dies mit dem unten stehenden Code auch hin.
Ich habe nun aber nicht nur Inhalte aus der Spalte A die via Textbox dargestellt werden sollen,
sondern auch in B und C usw. finden sich Inhalte. D.h. in Zeile 1 der Textbox sollen die Inhalte
von der Zeile 1 des Tabellenblattes stehen, die Zeile 2 der Textbox gibt die 2 Zeile des Tabellenblattes wieder usw.

Wie löse ich diese Problem elegant?


Option Explicit

Private Sub CommandButton1_Click()
Dim x As Variant
Dim y As Variant
Dim z As Variant

y = Range("A1:A10")

'Multiline in Textbox anschalten
TextBox1.MultiLine = True

'Inhalte aus Zellen in Textbox1 einfügen
x = WorksheetFunction.Transpose(Worksheets(ActiveSheet.Name).Range("A1:A10"))

TextBox1.Value = Join(x, vbLf)

End Sub

[Kuwer]

Hallo Sonja,

nimm ein Listenfeld (ListBox).
Stelle die ColumnCount-Eigenschaft auf die benötigten Spalten ein.

Code:

Private Sub CommandButton1_Click()
  ListBox1.List = Range("A1:E10").Value
End Sub

Gruß Uwe

[SonjaFido]

Hallo Uwe,

habe trotzdem immer nur Werte aus Splate A drin stehen. Müssen an der ListBox noch verschiedene Einstellungen
vorgenommen werden?

[Kuwer]

Hallo Uwe,

habe trotzdem immer nur Werte aus Splate A drin stehen. Müssen an der ListBox noch verschiedene Einstellungen
vorgenommen werden?

Ja, wie ich bereits schrieb.

Gruß Uwe

[SonjaFido]

O.K. das klappt.
Aber wenn ich mit ListBox1.Columnwidth = 40 eingebe (nur als Beispiel), habe ich trotzdem
ist der Abstand der einzelnen Spalten im ListBox - Feld nicht gleich. Was kann ich machen?

[Kuwer]

Hallo Sonja,

ich zitiere aus der Onlinehilfe von Excel:

ColumnWidths

	A	B
1	Spaltenbreiten werden in Punkt gemessen, wenn nicht anders angegeben. Um eine andere Maßeinheit zu verwenden, geben Sie diese zusammen mit dem Wert ein. In den folgenden Beispielen werden Spaltenbreiten in unterschiedlichen Maßeinheiten angegeben. Es wird außerdem beschrieben, wie die verschiedenen Einstellungen bei einem dreispaltigen Listenfeld mit einer Breite von 10,16 cm aussehen würden.
2
3	Einstellung	Wirkung
4	90;72;90	Die erste Spalte ist 90 Punkt breit (3,18 cm), die zweite 72 Punkt (2,54 cm), die dritte 90 Punkt (3,18 cm).
5	6 cm;0;6 cm	Die erste Spalte ist 6 cm breit. Die zweite Spalte ist ausgeblendet. Die dritte Spalte ist ebenfalls 6 cm breit. Da die dritte Spalte teilweise sichtbar ist, wird eine horizontale Bildlaufleiste angezeigt.
6	1,5 in;0;2,5 in	Die erste Spalte ist 1,5 Zoll breit, die zweite Spalte ist ausgeblendet. Die dritte Spalte ist 2,5 Zoll breit.
7	2 in;;2 in	Die erste Spalte ist 2 Zoll breit, die zweite 1 Zoll (Standardwert), die dritte 2 Zoll. Da die dritte Spalte nur zur Hälfte sichtbar ist, wird eine horizontale Bildlaufleiste angezeigt.
8	(Leer)	Alle drei Spalten haben die gleiche Breite (3,38 cm).

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Gruß Uwe