Office: Mehrspaltige Listbox text zentrieren

Venom · 15. Juni 2007

Hallo
kann man in einer Mehrspaltigen Listbox einizelne Spalten den Text rechtsbündig darstellen?

Gruß
Venom

:)

jinx · 17. Juni 2007

Moin, Venom,

ich befürchte nur durch "manuelle" Manipulation: Werte in zweispaltiger ListBox rechts- und linksbündig darstellen (keine Proportionalschrift verwenden!).

Venom · 17. Juni 2007

Hi Jinnx
Schaue ich mir mal an
Danke für den Link

Schönes RestWE

Gruß
Venom

Venom · 9. August 2007

Hi Jinx
ich habe das enldich mal einbaun wollen und komme leider nciht mir klar
Kannst du mal schaun ob du meinen Code zum befüllen der mehrspaltigen Listbox
Code:

With lst_berechnung
.ColumnCount = 6
.ColumnWidths = "2cm;2cm;2cm;2cm;3cm;2cm"
.AddItem Sheets("Ablage").Cells(8, 1).Value
.List(Sheets("Ablage").Cells(1, 8), 1) = Sheets("Ablage").Cells(8, 2).Value
.List(Sheets("Ablage").Cells(1, 8), 2) = Sheets("Ablage").Cells(8, 3).Value
.List(Sheets("Ablage").Cells(1, 8), 3) = Sheets("Ablage").Cells(8, 4).Value
.List(Sheets("Ablage").Cells(1, 8), 4) = Format(Sheets("Ablage").Cells(8, 5).Value, "0.00")
.List(Sheets("Ablage").Cells(1, 8), 5) = Format(Sheets("Ablage").Cells(8, 6).Value, "0.00")
Sheets("Ablage").Cells(1, 8) = Sheets("Ablage").Cells(1, 8) + 1
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit dem aus deinem link kombinieren kannst?

Code:

Dim arr(1 To 10, 1 To 3)
Dim iRow As Integer, iCol As Integer
For iRow = 1 To 10
For iCol = 1 To 3
If iCol = 2 Then
arr(iRow, iCol) = String(8 - _
Len(Cells(iRow, iCol).Text), " ") & _
Cells(iRow, iCol).Text
Else
arr(iRow, iCol) = Cells(iRow, iCol)
End If
Next iCol
Next iRow
lstAlign.List = arr
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich schaffe es leider nicht in laufe seit einiger Zewit in etliche Fehler

Gruß
Venom

jinx · 10. August 2007

Moin, Venom,

Code hinter die Tabelle (bitte wegen der Bereiche anpassen, das kann auch die Dimensionierung des Arrays beinhalten):

Code:

Option Explicit

Private Sub lst_berechnung_GotFocus()
Dim arr(8 To 10, 1 To 6)
Dim iRow As Integer, iCol As Integer
For iRow = 8 To 10
For iCol = 1 To 6
If iCol = 2 Or iCol = 4 Then
arr(iRow, iCol) = String(8 - _
Len(Cells(iRow, iCol).Text), " ") & _
Cells(iRow, iCol).Text
ElseIf iCol = 5 Or iCol = 6 Then
arr(iRow, iCol) = Format(Cells(iRow, iCol), "0.00")
Else
arr(iRow, iCol) = Cells(iRow, iCol)
End If
Next iCol
Next iRow
lst_berechnung.List = arr
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das sieht bei mir in der Tabelle dann so wie im Anhang aus...

Venom · 12. August 2007

Hi
Super dank dir
werde das gleich mal versuchen

Gruß
Venom

EDIT: hmm... irgendwie krieg ich es nciht hin das er das aktuell in die Listbox einträgt was auf dem tbl ABLAGE steht

Venom · 12. August 2007

Hi
ich habe es jetzt mal so abgeändert da ich es auf das minimum reduzieren wollte damit es überhaupt erstmal geht ohne jegliche Formatierungen etc
Code:

Dim arr(8 To 8, 1 To 6)

Dim iRow As Integer, iCol As Integer

For iRow = 8 To 8

For iCol = 1 To 6

arr(iRow, iCol) = String(8 - Len(Sheets("Ablage").Cells(iRow, iCol).Text), " ") & Sheets("Ablage").Cells(iRow, iCol).Text

Next iCol

Next iRow

lst_berechnung.List = arr
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Problem jetzt ist das er nur die erste Spalte der Listbox füllt und nicht alle 6. Irow hab ich auf 8 to 8 gesetzt da ich ja will das er immer den aktuellen wert aus der 8 Zeile in tbl Ablage einliest?

Hast du noch ne Idee?

Gruß
Venom

Office: Mehrspaltige Listbox text zentrieren

Mehrspaltige Listbox text zentrieren

Mehrspaltige Listbox text zentrieren

Mehrspaltige Listbox text zentrieren

Mehrspaltige Listbox text zentrieren - Similar Threads - Mehrspaltige Listbox text

[Diagramme] 2 mehrspaltige Tabellen im Vergleich

ListBox mit AddItem aus mehrspaltiger Tabelle befüllen

Mehrspaltige Listbox füllen

Mehrspaltige Listbox Sortieren

ListBox mit mehrspaltiger Tabelle bestücken und einzelne Zeilen löschen

Auswahl mehrspaltiger Listbox in String schreiben/auslesen

Mehrspaltige Listbox Ausgabe verändert Werte