Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit Spaltenanzahlt in ListBox

Problem mit Spaltenanzahlt in ListBox
19.02.2018 15:25:47
ray
Hallo,
ich brauche 45 Spalten in der Listbox auf meiner UserForm. es werden aber nur 30 angezigt, obwohl ich bei den Eigenschaften im VBeditor 45 eingetragen hab. Mir scheint, es ist noch woanders einzugeben. heir mein Code
With ListBox1
.List = Range("A1").CurrentRegion.Value
If .ListCount > 0 Then .ListIndex = 0
End With
Viele Grüße aus Hamburg
Ray

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nicht nachvollziehbar. ev. leere Spalte (owT)
19.02.2018 15:43:10
EtoPHG

AW: Nicht nachvollziehbar. ev. leere Spalte (owT)
19.02.2018 15:53:24
ray
ok,
@Karin: Das hatte ich schon gelsen, ist anders Thema.
@ EtoPHG:
Hier der gesamte Code den ich ausführe um die Listbox auf der Userform beim Starten selbiger zu füllen:
<pre>Private Sub UserForm_Initialize()
'### xls öffnen, Daten von sheet in Listbox einlesen, xls close. START ############
Dim wbk As Workbook
Dim wks As Worksheet
Set wbk = Workbooks.Open("G:\data\Liste.xls")
Set wks = wbk.Sheets(3)
wks.Select
With ListBox1
.List = Range("A1").CurrentRegion.Value
If .ListCount > 0 Then .ListIndex = 0
End With
wbk.Close SAVECHANGES:=False
Set wbk = Nothing
Set wks = Nothing
'### VeListe öffnen, Daten in Listbox einlesen, VeListe close. ENDE ############
End Sub</pre>
Anzeige
AW: Nicht nachvollziehbar. ev. leere Spalte (owT)
19.02.2018 15:54:52
ray
noch offen
und? was soll ich damit? Beispielmappe! (owT)
19.02.2018 15:57:47
EtoPHG

noch offen. oT
19.02.2018 16:03:58
ray
oT
AW: noch offen. oT
19.02.2018 16:25:51
Luschi
Hallo ray,
da man mit 'CurrentRegion' die Katze im Sack kauft, kann man nie wissen, um wieviele Spalten es sich denn nun handelt.
Deshalb sieht meine Routine so aus: 

Private Sub UserForm_Initialize()
Dim rg As Range
Set rg = Tabelle1.Range("A1").CurrentRegion
With Me.ListBox1
.ColumnCount = rg.Columns.Count
.List = rg.Value
If .ListCount > 0 Then .ListIndex = 0
End With
Set rg = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
keinen Unterschied leider...
20.02.2018 09:01:51
ray
Hi Luschi,
ich bekomme auch mit Deinem Code nur die ersten 30 Spalten in der Listbox angezeigt....
noch ne Idee?
VG Ray
Anzeige
Hier die Lösung
20.02.2018 11:19:08
Ray
Für das Archiv hier die Lösung:
'### Liste öffnen, Daten in Listbox einlesen, Liste close. START ############
Dim wbk As Workbook
Dim wks As Worksheet
Set wbk = Workbooks.Open("G:\dat\Liste.xls")
Set wks = wbk.Sheets(3)
wks.Select
Dim ZeileMAx As Long
Dim Vardat As Variant
ZeileMAx = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row
Vardat = wks.Range("A1:AZ" & ZeileMAx).Value
With Me.ListBox1
.ColumnCount = wks.Range("A1:AZ1").Columns.Count
.RowSource = wks.Range("A1:AZ" & ZeileMAx).Address
End With
wbk.Close SAVECHANGES:=False
Set wbk = Nothing
Set wks = Nothing
'### VeListe öffnen, Daten in Listbox einlesen, Liste close. ENDE ############
VG Ray
Anzeige
AW: keinen Unterschied leider...
20.02.2018 11:22:03
Luschi
Hallo ray,
die ListBox besitzt auch noch die Eigenschaft/Property 'ColumnWith'.
Hier kann man die Spaltenbreite je Spalte festlegen,. Wenn da was drinn steht und es sind nur
30 Angaben (durch ';' getrennt), dann sieht der User auch nur 30 Spalten!
Gruß von Luschi
aus klein-Paris
funzt doch nicht ganz...
20.02.2018 11:34:53
ray
...also ich hab jetzt mal die Angaben zu Spaltenbreite rausgenommen und den alten Code versucht
With ListBox1
.List = Range("A1").CurrentRegion.Value
If .ListCount > 0 Then .ListIndex = 0
End With
Es steht jetzt bei Colum widths gar nix und ich bekomme trotzdem nur 30 Spalten.
bei dem neuen Code bekomme ich alle Spalten aber ich bekomme die Mld für diesen vorgang ist nicht genügend speicher verfügbar und das Prog kackt ab.
Letztendlich brauche ich 700 Zeilen und 46 Spalten...
Ne Idee?
VG Ray
Anzeige
Nur aber die Lösung:
20.02.2018 11:56:18
Ray
So gehts es nu ohne Probleme:
With ListBox1
'old: .List = Range("A1").CurrentRegion.Value
.List = Range("A1:AZ700").Value 'Achtg: bei den Eigenschaften muss bei Colum widths Pts für die Spalten eingetragne sein. Zu wenig Pts als im Range angegeben -> Spalten werden nicht angezeigt
If .ListCount > 0 Then .ListIndex = 0
End With
AW: Nur aber die Lösung:
20.02.2018 15:28:03
Luschi
Hallo Ray,
so ist das eben, wenn man ohne Demodatei von Anfragenden sich auf Fehlersuche begeben muß.
Da fühlt man sich machmal wie so'n Wünschelrutengänger, der eine Wasser-/Öl-/Goldader sucht.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Nur aber die Lösung:
20.02.2018 16:22:36
ray
Kein Ding.

303 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

ListBox 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