Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

ListViewSimple
#1
Hallo zusammen,


Ich hab die Suche benutzt aber nicht wirklich gefunden was ich benötige und zwar ich habe einen ListViewSimple dieses soll nach einem Eintrag in der Tabelle sich refreshen.

Finde aber nicht wirklich was. Hab auch schon diverse Hilfen gelesen.
Code:
Dim lngZe As Long, lngSp As Long
 With Me.ListViewSimpel
   .View = lvwReport
   .FullRowSelect = True
     'ListView Spalten anlegen
   For lngSp = 1 To 9
     .ColumnHeaders.Add , , wksDaten.Cells(1, lngSp)
   Next lngSp
 
  'Zeilen
   For lngZe = 1 To 50
     .ListItems.Add , , wksDaten.Cells(lngZe, 1)               '1. Spalte = Item
     .ListItems(lngZe).SubItems(1) = wksDaten.Cells(lngZe, 2)  '2. Spalte = erste SubItem
     .ListItems(lngZe).SubItems(2) = wksDaten.Cells(lngZe, 3)  '3. Spalte = zweite SubItem
     .ListItems(lngZe).SubItems(3) = wksDaten.Cells(lngZe, 4)  '2. Spalte = erste SubItem
     .ListItems(lngZe).SubItems(4) = wksDaten.Cells(lngZe, 5)  '3. Spalte = zweite SubItem
     .ListItems(lngZe).SubItems(5) = wksDaten.Cells(lngZe, 6)  '2. Spalte = erste SubItem
     .ListItems(lngZe).SubItems(6) = wksDaten.Cells(lngZe, 7)  '3. Spalte = zweite SubItem
     .ListItems(lngZe).SubItems(7) = wksDaten.Cells(lngZe, 8)  '2. Spalte = erste SubItem
     .ListItems(lngZe).SubItems(8) = wksDaten.Cells(lngZe, 9)  '3. Spalte = zweite SubItem
   Next lngZe
   .ListItems.Remove (1) '?berschriftenzeile l?schen
 End With
 Me.Caption = Me.ListViewSimpel.ListItems.Count & " Zeilen"
das ist die ListView die sich aktualisieren soll wenn ein Eintrag in der Tabelle ist.


Danke in vorraus
Antwortento top
#2
Hallo,

vielleicht hilft dir dies weiter:


Code:
Private Sub Worksheet_Change()

end Sub

 
Grüße
Silcono
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste