Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1524to1528
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
Inhaltsverzeichnis

ListView einlesen mit Bedingung

ListView einlesen mit Bedingung
11.11.2016 18:55:25
Ludmila
Hallo Spezialisten,
ich möchte eine UF-ListView mit Bedingung einlesen.
Leider funktioniert es nicht.
Danke!
Gruß
Ludmila
https://www.herber.de/bbs/user/109359.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListView einlesen mit Bedingung
11.11.2016 19:15:14
Bastian
Hey Ludmila
MAch ma so
With ListView1
.View = 3
.Gridlines = True
.FullRowSelect = True
.AllowColumnReorder = False
.ColumnHeaders.Add , , Tabelle1.Cells(1, 2) & " " & Tabelle1.Cells(1, 3), 80
.ColumnHeaders.Add , , Tabelle1.Cells(1, 4), 80
.ColumnHeaders.Add , , Tabelle1.Cells(1, 5), 80
.ColumnHeaders.Add , , Tabelle1.Cells(1, 1), 0
.ListItems.Clear
For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Tabelle1.Cells(y, 5) = "Nürnberg" Then
MsgBox Cells(y, 5)
x = x + 1
.ListItems.Add , , Tabelle1.Cells(y, 2) & " " & Tabelle1.Cells(y, 3)
.ListItems(x).SubItems(1) = Tabelle1.Cells(y, 4)
.ListItems(x).SubItems(2) = Tabelle1.Cells(y, 5)
.ListItems(x).SubItems(3) = Tabelle1.Cells(y, 1)
End If
Next y
.HideSelection = False
End With

Gruß Basti
da die Items immer bei 1 anfangen und y erst bei 3 deine If bedingung erfüllt.
Anzeige
AW: ListView einlesen mit Bedingung
11.11.2016 19:26:36
Ludmila
Hallo Basti,
vielen Dank!, so funktioniert es.
Gruß
Ludmila

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige