Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Breite der Spalten in Listbox

Forumthread: Breite der Spalten in Listbox

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Breite der Spalten in Listbox
22.04.2022 11:53:26
GerdL
Moin,
ich habe die Breiten schön gestaffelt. :-)

' VERARBEITUNGSROUTINEN
'Diese Routine wird aufgerufen um die Liste (ListBox1) zu leeren, einzustellen und neu zu füllen
Private Sub LISTE_LADEN_UND_INITIALISIEREN()
Dim lZeile As Long
Dim lZeileMaximum As Long
Dim i As Integer
'Alle TextBoxen leer machen
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Me.Controls("TextBox" & i) = ""
Next i
ListBox1.Clear 'Liste leeren
' X Spalten einrichten Zahl der Spalten eingeben
ListBox1.ColumnCount = 10
'Spaltenbreiten der Liste anpassen (0=ausblenden, nichts=automatisch)
'";;; ......."
ListBox1.ColumnWidths = "19;20;30;40;50;60;70;80;90;100"     '
cu
Anzeige
noch keine Veränderung
22.04.2022 13:02:41
Andre
Hi vielen Dank :)
https://ibb.co/7jHmcVV
habe es als Modul 8 eingefügt - aber keine Veränderung :(
lg
AW: noch keine Veränderung
22.04.2022 13:13:06
GerdL
Hi !
Deine Prozedur Private Sub LISTE_LADEN_UND_INITIALISIEREN() steht doch im Modul von UserForm1
Die zu verändernde Codezeile habe ich mit"<-----Hier" markiert.
Gutes Gelingen! :-)
Gruß Gerd
Anzeige
AW: noch keine Veränderung
22.04.2022 13:19:07
Yal
Hallo Andre,
Paul hat einen Uhr. Dann sagst Du Emil: "Stelle deinen Uhr auf 9". Dann schaust Du Pauls Uhr und wundert Dich, dass nichts passiert ist.
So ungefähr läuft es in VBA auch: Modul8 hat keine Ahnung, dass es Userform1 oder Userform2 gibt, und noch weniger wer welche Gegenstand/Listbox hat.
Da musst Du schon Modul8 den richtigen Anweisung geben:

Userform1.ListBox1.ColumnWidths = "19;20;30;40;50;60;70;80;90;100"
VG
Yal
Anzeige
super - was konkret tun :)
22.04.2022 13:23:14
Andre
Jetzt habe ich viel gute Tipps - was soll ich jetzt in welches Modul kopieren - damit es funkt :)
lg
AW: super - was konkret tun :)
22.04.2022 13:28:29
GerdL
Kopiere den von mir gezeigten Code über deine Prozedur gleichen Namens in Modul Userform1(=Uhr von Paul).
In der "markierten Zeile" kannst du die Spaltenbreiten verändern.
Bin jetzt hier raus!
Gruß Gerd
Anzeige
AW: super - was konkret tun :)
22.04.2022 13:32:24
Andre
danke in welches Modul ? lg
Es ist doch einfach
22.04.2022 13:50:33
Yal
Im Prinzip kennt jeden Modul nur seine eigenen Gegenstände/Objekte, die nur über den übergeordnete Objekt ansprechbar ist.
Wenn Du in dem Codepane (=Modul) von Userform2 sagt "ListBox1.ColumnWidth = ...", dann wird es sagen -im idealfall: ich kenne keine ListBox1.
Also wo muss diese Anweisung stehen, sodass das übergeordnete Objekt sagen kann, ja ich habe einen "Listbox1" ?
VG
Yal
Anzeige
;

Forumthreads zu verwandten 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
Suchen, Sverweis Vergleichen über einen Bereich
KLE

Hallo zusammen,
..habe mal wieder eine Blockade im Hirn und suche hier Unterstützung, Anregungen und/oder Ideen...
Folgende Herausforderung (Musterdatei liegt hier bei):
Ich habe eine Adressen-Liste und muss es aus statistischen Gründen in Gruppen zusammenfassen. Soll heißen, alle "...
18.08.2008 08:39:00
Thread-ID: 1002501
5 Beiträge
Anzeige
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
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
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
Anzeige
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
Anzeige
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
Anzeige
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
Wert der letzten Zeile in Bereich SVerweis
Elmar

Hallo,
vielleicht kann mir jemand helfen, wie ich in VBA dieser Formel ==ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Haupttabelle!R1C1:R65000C7,2,FALSE)"== beibringe, die 65000 durch die letzte belegte Zeile in einer Tabelle zu ersetzen. Die Abfrage mache ich mit ***iRow = Cells(Rows.Count, 3...
28.10.2008 20:45:00
Thread-ID: 1020084
5 Beiträge
Liste mit Wiederholungen in Spalte D reduzieren
Bernd

hallo Freaks,
ich habe eine ewig lange Tabelle, in der neben vielen anderen Informationen in der Spalte D der Name der bearbeitenden Person steht. Und das evt. 100 x, weil diese Person halt für 100 verschiedene Vorgänge zuständig ist. Und danach kommt die zweite Person, wieder mit x Einträg...
29.10.2008 12:50:28
Thread-ID: 1020239
5 Beiträge
Wert in Zellbereich prüfen
Florian

Hallo,
ich habe folgende Anforderung im Excel:
Ich bearbeite ein Testprotokoll, das vereinfacht wie folgt aufgebaut ist:
In den Zeilen stehen div. Punkte, die generellzu überprüfen sind.
In den Spalten stehen die zu prüfenden Verfahren; dies können je Testprotkoll bis zu 100 ve...
11.11.2008 16:57:00
Thread-ID: 1023615
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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