Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Tino, Frage zu Listview

Forumthread: @Tino, Frage zu Listview

@Tino, Frage zu Listview
01.04.2009 09:32:22
wonne69
Hallo Tino, hallo Forum.
Habe da folgendes Problem. Lade über UBound in eine ListView Daten aus Tabellenblatt, klappt auch Prima,
nur nicht bei allen Tabellen :-(
Der Code ist bei allen der selbe, ich passe nur den UBound Befehl an, woran kann das liegen?
Hier mal ein Beispiel aus meiner Programmierung:
'##Werte aus Hilfstabelle holen und in den ListView eintragen##
MeArea = Sheets("Hilfstabelle").Range("A5:T" & Cells(Rows.Count, 20).End(xlUp).Row)
With FrmProjekt
.ListView1.ColumnHeaders.Add 1, , Range("A4")
.ListView1.ColumnHeaders.Add 2, , Range("B4")
.ListView1.ColumnHeaders.Add 3, , Range("C4")
.ListView1.ColumnHeaders.Add 4, , Range("D4")
.ListView1.ColumnHeaders.Add 5, , Range("E4")
.ListView1.ColumnHeaders.Add 6, , Range("F4")
.ListView1.ColumnHeaders.Add 7, , Range("G4")
.ListView1.ColumnHeaders.Add 8, , Range("H4")
.ListView1.ColumnHeaders.Add 9, , Range("I4")
.ListView1.ColumnHeaders.Add 10, , Range("J4")
.ListView1.ColumnHeaders.Add 11, , Range("K4")
.ListView1.ColumnHeaders.Add 12, , Range("L4")
.ListView1.ColumnHeaders.Add 13, , Range("M4")
.ListView1.ColumnHeaders.Add 14, , Range("N4")
.ListView1.ColumnHeaders.Add 15, , Range("O4")
.ListView1.ColumnHeaders.Add 16, , Range("P4")
.ListView1.ColumnHeaders.Add 17, , Range("Q4")
.ListView1.ColumnHeaders.Add 18, , Range("R4")
.ListView1.ColumnHeaders.Add 19, , Range("S4")
.ListView1.ColumnHeaders.Add 20, , Range("T4")
.ListView1.View = lvwReport
For i = 1 To UBound(MeArea, 1)
.ListView1.ListItems.Add i, , MeArea(i, 1)
.ListView1.ListItems(i).SubItems(1) = MeArea(i, 2)
.ListView1.ListItems(i).SubItems(2) = MeArea(i, 3)
.ListView1.ListItems(i).SubItems(3) = MeArea(i, 4)
.ListView1.ListItems(i).SubItems(4) = MeArea(i, 5)
.ListView1.ListItems(i).SubItems(5) = MeArea(i, 6)
.ListView1.ListItems(i).SubItems(6) = MeArea(i, 7)
.ListView1.ListItems(i).SubItems(7) = MeArea(i, 8)
.ListView1.ListItems(i).SubItems(8) = MeArea(i, 9)
.ListView1.ListItems(i).SubItems(9) = MeArea(i, 10)
.ListView1.ListItems(i).SubItems(10) = MeArea(i, 11)
.ListView1.ListItems(i).SubItems(11) = MeArea(i, 12)
.ListView1.ListItems(i).SubItems(12) = MeArea(i, 13)
.ListView1.ListItems(i).SubItems(13) = MeArea(i, 14)
.ListView1.ListItems(i).SubItems(14) = MeArea(i, 15)
.ListView1.ListItems(i).SubItems(15) = MeArea(i, 16)
.ListView1.ListItems(i).SubItems(16) = MeArea(i, 17)
.ListView1.ListItems(i).SubItems(17) = MeArea(i, 18)
.ListView1.ListItems(i).SubItems(18) = MeArea(i, 19)
.ListView1.ListItems(i).SubItems(19) = MeArea(i, 20)
Next i
End With
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @Tino, Frage zu Listview
01.04.2009 09:38:22
Tino
Hallo,
könntest Du ein Beispiel hochladen wo es nicht funktioniert, sonst kann ich Dir nicht helfen.
Gruß Tino
hat es sich erledigt?
01.04.2009 16:30:24
Tino
Hallo,
scheinbar hat es sich ja erledigt, werde erst heute Abend wieder am Rechner sein.
Wen nicht, es gibt bestimmt auch andere die helfen können.
Gruß Tino
Anzeige
AW: hat es sich erledigt?
02.04.2009 09:54:02
wonne69
Nein hat sich noch nicht erledigt, sry war gestern nicht mehr online....
Hast Du da vielleicht eine Idee? wieso klappt es nur bei 4 von 6 ListView?
2 geben mir nur Müll wieder, obwohl in der Hilfstabelle alle Werte richtig stehen, kürzt mir der ListView die Werte ein und unterschlägt mir Daten.
Im UBound stehen auch nicht alle Rows drin.
Muß ich den UBound vorher mal irgendwie leeren?
Anzeige
AW: hat es sich erledigt?
02.04.2009 10:04:45
wonne69
Sry. hier das Beispiel:
'####AKTUELLE Projekte ansehen####

Private Sub Listen1_Click()
Dim MeArea
Dim i As Long
Sheets("Hilfstabelle").Visible = True
FrmProjekt.FrProjekte.Caption = "Aktuelle Projekte"
''Aktuelle Projekte aussortieren und in einer Hilfstabelle bereit stellen
Sheets("Hilfstabelle").Select
Range("A1:Z1000").Select
Selection.ClearContents
Range("A5").Select
For u = 1 To 21
Sheets("Hilfstabelle").Cells(4, u) = Sheets("Projekte").Cells(4, u)
Next u
x = 4
For t = 5 To 1000
If Sheets("Projekte").Cells(t, 1) = Empty Then Exit For
If Sheets("Projekte").Cells(t, 18)  Empty Or Sheets("Projekte").Cells(t, 18) = Empty Then
If Sheets("Projekte").Cells(t, 21).Value = Empty Then
x = x + 1
For y = 1 To 21
Sheets("Hilfstabelle").Cells(x, y) = Sheets("Projekte").Cells(t, y)
Next y
End If
End If
Next t
''Werte aus Hilfstabelle holen und in den ListView eintragen
MeArea = Sheets("Hilfstabelle").Range("A5:T" & Cells(Rows.Count, 20).End(xlUp).Row)
With FrmProjekt
.ListView1.ColumnHeaders.Add 1, , Range("A4")
.ListView1.ColumnHeaders.Add 2, , Range("B4")
.ListView1.ColumnHeaders.Add 3, , Range("C4")
.ListView1.ColumnHeaders.Add 4, , Range("D4")
.ListView1.ColumnHeaders.Add 5, , Range("E4")
.ListView1.ColumnHeaders.Add 6, , Range("F4")
.ListView1.ColumnHeaders.Add 7, , Range("G4")
.ListView1.ColumnHeaders.Add 8, , Range("H4")
.ListView1.ColumnHeaders.Add 9, , Range("I4")
.ListView1.ColumnHeaders.Add 10, , Range("J4")
.ListView1.ColumnHeaders.Add 11, , Range("K4")
.ListView1.ColumnHeaders.Add 12, , Range("L4")
.ListView1.ColumnHeaders.Add 13, , Range("M4")
.ListView1.ColumnHeaders.Add 14, , Range("N4")
.ListView1.ColumnHeaders.Add 15, , Range("O4")
.ListView1.ColumnHeaders.Add 16, , Range("P4")
.ListView1.ColumnHeaders.Add 17, , Range("Q4")
.ListView1.ColumnHeaders.Add 18, , Range("R4")
.ListView1.ColumnHeaders.Add 19, , Range("S4")
.ListView1.ColumnHeaders.Add 20, , Range("T4")
.ListView1.View = lvwReport
For i = 1 To UBound(MeArea, 1)
.ListView1.ListItems.Add i, , MeArea(i, 1)
.ListView1.ListItems(i).SubItems(1) = MeArea(i, 2)
.ListView1.ListItems(i).SubItems(2) = MeArea(i, 3)
.ListView1.ListItems(i).SubItems(3) = MeArea(i, 4)
.ListView1.ListItems(i).SubItems(4) = MeArea(i, 5)
.ListView1.ListItems(i).SubItems(5) = MeArea(i, 6)
.ListView1.ListItems(i).SubItems(6) = MeArea(i, 7)
.ListView1.ListItems(i).SubItems(7) = MeArea(i, 8)
.ListView1.ListItems(i).SubItems(8) = MeArea(i, 9)
.ListView1.ListItems(i).SubItems(9) = MeArea(i, 10)
.ListView1.ListItems(i).SubItems(10) = MeArea(i, 11)
.ListView1.ListItems(i).SubItems(11) = MeArea(i, 12)
.ListView1.ListItems(i).SubItems(12) = MeArea(i, 13)
.ListView1.ListItems(i).SubItems(13) = MeArea(i, 14)
.ListView1.ListItems(i).SubItems(14) = MeArea(i, 15)
.ListView1.ListItems(i).SubItems(15) = MeArea(i, 16)
.ListView1.ListItems(i).SubItems(16) = MeArea(i, 17)
.ListView1.ListItems(i).SubItems(17) = MeArea(i, 18)
.ListView1.ListItems(i).SubItems(18) = MeArea(i, 19)
.ListView1.ListItems(i).SubItems(19) = MeArea(i, 20)
Next i
End With
''optimale Spaltenbreite
LVColumnWidth FrmProjekt.ListView1, True 'True mit Überschrift, sonst False
''Formular anzeigen
FrmProjekt.Show
End Sub


Anzeige
AW: hat es sich erledigt?
02.04.2009 14:47:38
Tino
Hallo,
lade bitte eine Datei mit diesen Daten (persönliche Daten kannst Du ja verfälschen)
Sonst kann ich so nicht nachvollziehen was passiert.
Gruß Tino
AW: hat es sich erledigt?
06.04.2009 11:46:25
wonne69
Hallo Tino.
War am Wochenede nicht online.
Habe Dir die Datei mal hochgeladen, ich hoffe Du kannst mir da weiterhelfen, danke schon mal im Vorraus.
https://www.herber.de/bbs/user/61022.xls
Anzeige
AW: hat es sich erledigt?
07.04.2009 11:30:28
wonne69
Ja der code ist gut, danke, danke, danke.......
Aber mich wurmt noch das ?warum? beim alten code... Hast du da eine Idee?
Wieso klappt es nur bei 4 von 6 ListView?
2 geben mir nur Müll wieder, obwohl in der Hilfstabelle alle Werte richtig stehen, kürzt mir der ListView die Werte ein und unterschlägt mir Daten?
Anzeige
AW: hat es sich erledigt?
07.04.2009 11:48:11
Tino
Hallo,
mit Cells(Rows.Count, 20).End(xlUp).Row und Cells(Rows.Count, 21).End(xlUp).Row
war es ein Glücksspiel, je nach dem wie weit diese Spalten mit Daten gefüllt waren.
Zumindest habe ich dies so im Verdacht.
Gruß Tino
AW: hat es sich erledigt?
07.04.2009 12:57:14
wonne69
Naja, könnte sein.
Allerdings habe ich bei einem anderen UserForm den gleichen Code nur mit Cells(Rows.Count, 11).End(xlUp).Row und Cells(Rows.Count, 12).End(xlUp).Row, die funzt wunderbar...
Wie auch immer klappt ja jetzt alles..... :-)
Anzeige
AW: hat es sich erledigt?
06.04.2009 11:31:27
wonne69
Hallo Tino.
War am Wochenede nicht online.
Habe Dir die Datei mal hochgeladen, ich hoffe Du kannst mir da weiterhelfen, danke schon mal im Vorraus.
https://www.herber.de/bbs/user/61022.xls
;

Forumthreads zu verwandten Themen

ListView und Late Binding
Alfons

Hallo,
ich habe eine UserForm mit einem ListView.
Den Verweis: Microsoft Windows Common Controls 6.0 (SP6)
habe ich wg 'Late Binding' rausgenommen.
Jetzt kommt an einer Stelle noch die Fehlermeldung: 'Benutzerdefinierter Typ nicht definiert'
markiert ist die ganze Zeile mit...
01.02.2009 15:26:00
Thread-ID: 1045920
5 Beiträge
ListView Frage
walli

Guten Abend,
habe gestern eine Menge Unterstützung von Tino erhalten.
Dieses Makro funktioniert einwandfrei, ich möchte dies gern
noch mit ENTER funktion erstellen, bekomme es nicht hin.
Private Sub ListView1_DblClick() Sheets(CStr(Me.ListView1.SelectedItem)).Select End Sub
01.03.2009 18:22:17
Thread-ID: 1055282
9 Beiträge
ListView Feld springt immer in die Ecke des Frames
k

Hallo,
...habe in einer Userform ein Frame und darin ein Listview-Feld. In der deaktiven Phase ist es ziemlich mittig im Frame und wenn ich es starte - läuft zwar der Inhalt perfekt, aber das Listview-Element hängt sich in die obere linke Ecke des Frames !
Warum und wie kann ich es verh...
12.08.2009 18:38:14
Thread-ID: 1095398
6 Beiträge
Anzeige
Listview nichts markiert ... Code sagt ja
k

Hallo,
kurze Frage...wollte, das VBA erkennt, wenn kein Eintrag der Listview gewählt wurde - sondern nur die Textboxen ausgefüllt wurden - dass es dann diseen Datensatz "Neu" anlegt und nicht einen vorhandenen Datensatz ändert.
Daher dachte ich: Nutze die SendMessege-Methode der Listbox...
13.08.2009 12:09:11
Thread-ID: 1095544
5 Beiträge
Listview - Summe bei Mehrfachmarkierung
k

Hallo,
ich wollte in einer Listview mehrere Datensätze auswählen (Markieren) und dann die Summe der jeweiligen Umsätze anzeigen lassen. Aber irgendwas habe ich da noch nicht richtig verstanden...
In meinen Büchern habe ich da auch nicht viel gefunden - Listview ist irgendwie nicht groß...
13.08.2009 11:49:08
Thread-ID: 1095551
3 Beiträge
Anzeige
Listview Sortieren, mal geh'ts mal nicht ?
k

Hallo
Habe 2 Userformen. Habe in der 1ersten ein Listview-Feld eingesetzt und alles klappt hervorragend.
Hier der Code:
'##########################################################
' Listview-Projekte - Click Anpassung der Anzeige '
'#################################...
17.08.2009 17:38:58
Thread-ID: 1096536
4 Beiträge
Anzeige
Listview - Anzeige aus 2 oder mehr Tabellen
k

Hallo,
...habe ein Listview-Element und möchte gern foglendes realisieren, wo ich seit stunden nicht richtig weiterkomme:
Die Listview soll 3 Spaltenanzeigen:
Spalte 1 = Angebote
Spalte 2 = Gesuche
Spalte 3 = Status
Nun,
die Angebote sind in Tabelle1 (Spalte N)
...
25.08.2009 09:41:04
Thread-ID: 1098163
2 Beiträge
ListView - Spaltenbreite-Ändern-Event
zahnonen

Hi, kennt jemand den Weg, ggf. über API das Ändern der Spaltenbreite durch den User in einem Listview abzufangen?
In VB6/Studio/Net ist es möglich - aber in VBA funktioniert der Verweis auf die nötige Klasse wohl nicht.
Gruß
04.09.2009 17:21:01
Thread-ID: 1100602
5 Beiträge
Listview - Gridlines Farbe ändern
KLE

Hallo,
...habe auf einer Userform eine Listview gepackt, zur Darstellung aller erfassten Belege.
Habe auch die "Gridlines" auf True gesetzt. Diese sind aber nur schwer zu erkennen...
Kann man die Farbe (z.B. Dunkelblau/Grau) selbst irdendwie zuweisen ?
Hintergrundfarbe auf Dunk...
07.05.2010 18:52:35
Thread-ID: 1156069
3 Beiträge
Nachfrage zur Lösung - Listview Format
kle

Hallo,
..ich danke noch einmal an dieser Stelle Sepp, der mir letzte Nacht sehr gut geholfen hat.
Jetzt hat sich das ganze noch weiterentwickelt und schon kommt die nächste Herausforderung,
welche aber sich auf diesen Thread bezieht.
https://www.herber.de/forum/messages/1157539...
19.05.2010 20:29:28
Thread-ID: 1157741
2 Beiträge
Listview im Tabellenblatt - verschiebt die Ansicht
KLE

Hi,
ich habe in einer Tabelle (Arbeitsblatt) ein Listview-Element eingefügt, in der alle Kontakte aufgeführt werden, aus einer Suche in einem Kundenstamm-Datenblatt. Klappt alles super - nur:
Das Listview-Element liegt beginnend auf der Zelle BA9. Also ziemlich weit Rechts vom Bildschir...
26.10.2010 00:23:29
Thread-ID: 1183874
2 Beiträge
Listview - FullRowSelect bei Spalte rechtsbündig
Christian

Hallo zusammen,
ja ich weiß, das Listview-Control gehört eher zu vb als zu Excel-VBA aber vielleicht kennt sich von euch Profis ja jemand damit aus und kann mir hier weiterhelfen.
Mein Problem:
Wenn ich im "Report-View" "FullRowSelect" einstelle wird die ausgewählte Zeile komplett m...
27.02.2011 17:06:13
Thread-ID: 1203088
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige