Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige