Thema Datum  Von Nutzer Rating
Antwort
Rot ListView_Typen unverträglich
17.11.2019 09:29:20 Sebastian
NotSolved
17.11.2019 10:35:37 Graf_Desaster
NotSolved
17.11.2019 10:51:17 Sebastian
NotSolved
17.11.2019 15:17:38 Gast13738
NotSolved
17.11.2019 15:21:28 Sebastian
NotSolved
17.11.2019 15:40:10 Gast92881
NotSolved
17.11.2019 16:12:22 Gast22798
NotSolved
17.11.2019 16:13:09 Sebastian
NotSolved
18.11.2019 12:41:08 Gast59364
Solved

Ansicht des Beitrags:
Von:
Sebastian
Datum:
17.11.2019 09:29:20
Views:
971
Rating: Antwort:
  Ja
Thema:
ListView_Typen unverträglich

Guten Morgen zusammen,

 

leider habe ich meinen gestrigen Abend dafür verschwendet, verzweifelt meine ListView mit Daten aus einer Tabelle zu füllen.

Dabei kommt es bei folgendem Code immer wieder zu dem Fehler "Typen unverträglich":

 

With Me.ListView1

.HideColumnHeaders = False

.View = lvwReport

End With

 

Dim wksh As Worksheet

Dim rngdata As Range

Dim ringcell As Range

Dim listitem As listitem

Dim rowcount As Long

Dim colcount As Long

Dim i As Long

Dim j As Long

 

Set wksh = Worksheets("Daten")

Set rngdata = wksh.Range("A1").CurrentRegion

 

For Each rngcell In rngdata.Rows(1).Cells

    Me.ListView1.ColumnHeaders.Add Text:=rngcell.Value, Width:=50

Next rngcell

 

rowcount = rngdata.Rows.Count

colcount = rngdata.Columns.Count

 

For i = 2 To rowcount

 

Set listitem = Me.ListView1.ListItems.Add(Text:=rngdata(i, 1).Value)

For j = 2 To colcount

   listitem.ListSubItems.Add Text:=rngdata(i, j).Value

Next j

Next i

 

ListView1.SortKey = 0

ListView1.Sorted = False

 

Bin für alle Hilfen dankbar!!!!

LG Sebastian


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ListView_Typen unverträglich
17.11.2019 09:29:20 Sebastian
NotSolved
17.11.2019 10:35:37 Graf_Desaster
NotSolved
17.11.2019 10:51:17 Sebastian
NotSolved
17.11.2019 15:17:38 Gast13738
NotSolved
17.11.2019 15:21:28 Sebastian
NotSolved
17.11.2019 15:40:10 Gast92881
NotSolved
17.11.2019 16:12:22 Gast22798
NotSolved
17.11.2019 16:13:09 Sebastian
NotSolved
18.11.2019 12:41:08 Gast59364
Solved