Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListView FullRowSelect funktioniert nur bedingt

Forumthread: ListView FullRowSelect funktioniert nur bedingt

ListView FullRowSelect funktioniert nur bedingt
24.05.2008 18:07:00
Thomas
Hallo,
bei der Umstellung einiger ListBoxen ins ListView's habe ich folgende Entdeckung gemacht:
Auch wenn in den Eigenschaftenseiten aus 'Allgemein' der Punkt FullRowSelect gewählt wurde funktioniert dieser nicht, wenn die Ausrichtung einer Spalte auf rechtsbündig gesetzt ist.
Dann sieht das Ganze so aus:
Userbild
Beholfen habe ich mir bisher immer so:
If Cells(Zeile, Spalte) "" Then
.ListItems(lsvZeile).SubItems(5) = Cells(Zeile, Spalte)
Else
.ListItems(lsvZeile).SubItems(5) = " "
End If
Und das Spalte für Spalte. :-( Aber muß das denn so sein?
Setzte ich die Ausrichtung auf mittig, habe ich einen druchgehenden Balken, was bei Zahlen natürlich besch...eiden aussieht.
Gruß Thomas

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: ListView FullRowSelect funktioniert nur bedingt
24.05.2008 18:44:00
Herbert
Hi,
nicht nachvollziehbar.
Welche Version der MS Common Controls mit welchem SP?
mfg Herbert

AW: ListView FullRowSelect funktioniert nur bedingt
24.05.2008 19:20:00
Thomas
Hallo Herbert,
Microsoft ListView Control 6.0 [SP4]
Gruß Thomas

AW: ListView FullRowSelect funktioniert nur bedingt
24.05.2008 20:31:00
Herbert
Hi,
[SP6] ist die aktuelle und, in dieser Beziehung, fehlerfreie Version.
mfg Herbert

Anzeige
AW: ListView FullRowSelect funktioniert nur bedingt
24.05.2008 22:11:00
Thomas
Hallo Herbert,
mir ist eingefallen, daß mein Code nicht ganz vollständig war, er muß heißen:
.ListItems(lsvZeile).SubItems(5) = Format(Cells(Zeile, Spalte), "#,##0.00")
Kann es sein, daß es dann Probleme gibt, wenn versucht wird "nichts" nach #,##0.00 formatiert, rechtsbündig in die ListView einzutragen und dann mittels FullRowSelect dartzustellen?
Komplett wäre der Code so:
.ListItems.Add , , Left(Cells(Zeile, 1).Text, 6)
.ListItems(lsvZeile).SubItems(1) = Format(Cells(Zeile, 2), "d")
.ListItems(lsvZeile).SubItems(2) = Cells(Zeile, 3)
.ListItems(lsvZeile).SubItems(3) = Cells(Zeile, 4)
.ListItems(lsvZeile).SubItems(4) = Format(Cells(Zeile, 17), "#0.00")
.ListItems(lsvZeile).SubItems(5) = Format(Cells(Zeile, 36), "#,##0.00")
.ListItems(lsvZeile).SubItems(6) = Format(Cells(Zeile, 40), "dd.mm.yyyy")
.ListItems(lsvZeile).SubItems(7) = Format(Cells(Zeile, 41), "dd.mm.yyyy")
.ListItems(lsvZeile).SubItems(8) = Cells(Zeile, 42)
wobei es so aussieht, wie in dem pic meiner ursprünglichen Frage dargestellt.
Die leeren Spalten danach, werden wie Du siehst, blau unterlegt.
Gruß Thomas

Anzeige
AW: ListView FullRowSelect funktioniert nur bedingt
25.05.2008 18:47:00
Herbert
Hi,
lad mal Beispiel hoch.
mfg Herbert

AW: ListView FullRowSelect funktioniert nur bedingt
26.05.2008 00:24:01
Herbert
Hi,

Private Sub Tabelle_einlesen()
Dim Dummy
Dim lsvZeile As Integer
Dim Zeile As Integer
Dim Spalte As Integer
Dim Summe As Double
Dim ZeileE As Integer
ZeileE = Cells.Find("*", _
searchdirection:=xlPrevious).Row         ' End-Zeile der gesamten Tabelle
Summe = 0
Zeile = DatenZeile1
ListView1.ListItems.Clear
Label1.Caption = "0,00"                      'Monatssumme auf 0 setzen
Mo = Format(Cells(10, 3), "00")              'aktuellen Monat als Ziffer
While Mid(Cells(Zeile, 1).Text, 3, 2)  Mo  'erste Zeile aktueller Monats suchen
Zeile = Zeile + 1
If Zeile > ZeileE Then                   'd.h. noch keine Daten für diesen Monat
Exit Sub
End If
Wend
lsvZeile = 1
With ListView1
While (Mid(Cells(Zeile, 1).Text, 3, 2) = Mo)
Dummy = ""
If Cells(Zeile, 6).Text = "" Then
Dummy = " "
Else
Dummy = Cells(Zeile, 6).Text
End If
.ListItems.Add , , Left(Cells(Zeile, 1).Text, 6)                              '  _
JaMoNr
.ListItems(lsvZeile).SubItems(1) = Format(Cells(Zeile, 2), "d")          ' Tag
.ListItems(lsvZeile).SubItems(2) = Cells(Zeile, 3).Text                       '  _
KdNr/LiNr
.ListItems(lsvZeile).SubItems(3) = Cells(Zeile, 4).Text                       '  _
Name
.ListItems(lsvZeile).SubItems(4) = Cells(Zeile, 5).Text
.ListItems(lsvZeile).SubItems(5) = Dummy                ' Betrag
.ListItems(lsvZeile).SubItems(6) = Cells(Zeile, 7).Text ' fällig am
.ListItems(lsvZeile).SubItems(7) = Cells(Zeile, 8).Text ' bezahlt am
.ListItems(lsvZeile).SubItems(8) = Cells(Zeile, 9).Text                       ' Art  _
- Bank
Summe = Summe + Cells(Zeile, 6)                                               '  _
Beträge addieren
lsvZeile = lsvZeile + 1
Zeile = Zeile + 1
Wend
End With
Label1 = Format(Summe, "#,##0.00")             ' Summe unter ListView eintragen
Call lvw_SetColor(ListView1, &HC0&, 8, 0)      ' Spalte "bezahlt am" rot färben
Call lvw_SetColor(ListView1, &HC0&, 9, 0)      ' Spalte "Art-Bank" rot färben
ListView1.SetFocus
End Sub


mfg Herbert

Anzeige
AW: ListView FullRowSelect funktioniert nur bedingt
26.05.2008 13:34:45
Thomas
Hallo Herbert,
dankeschön für Deine Lösung.
Wie würdest Du die Sache lösen, wenn es nicht nur eine Spalte gäbe sondern mehrere?
In anderen Tabellen habe ich nämlich auch diesen Fall. Immer Zahl, immer etweder rechtsbündig, oder leer.
If Cells(Zeile, 3).Text = "" Then
Dummy1 = " "
Else
Dummy1 = Cells(Zeile, 3).Text
End If
If Cells(Zeile, 4).Text = "" Then
Dummy2
Else
Dummy2 = Cells(Zeile, 4).Text
End If
usw?
Und dann noch die Frage, ob denn niemand vor mir dieses Problem hatte?
Eine Auszeichnung auf die ich gar keinen Wert legen würde.
Viele Grüße
Thomas

Anzeige
AW: ListView FullRowSelect funktioniert nur bedingt
26.05.2008 16:41:25
Herbert
Hi,
beleg zunächst mal am Anfang deiner While-Wend-Konstruktion, ebenfalls in einer
Schleife, alle Zellen mit einem " " (blank) vor.
mfg Herbert

AW: ListView FullRowSelect funktioniert nur bedingt
26.05.2008 17:12:00
Thomas
Hallo Herbert,
stimmt, so kann man es machen.
Und generell was meinst Du, ist das nun eine Schwachstelle von ListView?
Viele Grüße
Thomas

Anzeige
AW: ListView FullRowSelect funktioniert nur bedingt
26.05.2008 19:26:24
Thomas
Hallo Herbert,
soeben habe ich Deinen Vorschlag ausprobiert:
"beleg zunächst mal am Anfang deiner While-Wend-Konstruktion, ebenfalls in einer
Schleife, alle Zellen mit einem " " (blank) vor."
Funktioniert aber nicht, denn wenn ich das voran setze und hinterher mit den "richtigen" Daten komme, wird natürlich in den Fällen wo keine Daten vorhanden sind das " " wieder durch nichts ersetzt.
Muß ich also doch für alle Spalten:
If Cells(Zeile, Spalte) "" Then
.ListItems(lsvZeile).SubItems(1) = Cells(Zeile, Spalte)
Else
.ListItems(lsvZeile).SubItems(1) = " "
End If
verwenden?
Gruß Thomas
Anzeige
;

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
Anzeige
@Tino, Frage zu Listview
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...
01.04.2009 09:32:22
Thread-ID: 1065829
12 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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige