Office: (Office 2019) ListBox scrollbar

Helfe beim Thema ListBox scrollbar in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Morgen. Nepumuk hatte, laut meinen Google-Recherchen, mal einen Code erarbeitet, der ein scrollen mit Maus in ListBox-Elementen erlaubt. Ich hab... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von chapolote, 27. August 2020.

Seite 1 von 2

CHAPOLOTE

chapolote

ListBox scrollbar

Guten Morgen.

Nepumuk hatte, laut meinen Google-Recherchen, mal einen Code erarbeitet, der ein scrollen mit Maus in ListBox-Elementen erlaubt.
Ich hab das dann nicht weiter verfolgt, weil überall zu lesen war, daß er in aktuellen Excel-Versionen nicht mehr funktioniert. Ich wollte dafür dann den Umweg über eine ImageCombo gehen, was mir aber nicht gefällt, weil kein Doppelklick möglich ist.
Gibt es für die ListBox in aktuellen Excel-Versionen inzwischen eine Möglichkeit zu scrollen? Wenn ich im Netz suche, finde ich leider immer nur Verweise auf die ältere, nicht mehr funktionierende Version von Nepumuk.

Danke und Grüße, chapolote

:)

chapolote, 27. August 2020

#1
NEPUMUK

Nepumuk

Hallo chapolote,

im Modul des UserForms:

Code:

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call HookMouse(ListBox1)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call UnhookMouse
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In einem Standardmodul:

Code:

Option Explicit
Option Private Module

Private Declare Function GetWindowLongA Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowsHookExA Lib "user32.dll" ( _
ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long
Private Declare Function CallNextHookEx Lib "user32.dll" ( _
ByVal hHook As Long, _
ByVal nCode As Long, _
ByVal wParam As Long, _
ByRef lParam As Any) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" ( _
ByVal hHook As Long) As Long
Private Declare Function WindowFromPoint Lib "user32.dll" ( _
ByVal xPoint As Long, _
ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" ( _
ByRef lpPoint As POINTAPI) As Long
Private Declare Function GetKeyState Lib "user32.dll" ( _
ByVal nVirtKey As Long) As Integer
Private Declare Function PostMessageA Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Type MOUSEHOOKSTRUCT
pt As POINTAPI
hwnd As Long
wHitTestCode As Long
dwExtraInfo As Long
End Type

Private Const WH_MOUSE_LL As Long = 14&
Private Const WM_MOUSEWHEEL As Long = &H20A
Private Const HC_ACTION As Long = 0&
Private Const GWL_HINSTANCE As Long = -6&
Private Const VK_LEFT As Long = &H25
Private Const VK_RIGHT As Long = &H27
Private Const WM_KEYDOWN As Long = &H100

Private llngMouseHook As Long
Private llngControlHwnd As Long
Private llngPage As Long
Private lblnHook As Boolean
Private lobjScrollObject As Object

Public Sub HookMouse(ByRef probjScrollObject As Object, Optional ByVal opvlngPage As Long)
Dim lngHinstance As Long
Dim lngHwndUnderCursor As Long
Dim udtPoint As POINTAPI
llngPage = opvlngPage
Call GetCursorPos(udtPoint)
lngHwndUnderCursor = WindowFromPoint(udtPoint.X, udtPoint.Y)
If llngControlHwnd lngHwndUnderCursor Then
Call UnhookMouse
Set lobjScrollObject = probjScrollObject
llngControlHwnd = lngHwndUnderCursor
lngHinstance = GetWindowLongA(llngControlHwnd, GWL_HINSTANCE)
If Not lblnHook Then
llngMouseHook = SetWindowsHookExA(WH_MOUSE_LL, AddressOf MouseProc, lngHinstance, 0&)
lblnHook = llngMouseHook 0
End If
End If
End Sub

Public Sub UnhookMouse()
If lblnHook Then
Set lobjScrollObject = Nothing
Call UnhookWindowsHookEx(llngMouseHook)
llngMouseHook = 0
llngControlHwnd = 0
lblnHook = False
End If
End Sub

Private Function MouseProc(ByVal pvlngCode As Long, ByVal pvlngParam As Long, ByRef prudtParam As MOUSEHOOKSTRUCT) As Long
On Error GoTo err_exit
If pvlngCode = HC_ACTION Then
If WindowFromPoint(prudtParam.pt.X, prudtParam.pt.Y) = llngControlHwnd Then
If pvlngParam = WM_MOUSEWHEEL Then
If TypeOf lobjScrollObject Is MSForms.ListBox Or TypeOf lobjScrollObject Is MSForms.ComboBox Then
With lobjScrollObject
If GetKeyState(vbKeyControl) >= 0 Then
If prudtParam.hwnd > 0 Then
If .TopIndex > 0 Then
If .TopIndex > 3 Then
.TopIndex = .TopIndex - 3
Else
.TopIndex = 0
End If
End If
Else
.TopIndex = .TopIndex + 3
End If
Else
If TypeOf lobjScrollObject Is MSForms.ListBox Then
If prudtParam.hwnd > 0 Then
Call PostMessageA(llngControlHwnd, WM_KEYDOWN, VK_LEFT, 0&)
Else
Call PostMessageA(llngControlHwnd, WM_KEYDOWN, VK_RIGHT, 0&)
End If
End If
End If
End With
ElseIf TypeOf lobjScrollObject Is MSForms.MultiPage Then
With lobjScrollObject.Pages(llngPage)
If GetKeyState(vbKeyControl) >= 0 Then
If prudtParam.hwnd > 0 Then
If .ScrollTop > 0 Then
.ScrollTop = .ScrollTop - 30
Else
.ScrollTop = 0
End If
Else
.ScrollTop = .ScrollTop + 30
End If
Else
If prudtParam.hwnd > 0 Then
If .ScrollLeft > 0 Then
.ScrollLeft = .ScrollLeft - 30
Else
.ScrollLeft = 0
End If
Else
.ScrollLeft = .ScrollLeft + 30
End If
End If
End With
ElseIf TypeOf lobjScrollObject Is MSForms.UserForm Or TypeOf lobjScrollObject Is MSForms.Frame Then
With lobjScrollObject
If GetKeyState(vbKeyControl) >= 0 Then
If prudtParam.hwnd > 0 Then
If .ScrollTop > 0 Then
.ScrollTop = .ScrollTop - 30
Else
.ScrollTop = 0
End If
Else
.ScrollTop = .ScrollTop + 30
End If
Else
If prudtParam.hwnd > 0 Then
If .ScrollLeft > 0 Then
.ScrollLeft = .ScrollLeft - 30
Else
.ScrollLeft = 0
End If
Else
.ScrollLeft = .ScrollLeft + 30
End If
End If
End With
End If
Exit Function
End If
Else
Call UnhookMouse
End If
End If
MouseProc = CallNextHookEx(llngMouseHook, pvlngCode, pvlngParam, ByVal prudtParam)
Exit Function
err_exit:
Call UnhookMouse
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Achtung, der Code ist nicht für 64Bit-Office geeignet.

Damit kannst du ListBox, ComboBox, MultiPage, Frame und UserForm scrollen. Bei gedrückter Strg-Taste kannst du vertikal scrollen.

Nepumuk, 28. August 2020

#2
CHAPOLOTE

chapolote

Danke schön.

Da ich kein 32-Bit Excel habe:
wenn ich das so umsetze, funktioniert der Code dann unter 32Bit einfach nicht oder würde ein Benutzer dann eine Fehlermeldung bekommen und beispielsweise die UserForm oder die ganze Funktionalität nicht mehr nutzen können?

chapolote, 28. August 2020

#3
NEPUMUK

Nepumuk

ListBox scrollbar

Hallo chapolote,

teste mal mit deinem 64Bit-Excel:

Code:

Option Explicit
Option Private Module

#If Win64 Then
Private Declare PtrSafe Function GetWindowLongPtr Lib "user32.dll" Alias "GetWindowLongPtrA" ( _
ByVal hwnd As LongPtr, _
ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function WindowFromPoint Lib "user32.dll" ( _
ByVal point As LongLong) As LongPtr
#Else
Private Declare PtrSafe Function GetWindowLongPtr Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hwnd As LongPtr, _
ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function WindowFromPoint Lib "user32.dll" ( _
ByVal xPoint As Long, _
ByVal yPoint As Long) As LongPtr
#End If

Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32.dll" ( _
ByRef Destination As Any, _
ByRef Source As Any, _
ByVal Length As LongPtr)
Private Declare PtrSafe Function SetWindowsHookExA Lib "user32.dll" ( _
ByVal idHook As Long, _
ByVal lpfn As LongPtr, _
ByVal hmod As LongPtr, _
ByVal dwThreadId As Long) As LongPtr
Private Declare PtrSafe Function CallNextHookEx Lib "user32.dll" ( _
ByVal hHook As LongPtr, _
ByVal ncode As Long, _
ByVal wParam As LongPtr, _
ByRef lParam As Any) As LongPtr
Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32.dll" ( _
ByVal hHook As LongPtr) As Long
Private Declare PtrSafe Function GetCursorPos Lib "user32.dll" ( _
ByRef lpPoint As POINTAPI) As Long
Private Declare PtrSafe Function GetKeyState Lib "user32.dll" ( _
ByVal nVirtKey As Long) As Integer
Private Declare PtrSafe Function PostMessageA Lib "user32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal wMsg As Long, _
ByVal wParam As LongPtr, _
ByVal lParam As LongPtr) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Type MOUSEHOOKSTRUCT
pt As POINTAPI
hwnd As LongPtr
wHitTestCode As Long
dwExtraInfo As LongPtr
End Type

Private Const WH_MOUSE_LL As Long = 14&
Private Const WM_MOUSEWHEEL As Long = &H20A
Private Const HC_ACTION As Long = 0&
Private Const GWL_HINSTANCE As Long = -6&
Private Const VK_LEFT As Long = &H25
Private Const VK_RIGHT As Long = &H27
Private Const WM_KEYDOWN As Long = &H100

Private llngptrMouseHook As LongPtr
Private llngptrControlHwnd As LongPtr
Private llngPage As Long
Private lblnHook As Boolean
Private lobjScrollObject As Object

Public Sub HookMouse(ByRef probjScrollObject As Object, Optional ByVal opvlngPage As Long)
Dim lngptrHinstance As LongPtr
Dim lngptrHwndUnderCursor As LongPtr
Dim udtPoint As POINTAPI
llngPage = opvlngPage
Call GetCursorPos(udtPoint)
#If Win64 Then
lngptrHwndUnderCursor = WindowFromPoint(PointToLongLong(udtPoint))
#Else
lngptrHwndUnderCursor = WindowFromPoint(udtPoint.X, udtPoint.Y)
#End If
If llngptrControlHwnd lngptrHwndUnderCursor Then
Call UnhookMouse
Set lobjScrollObject = probjScrollObject
llngptrControlHwnd = lngptrHwndUnderCursor
lngptrHinstance = GetWindowLongPtr(llngptrControlHwnd, GWL_HINSTANCE)
If Not lblnHook Then
llngptrMouseHook = SetWindowsHookExA(WH_MOUSE_LL, AddressOf MouseProc, lngptrHinstance, 0&)
lblnHook = llngptrMouseHook 0
End If
End If
End Sub

Public Sub UnhookMouse()
If lblnHook Then
Set lobjScrollObject = Nothing
Call UnhookWindowsHookEx(llngptrMouseHook)
llngptrMouseHook = 0
llngptrControlHwnd = 0
lblnHook = False
End If
End Sub

Private Function MouseProc(ByVal pvlngCode As Long, ByVal pvlngParam As Long, ByRef prudtParam As MOUSEHOOKSTRUCT) As LongPtr
Dim lngptrTempHwnd As LongPtr
On Error GoTo err_exit
If pvlngCode = HC_ACTION Then
#If Win64 Then
lngptrTempHwnd = WindowFromPoint(PointToLongLong(prudtParam.pt))
#Else
lngptrTempHwnd = WindowFromPoint(prudtParam.pt.X, prudtParam.pt.Y)
#End If
If lngptrTempHwnd = llngptrControlHwnd Then
If pvlngParam = WM_MOUSEWHEEL Then
If TypeOf lobjScrollObject Is MSForms.ListBox Or TypeOf lobjScrollObject Is MSForms.ComboBox Then
With lobjScrollObject
If GetKeyState(vbKeyControl) >= 0 Then
If prudtParam.hwnd > 0 Then
If .TopIndex > 0 Then
If .TopIndex > 3 Then
.TopIndex = .TopIndex - 3
Else
.TopIndex = 0
End If
End If
Else
.TopIndex = .TopIndex + 3
End If
Else
If TypeOf lobjScrollObject Is MSForms.ListBox Then
If prudtParam.hwnd > 0 Then
Call PostMessageA(llngptrControlHwnd, WM_KEYDOWN, VK_LEFT, 0&)
Else
Call PostMessageA(llngptrControlHwnd, WM_KEYDOWN, VK_RIGHT, 0&)
End If
End If
End If
End With
ElseIf TypeOf lobjScrollObject Is MSForms.MultiPage Then
With lobjScrollObject.Pages(llngPage)
If GetKeyState(vbKeyControl) >= 0 Then
If prudtParam.hwnd > 0 Then
If .ScrollTop > 0 Then
.ScrollTop = .ScrollTop - 30
Else
.ScrollTop = 0
End If
Else
.ScrollTop = .ScrollTop + 30
End If
Else
If prudtParam.hwnd > 0 Then
If .ScrollLeft > 0 Then
.ScrollLeft = .ScrollLeft - 30
Else
.ScrollLeft = 0
End If
Else
.ScrollLeft = .ScrollLeft + 30
End If
End If
End With
ElseIf TypeOf lobjScrollObject Is MSForms.UserForm Or TypeOf lobjScrollObject Is MSForms.Frame Then
With lobjScrollObject
If GetKeyState(vbKeyControl) >= 0 Then
If prudtParam.hwnd > 0 Then
If .ScrollTop > 0 Then
.ScrollTop = .ScrollTop - 30
Else
.ScrollTop = 0
End If
Else
.ScrollTop = .ScrollTop + 30
End If
Else
If prudtParam.hwnd > 0 Then
If .ScrollLeft > 0 Then
.ScrollLeft = .ScrollLeft - 30
Else
.ScrollLeft = 0
End If
Else
.ScrollLeft = .ScrollLeft + 30
End If
End If
End With
End If
Exit Function
End If
Else
Call UnhookMouse
End If
End If
MouseProc = CallNextHookEx(llngptrMouseHook, pvlngCode, pvlngParam, ByVal prudtParam)
Exit Function
err_exit:
Call UnhookMouse
End Function

#If Win64 Then
Private Function PointToLongLong(point As POINTAPI) As LongLong

Dim ll As LongLong
Dim cbLongLong As LongPtr

cbLongLong = LenB(ll)

If LenB(point) = cbLongLong Then
Call RtlMoveMemory(ll, point, cbLongLong)
End If

PointToLongLong = ll

End Function
#End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das sollte in 32Bit und 64Bit laufen.

Nepumuk, 28. August 2020

#4
CHAPOLOTE

chapolote

Ha, hab mich getäuscht, hab interessanterweise die 32Bit Version installiert.
Der Code funktioniert wunderbar.

Möchte noch eine Frage dranhängen: die Userform, in der ich die ListBoxen verwende, ist ein Suchformular, welches ich zu Zeiten der xslm Datei über STRG+F aufgerufen habe. Code Für den Aufruf ist simpel und lag in DieseArbeitsmappe
Code:

Private Sub Workbook_Activate()
Application.OnKey "^f", "ShowUF"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert natürlich über das AddIn nicht mehr.

Gibt es da vielleicht auch ne Lösung, am besten noch an eine Bedingung gebunden, d.h. zum Beispiel; wenn eine spezielle Datei geöffnet ist die 3 bestimmt benannte Tabellenblätter hat, dann öffne mit STRG+F meine UserForm?

Oder halt eben ein Ribbon, dem ich einen Shortcut zuweise, da muß ich aber dann erst recherchieren, wie das genau geht.

Ich verspreche auch, es ist die letzte Frage für heute *wink.gif*. Und morgen, und übermorgen...

Grüße, chapolote

chapolote, 29. August 2020

#5
NEPUMUK

Nepumuk

Hallo chapolote,

in das Klassenmodul "clsApplication":

Private Sub mobjApplication_WorkbookActivate(ByVal Wb As Workbook)
Dim objWorksheet As Worksheet
Dim lngTest As Long
For Each objWorksheet In Worksheets
Select Case objWorksheet.Name
Case "Tabelle1"
lngTest = lngTest + 1
Case "Tabelle2"
lngTest = lngTest + 2
Case "Tabelle3"
lngTest = lngTest + 4
End Select
Next
If lngTest = 7 Then
Application.OnKey "^f", "ShowUF"
Else
Application.OnKey "^f"
End If
End Sub

Die Tabellennamen musst du noch anpassen!!!

Nepumuk, 29. August 2020

#6
CHAPOLOTE

chapolote

Wie versprochen, keine Fragen mehr soweit :-)

Aber ein ganz dickes Dankeschön an Dich!!!!

Bin ganz begeistert von diesem Ansatz mit dem Klassenmodul. Da kann ich jetzt noch Sachen umsetzen, von denen ich vorher nicht zu träumen gewagt hätte. Bin mehr als zufrieden!

Ein wundervolles Wochenende Dir, Nepumuk!!!

chapolote, 29. August 2020

#7
NEPUMUK

Nepumuk

ListBox scrollbar

Hallo chapolote,

habe gerade gesehen dass da noch ein Fehler drin ist. So ist es richtig:

Code:

For Each objWorksheet In Wb.Worksheets
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nepumuk, 29. August 2020

#8
CHAPOLOTE

chapolote

Darf ich fragen, was genau der Fehler bewirkt?
Es funktioniert nämlich auch ohne das Wb.
Ist es richtig, daß es ohne das Wb. dann grundsätzlich alle geöffneten Arbeitsmappen ansprechen würde, nur daß in den anderen Dateien meine UserForm nicht angezeigt wird, weil die Bedingung bezüglich der Tabellenblätter nicht zutrifft?

Oder wäre es zwar funktionsfähiger Code, aber einfach nicht sauber?

Ok, dann halt nochmal eine Frage, aber ich will ja nicht einfach nur blind von Dir kopieren, sondern auch lernen und verstehen *wink.gif*

chapolote, 29. August 2020

#9
NEPUMUK

Nepumuk

Hallo chapolote,

ohne Wb ist nicht vorhersehbar welches Workbook geprüft wird, also ist es unsauber programmiert.

Nepumuk, 29. August 2020

#10
CHAPOLOTE

chapolote

Guten Morgen, Nepumuk.

Hab jetzt Gelegenheit gehabt, den Code fürs Scrollen in der Listbox (2. Version für 32Bit und 64 Bit) unter 64Bit zu testen und zumindest unter Excel 2019 64Bit funktioniert er nicht.
Hast Du da noch eine Idee?

Danke und Grüße, chapolote

chapolote, 31. August 2020

#11
NEPUMUK

Nepumuk

Hallo chapolote,

teste mal in folgender Mappe:

Nepumuk, 31. August 2020

#12
CHAPOLOTE

chapolote

ListBox scrollbar

Funktioniert ebenfalls unter 32Bit, aber nicht unter 64Bit....

Version, falls es weiterhilft: 16.0.13029.20342 64-Bit Office 365

Wäre natürlich schön gewesen, möchte Dir aber nicht noch mehr Arbeit machen. Wenn Du das lieber nicht weiter verfolgen möchtest, dann baue ich meine UserForm um auf eine ImageCombo.

Es sei denn, es interessiert Dich persönlich und Du machst daran weiter. Dann gedulde ich mich gerne.....

Grüße, chapolote

Edit: übrigens in keinem der Tabs, also nicht nur bei der ListBox.... Und auch nicht horizontal.

chapolote, 1. September 2020

#13
USER

User

Hallo

Bin gerade über diesen Beitrag gestolpert.

Habe Nepumuk letzte Datei mal aus Spaß herunter geladen und ausprobiert.
Bei mir läuft es ohne Fehler und ohne Probleme.
Ich benutze Win 10 64 bit und Excel 2019 64 bit oder auch auf einem anderen Rechner Win 10 64 bit und Microsoft 365 32 bit.

User, 1. September 2020

#14
NEPUMUK

Nepumuk

Hallo ludof,

Danke fürs testen, ich hatte schon an mir gezweifelt. Warum es bei chapolote nicht funktioniert kann ich mir nicht erklären, ich habe kein 64Bit Office.

Nepumuk, 1. September 2020

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

ListBox scrollbar

Die Seite wird geladen...

ListBox scrollbar - Similar Threads - ListBox scrollbar
Listbox wird nicht breiter, Schriftgrösse ändert sich
in Microsoft Excel Hilfe
Listbox wird nicht breiter, Schriftgrösse ändert sich: Hallo, ich habe ein Formular dessen Breite ich mit der Maus ändern kann. Im Formular habe ich einen Rahmen und darin eine Listbox deren Breite an die Formularbreite angepasst wird....
Listbox Sortierung
in Microsoft Excel Hilfe
Listbox Sortierung: Hallo an die Gruppe, ich benötige Hilfe bei der Sortierung eines ListenFeldes. Ich habe eine Listbox in einem UserForm diese wird bei der Initalisierung so gefüllt. Private Sub...
Suchfunktion für Listbox in Textbox
in Microsoft Excel Hilfe
Suchfunktion für Listbox in Textbox: Hallo an alle hier im Forum, ich bastel mal wieder ein wenig rum. Ich habe ein 2 spaltige Listbox. In der 1. Spalte stehen Zahlen von einstellig bis sechsstellig und in der 2. Spalte Namen. Im...
Listbox in Userform ohne vertikale Scrollbar
in Microsoft Excel Hilfe
Listbox in Userform ohne vertikale Scrollbar: Hallo zusammen, ich suche mir schon den ganzen Nachmittag die Finger wund und werde leider nicht fündig *frown.gif* Ich hätte folgende zwei Fragen. Auf einer Userform befinden sich 4 Listboxen,...
ScrollBars der Listbox anpassen
in Microsoft Excel Hilfe
ScrollBars der Listbox anpassen: Hallo zusammen, ich habe in einer Userform eine Listbox erstellt und mit 4 Zahlen gefüllt. Ich möchte nun eine Scrollbar haben mit der ich die Zahlen durch scrollen kann. Problem: Ich bekomme...
Scrollbar in Listbox ausblenden?
in Microsoft Excel Hilfe
Scrollbar in Listbox ausblenden?: Hallo! Fragen über Fragen........!! Meine Userform beeinhaltet eine Listbox. Darin wird eine Liste mit Zahlen angezeigt. (3stellig) Ich kann die Listbox leider nicht soweit verkleinern,...
Listbox in Userform ohne horizontale Scrollbar
in Microsoft FrontPage Hilfe
Listbox in Userform ohne horizontale Scrollbar: Hallo Experten! Prob.1: wie kann ich in einer Userform-Listbox die Horizontale Scrollbar ausblenden? Die Werte der Scrollbar sind nur 3-stellige Zahlen. Aber erst ab ca. 4cm verschwindet...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden