Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In Listbox Werte hinzufügen

In Listbox Werte hinzufügen
07.06.2005 15:40:09
Holger
Hallo zusammen,
wie kann ich in einer Listbox eine neue Zeile einfügen, welche 4 Spalten enthält und diese mit Werten füllen?
Und wie kann ich in einer Listbox eine Zeile zwischen den Zeilen einfügen?
MfG
Holger Wächter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Listbox Werte hinzufügen
07.06.2005 20:22:05
Nepumuk
Hallo Holger,
ein einfaches Beispiel.
Option Explicit

Private Sub CommandButton1_Click()
    With ListBox1
        .AddItem "", 1 'neue leere Zeile 2
        .List(1, 0) = "neue Zeile"
        .List(1, 1) = "neue Zeile"
        .List(1, 2) = "neue Zeile"
        .List(1, 3) = "neue Zeile"
    End With
End Sub

Private Sub UserForm_Activate()
    Dim strWidth As String
    With ListBox1
        .ColumnCount = 4
        strWidth = (.Width - 4) / 4
        .ColumnWidths = strWidth & ";" & strWidth & _
            ";" & strWidth & ";" & strWidth
        .AddItem 'leere Zeile 1
        .List(.ListCount - 1, 0) = "Spalte 1"
        .List(.ListCount - 1, 1) = "Spalte 2"
        .List(.ListCount - 1, 2) = "Spalte 3"
        .List(.ListCount - 1, 3) = "Spalte 4"
        .AddItem 'leere Zeile 2
        .List(.ListCount - 1, 0) = "Zeile 2"
        .List(.ListCount - 1, 1) = "Zeile 2"
        .List(.ListCount - 1, 2) = "Zeile 2"
        .List(.ListCount - 1, 3) = "Zeile 2"
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: In Listbox Werte hinzufügen
08.06.2005 08:41:43
Holger
Danke Nepumuk,
aber wie kann ich jetzt eine Zeile in eine schon gefüllte Listbox, zwischen zwei Zeilen einfügen. Z.B. die Listbox hat schon Werte in 4 Zeilen. Jetzt möchte ich in Zeile 3 ein Wert dazwischen einfügen. Wie mache ich das?
MfG
Holger Wächter
AW: In Listbox Werte hinzufügen
08.06.2005 09:44:21
MichaV
Hallo Holger,
hast Du Nepomuks Code mal nachvollzogen?
Hier in etwas anderer Form, aber gleiches Prinzip. Mehr kann man dazu nicht sagen. (außer, daß hier zwischen 1. und 2. Zeile eingefügt wird)


      
Dim strWidth As String
    With ListBox1
        .ColumnCount = 4
        strWidth = (.Width - 4) / 4
        .ColumnWidths = strWidth & ";" & strWidth & _
            ";" & strWidth & ";" & strWidth
        .AddItem 'leere Zeile 1
        .List(.ListCount - 1, 0) = "Spalte 1"
        .List(.ListCount - 1, 1) = "Spalte 2"
        .List(.ListCount - 1, 2) = "Spalte 3"
        .List(.ListCount - 1, 3) = "Spalte 4"
        .AddItem 'leere Zeile 2
        .List(.ListCount - 1, 0) = "Zeile 2"
        .List(.ListCount - 1, 1) = "Zeile 2"
        .List(.ListCount - 1, 2) = "Zeile 2"
        .List(.ListCount - 1, 3) = "Zeile 2"
        .AddItem , 1 'leere Zeile zwischen 1 und ehemals 2
        .List(1, 0) = "Zeile 2 neu"
        .List(1, 1) = "Zeile 2 neu"
        .List(1, 2) = "Zeile 2 neu"
        .List(1, 3) = "Zeile 2 neu"
    End With 
Gruss- Micha
Anzeige
AW: In Listbox Werte hinzufügen
08.06.2005 10:00:21
Holger
Ich dachte das wäre der Code für unten anfügen. Denn mit Additem fügt er doch eine Zeile immer unten an die Liste an und schreibt dann dort die neuen Werte hin.
Ich weiss nicht was ich falsch mache, aber er schreibt bei mir die Werte immer ans Ende der Listbox und nicht zwischen zwie Zeilen?
Was könnte ich falsch machen. Warum eigentlich zweimal Additem. Will doch nur eine Zeile einfügen. Es sind ja schon Werte in der Listbox vorhanden.
MfG
Holger Wächter
AW: In Listbox Werte hinzufügen
08.06.2005 10:07:03
Holger
Sorry,
ich bin doch manchmal ein wenig blöd. Was ich suchte war "additem ,ZeileinderListbox"
Ich hatte den oberen Code von Nepumuk als die Anfüge- und den unteren als die Einfügemethode interpretiert.
Vielen dank nochmal
MfG
Holger Wächter
Anzeige

10 Forumthreads zu ähnlichen Themen

Listbox Füllen Add item oder Fill Range
Silent_Warrior5

Hallo Zusammen,
(frohes neues auch noch)
Kann mir jemand die Vor und Nachteile sagen wenn ich eine Listbox (direkt in der Tabelle, Active X gesteuert) mit Einträgen füllen will.
Habe gesehen, man kann das über ListFillRange oder per VBA Code über AddItem machen.
Welches ist bes...
01.01.2014 12:30:04
Thread-ID: 1343850
10 Beiträge
Anzeige
Listbox additem offset funktioniert nicht
Sven

Hi zusammen,
ich versuche in eine Listbox Daten aus gefilterten Zeilen zu übernehmen.
Die erste Spalte funktioniert, jedoch bekomme ich den Befehl nicht hin weitere bestimmte Daten aus der Zeile in Spalte 2 und 3 zu übernehmen.
So habe ich es probiert, aber vba sagt da ist ein Fehle...
09.09.2015 10:31:56
Thread-ID: 1446648
4 Beiträge
Eintrag in Listbox .additem(index)
Albert

Hallo zusammen,
seit nachmittags such ich nach einer Möglichkeit, um einer Listbox einen Eintrag hinzuzufügen... aber, nicht am Ende sondern dazwischen.
Lt. Googlesuche soll das mit .additem mit einer Indexangabe funktionieren.
Ich stell mit da wohl zu doof an.
In meiner Listbox...
17.12.2017 19:52:11
Thread-ID: 1597702
5 Beiträge
Anzeige
ChooseFile_Dialogue.ListBox1.AddItem (MyFile)
Andy

Hallo,
der gesamte Code lautet wie folgt:

If MyFile "" Then
ChooseFile_Dialogue.ListBox1.AddItem (MyFile)
End If

In dem einen Makro funktioniert der, in einem anderen nicht. Hat jemand eine Idee? Ich kopiere einen Namen eines Files in die Variable MyFile. Di...
08.07.2003 14:35:31
Thread-ID: 278418
7 Beiträge
Listbox mehrspaltig über AddItem füllen
iven_s
Hallo Leute,
habe folgendes Problem. Ich möchte gefilterte Datensätze einer mehrspaltigen Tabelle in einer Listbox eines Userforms darstellen. Mit der list-Eigenschaft komme ich leider nicht weiter da, dies scheinbar nur mit ungefilterten Datensätzen funktioniert (hängen zeilenweise zusammen). Mi...
11.12.2003 14:02:29
Thread-ID: 350759
5 Beiträge
Listbox ordentlich mit additem füllen
Rainer

Hallo,
gibt es vielleicht eine Möglichkeit eine Listbox ordentlich per additem befehl zu füllen?
etwa so:
userform1.listbox1.additem Name {tab} Telefonnummer {tab} wasauchimmer
Gruß
Rainer
24.09.2004 08:44:19
Thread-ID: 490039
2 Beiträge
Listbox Additem Begrenzung umgehen
Gernot

Guten Tag!
Ich möchte aus einer Adressentabelle einen Namen suchen und die Ergebnisse in eine Listbox anzeigen lassen und dann beim anklicken sollen die Ergebnisse in die Textboxen des Userforms übertragen.
Die Adressendatenbank hat 29 Spalten, wobei nur in verschiedenen Userforms nur b...
04.11.2005 15:56:01
Thread-ID: 691724
6 Beiträge
ListBox füllen ohne additem
René

Hallo zusammen,
nachdem ich hier schon eine Weile mitgelesen und dabei viel gelernt habe (großen Dank dafür an alle Beteiligten!), stehe ich nun vor einem Problem, welches ich nicht selbst lösen kann.
Ich habe eine Liste mit einem Artikelstamm, zu welchem ich eine Artikelauswahl per Use...
09.09.2020 13:18:51
Thread-ID: 1781318
11 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

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
9
4
3
4
2
6
4
1
5
10