Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
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
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

8 Spalte in Listbox € darstellen

8 Spalte in Listbox € darstellen
13.02.2022 16:24:40
kurt
Hallo zusammen,
hiermit lade ich die Listbox die in der Userform steht.
Ich möchte gern das die Formatierung für die Spalte 8 so dargestellt wird 0.000.000,00 €
With Worksheets("Daten")
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "250;160;160;160;140;120;60;70;30;30"
ListBox1.Font.Size = 10
letzteA = .Cells(.Rows.Count, 6).End(xlUp).Row
ListBox1.List = .Range("B3:J" & letzteA).Value
arr = ListBox1.List
Set dic = CreateObject("Scripting.Dictionary")
For Z = 1 To UBound(arr, 1)
dic(arr(Z, 1)) = 0
Next
arr = WorksheetFunction.Transpose(dic.Keys)
ComboBox1.List = arr
ComboBox1.AddItem "Alle anzeigen", 0
ComboBox1.ListIndex = 0
Me.OptionButton7.Value = False
gruß kurt k

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 8 Spalte in Listbox € darstellen
13.02.2022 16:37:13
RPP63
Moin!
Ich nehme an, dass die entsprechende Tabellenspalte ein Währungsformat hat?
Dann probiere mal:

ListBox1.List = .Range("B3:J" & letzteA).Text
Bedenke aber, dass Du bei Übergabe an einen Range diese Zusatzzeichen wieder entfernen musst!
Denn so etwas funktioniert NICHT:

CDate("9.123.120,32 €")
Gruß Ralf
AW: 8 Spalte in Listbox € darstellen
13.02.2022 16:59:15
kurt
Hallo Ralf,
leider wird nur so angezeigt: 2234500,00
also ohne Punkte !
gruß kurt k
AW: 8 Spalte in Listbox € darstellen
13.02.2022 17:13:47
RPP63
Hast Du .Text statt .Value genommen?
Aber beachte mein obiges Bedenken!
Anzeige
AW: 8 Spalte in Listbox € darstellen
13.02.2022 17:26:41
Kurt
Hallo Ralf,
habe so eingegeben wie Du beschrieben hast.
ListBox1.List = .Range("B3:J" & letzteA).Text
Gruß Kurt k
AW: 8 Spalte in Listbox € darstellen
13.02.2022 17:27:38
Kurt
Hallo Ralf,
habe so eingegeben wie Du beschrieben hast.
ListBox1.List = .Range("B3:J" & letzteA).Text
Gruß Kurt k
AW: 8 Spalte in Listbox € darstellen
13.02.2022 17:31:35
onur 

ListBox1.List = .Range("B3:J" & letzteA).Value
dim i
for i=0 to listbox1.listcount-1
listbox1.list(i,7)=format(listbox1.list(i,7),"currency")
next i
arr = ListBox1.List

leider nicht...
13.02.2022 18:02:21
kurt
Hallo Onur,
leider auch nicht.
In der Zelle steht der Betrag so: 2.123.500,11
so in der ListBox angezeigt: 2123500,11
ListBox1.List = .Range("B3:J" & letzteA).Value
Dim i
For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 7) = Format(ListBox1.List(i, 7), "Währung")
Next i
arr = ListBox1.List
habe es auch in anderen Spalten versucht, leider nicht.
gruß kurt k
Anzeige
AW: leider nicht...
13.02.2022 18:04:30
onur
Von "Währung" habe ich nix geschrieben!
Excel ist deutsch, aber VBA ist immer ENGLISCH.
So auch nicht...
13.02.2022 18:19:41
kurt
Hallo Onur,
stimmt, hast RECHT.
Dim i
For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 7) = Format(ListBox1.List(i, 7), "currency")
Next i
leider auch so nicht.
gruß kurt k
AW: So auch nicht...
13.02.2022 18:30:39
onur
Dann must du mal die Datei posten, denn bei MIR läuft es korrekt.
AW: Wie gewünscht Muster
13.02.2022 19:59:24
onur
Hatest du nicht geschrieben, dass es die ACHTE Spalte wäre ? Es ist aber die SIEBTE.
Ausserdem ist die Beispielsdatei NICHT lauffähig gewesen, da je eine Combobox,Optionbutton und Textbox fehlten.
SO läuft es - das mit Dictionary (nur um Combobox1 zu befüllen) ist Blödsinn.

With Worksheets("Adressen")
ListBox1.ColumnCount = 7
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "250;160;160;160;140;120;100;100;30;30"   '70 =€,  30=Datum,  auftrags.Nr.
ListBox1.Font.Size = 10
letzteA = .Cells(.Rows.Count, 3).End(xlUp).Row
ListBox1.List = .Range("B3:J" & letzteA).Value
Dim i
For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 6) = Format(ListBox1.List(i, 6), "currency")
Next i
arr = ListBox1.List
ComboBox1.Clear
ComboBox1.AddItem "Alle anzeigen", 0
For Z = 0 To UBound(arr, 1)
ComboBox1.AddItem arr(Z, 1)
Next
ComboBox1.ListIndex = 0
Me.OptionButton7.Value = False
Label5.Caption = .Range("b1")
End With
TextBox1 = " "
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With

Anzeige
AW: Sorry, hier die Funktionierende
13.02.2022 20:09:05
onur
Ersetze alles zw.
With Worksheets("Adressen")
und
End With
durch das, was in meinem letzten Post zw.
With Worksheets("Adressen")
und
End With
steht.
Habe ich gemacht ! Danke Onur und Ralf -)
13.02.2022 20:11:54
kurt
Hallo zusammen,
danke für die Unterstützung und Geduld.
gruß
kurt k

301 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
4
3
3
8
4
2
4
4
3
2
5
3
2
8
13
10
4
5
4
2
3