Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AddItem für ListView

AddItem für ListView
Lorenz
Hallo Excel-VBAler
Aufgrund von mangelnder Unterstützung von "Scrollen v. Mausrad" wollte ich von Listbox zu Listview wechseln.
mit "ListBox1.AddItem Cells(iCounter, iCol).Value" wird aus einer Tabelle gefundenes "Item" eingetragen.
Wie lautet der Befehl um ListView1 zu befüllen? Hat jemand vielleicht ´nen Tipp?
Danke & Gruß
Lorenz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: AddItem für ListView
06.11.2011 10:30:50
Nepumuk
Hallo,
nur eine Spalte oder mehrere?
Gruß
Nepumuk
AW: AddItem für ListView
06.11.2011 10:51:04
Lorenz
Hallo Nepumuk
nur eine Spalte
Gruß
Lorenz
AW: AddItem für ListView
06.11.2011 11:07:49
Nepumuk
Hallo,
ein einfaches Beispiel:
Private Sub UserForm_Activate()
    
    Dim lngIndex As Long
    
    With ListView1
        
        'Formatieren
        .LabelEdit = lvwManual
        .MultiSelect = False
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        .ColumnHeaders.Add Text:="Überschrift", _
            Width:=.Width - 5, Alignment:=lvwColumnLeft
        
        'Fuellen
        For lngIndex = 1 To 10
            .ListItems.Add Text:="Eintrag " & CStr(lngIndex)
        Next
        
    End With
End Sub

Gruß
Nepumuk
Anzeige
Danke für´n Tipp owT
06.11.2011 12:58:16
Lorenz

Links zu Excel-Dialogen

Label ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige