Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListView Einträge in Tabelle übernehmen

ListView Einträge in Tabelle übernehmen
26.11.2016 14:14:55
Ludmila
Hallo,
leider finde ich nicht heraus wie ich in einer ListView, die als Checkbox gekennzeichneten Zeilen in eine Tabelle übertragen kann.
Mehrfach Markierungen sollen möglich sein.
Was ist falsch an "Format(Tabelle1.Cells(ii, 6), "#,##0.00 €")" Bibliothek nicht gefunden.
Danke!
Gruß,
Ludmila
https://www.herber.de/bbs/user/109734.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: ListView Einträge in Tabelle übernehmen
26.11.2016 15:27:43
Christian
Hallo,
zB so: 
Private Sub CommandButton3_Click()
Dim wks2 As Worksheet
Dim i As Long, j As Long, k As Long
Dim vntTmp()
Set wks2 = Sheets("Tabelle2")
With Me.ListView1
For i = 1 To .ListItems.Count
If .ListItems(i).Checked Then
ReDim Preserve vntTmp(5, k)
vntTmp(0, k) = .ListItems(i)
For j = 1 To 5
vntTmp(j, k) = .ListItems(i).SubItems(j)
Next
k = k + 1
End If
Next
End With
wks2.Cells(2, 1).Resize(k, 6) = Application.Transpose(vntTmp)
Set wks2 = Nothing
End Sub

Gruß
Christian
AW: ListView Einträge in Tabelle übernehmen
26.11.2016 15:42:55
Ludmila
Hallo Christian,
funktioniert einwandfrei.
Vielen Dank!
Gruß
Ludmila
Anzeige

Links zu Excel-Dialogen

CheckBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige