Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1752to1756
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListView Spaltenbreite

ListView Spaltenbreite
16.04.2020 10:05:57
Sigi
Hallo,
ich möchte die Spaltenbreite meines ListView festlegen bzw. automatisch erstellen lassen.
Wenn ich die UF über den Button aufrufe wird die Spaltenbreite nicht berücksichtigt.
Starte ich die UF jedoch aus dem aus der Entwicklungsumgebung, dann werden die Spaltenbreiten
wie gewünscht ausgerichtet.
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/136777.xlsm

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListView Spaltenbreite
16.04.2020 10:23:07
Nepumuk
Hallo Sigi,
es gibt eine Möglichkeit die Spaltenbreite automatisch auf "Optimal" einzustellen:
Option Explicit

Private Declare Function SendMessageA Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByRef lParam As Any) As Long

Private Const LVM_SETCOLUMNWIDTH = &H101E

Public Sub Test()
    
    With ListView1
        
        'Spaltenbreite einstellen
        For lngIndex = 1 To .ColumnHeaders.Count
            
            sngWidth = .ColumnHeaders(lngIndex).Width
            
            Call SendMessageA(.hwnd, LVM_SETCOLUMNWIDTH, lngIndex - 1, -3)
            
            If .ColumnHeaders(lngIndex).Width < sngWidth Then _
                .ColumnHeaders(lngIndex).Width = sngWidth
            
        Next
        
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: ListView Spaltenbreite
16.04.2020 10:34:22
Sigi
Hallo Nepumuk,
leider funktioniert die Spaltenbreite nur wenn ich die UF aus der Entwicklungsumgebung starte.
Über den Button wird nur "Proj-Nummer" angezeigt mit einer Breite von 7988
Danke!
Gruß
Sigi
AW: ListView Spaltenbreite
16.04.2020 10:43:21
Nepumuk
Hallo Sigi,
kann ich nicht nachvollziehen. Kannst du eine Mustermappe hochladen?
Gruß
Nepumuk
AW: ListView Spaltenbreite
16.04.2020 11:34:54
Nepumuk
Hallo Sigi,
sorry, aber mit deiner Mappe komme ich nicht zurecht, da ist mir zu viel "verstellt". Meine ListViews werden eingefügt, alles andere macht das Makro.
Gruß
Nepumuk
Anzeige
AW: ListView Spaltenbreite
16.04.2020 12:20:19
Sigi
Hallo Nepumuk,
ich dachte mir schon das das nicht funktioniert.
Ich habe das mit der automatischen Spaltenbreite bei mehreren Listview's Beispielen probiert und es funktioniert nicht, wenn man diese aus dem Tabellenblatt aufruft.
Also mache ich es über die Tabellenspaltenbreite.
Danke für Deine Hilfe!
Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige