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
PrivateSub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem) Static slngX AsLong With Worksheets("Adresse") If Item.Checked = TrueThen slngX = slngX + 1 .Cells(Item.Index + 1, 8).Value = "x" Else slngX = slngX - 1 .Cells(Item.Index + 1, 8).Value = Empty EndIf EndWith If slngX = 0 Then txtAuswahl.Value = vbNullString Else txtAuswahl.Value = CStr(slngX) EndSub
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