Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1564to1568
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 Mehrfachauswahl in Tabelle eintragen

Listview Mehrfachauswahl in Tabelle eintragen
01.07.2017 12:09:32
olga
Hallo,
ich möchte gerne eine Mehrfachauswahl einer Listview auslesen.
Dabei soll zu jedem Namen das Datum, Text1 und Text2 geschrieben werden.
Bei meinem Code stürzt Excel ab!
Private Sub CommandButton1_Click()
Dim lol&, lox&
Dim wksData As Worksheet
Set wksData = Worksheets("Data")
With wksData
For lol = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(2, 1).Value = "" Then
lol = 2
Else
lol = lol + 1
End If
Next lol
For lox = 1 To .ListItems.Count
If UserForm1.ListView1(lol).Checked Then
.Cells(lol, 1) = UserForm1.DTPicker1.Value
.Cells(lol, 2) = UserForm1.ListView1.SelectedItem(lox)
.Cells(lol, 3) = UserForm1.TextBox1.Value
.Cells(lol, 4) = UserForm1.TextBox2.Value
End If
lol = lol + 1
Next lox
End With
Set wksData = Nothing
End Sub

https://www.herber.de/bbs/user/114617.xlsm
Danke!
LG, Olga

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listview Mehrfachauswahl in Tabelle eintragen
01.07.2017 12:32:18
AlterDresdner
Hallo Olga,
was bitte willst Du mit
      For lol = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(2, 1).Value = "" Then
lol = 2
Else
lol = lol + 1
End If
Next lol
erreichen? Die Änderung einer Schleifenvariablen innnerhalb der Schleife: Das tut man nicht!
Gruß der AlteDresdner
AW: Listview Mehrfachauswahl in Tabelle eintragen
01.07.2017 17:34:44
Tino
Hallo,
vielleicht geht es so?!
Private Sub CommandButton1_Click()
Dim lol&, lox&
With ThisWorkbook.Worksheets("Data")
'nächste freie Zeile (Referenz Spalte 1)
lol = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'Schleife über alle Items
For lox = 1 To ListView1.ListItems.Count
'Ist Item selektiert?
If ListView1.ListItems(lox).Checked Then
.Cells(lol, 1) = DTPicker1.Value
.Cells(lol, 2) = ListView1.ListItems(lox)
.Cells(lol, 3) = TextBox1.Value
.Cells(lol, 4) = TextBox2.Value
'nächste Zeile
lol = lol + 1
End If
Next lox
End With
End Sub
Gruß Tino
Anzeige
AW: Listview Mehrfachauswahl in Tabelle eintragen
02.07.2017 04:19:11
olga
Hallo
das mit der ersten Schleife war ein blödsinn!
So wie von Tino beschrieben funktioniert es.
Vielen Dank!
LG, Olga

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige