Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1556to1560
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 Auwahl in Tabelle kennzeichnen

ListView Auwahl in Tabelle kennzeichnen
20.05.2017 10:44:22
Sigrid
Hallo,
in meiner ListView soll die ListView1_ItemCheck im Tabellenblatt mit einem x versehen werden.
Wenn die Auswahl Auswahl aufgehoben wird soll auch das x entfernt werden.
Danke, Grüsse Sigrid
https://www.herber.de/bbs/user/113703.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: ListView Auwahl in Tabelle kennzeichnen
20.05.2017 11:25:09
Nepumuk
Hallo,
teste mal:
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Static slngX As Long
    With Worksheets("Adresse")
        If Item.Checked = True Then
            slngX = slngX + 1
            .Cells(Item.Index + 1, 8).Value = "x"
        Else
            slngX = slngX - 1
            .Cells(Item.Index + 1, 8).Value = Empty
        End If
    End With
    If slngX = 0 Then txtAuswahl.Value = vbNullString Else txtAuswahl.Value = CStr(slngX)
End Sub

Gruß
Nepumuk
Anzeige
AW: ListView Auwahl in Tabelle kennzeichnen
20.05.2017 11:31:07
Sigrid
Hallo Nepumuk,
es funktioniert super.
Danke sehr!
Muß mal nachlesen weshalb Du Static slngX As Long
anstelle von x as long genommen hast.
Gruß, Sigrid
AW: ListView Auwahl in Tabelle kennzeichnen
20.05.2017 11:40:48
Nepumuk
Hallo,
s|lng|X bedeutet:
s = Statische Variable - Die Variable behält ihren Wert auch wenn die Prozedur beendet wurde.
lng = Variable von Typ Long - Long Variable sind fast doppelt so schnell wie Variablen vom Typ Integer.
X = Der Name der Variable
Gruß
Nepumuk
PS:
Die Abfrage If Item.Checked = True Then kannst du auch durch If Item.Checked Then ersetzen.
Anzeige
AW: ListView Auwahl in Tabelle kennzeichnen
20.05.2017 12:43:20
Sigrid
Hallo Nepumuk,
vielen Dank für Deine zusätzlichen Erklärungen.
Gruß, Sigrid

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige