Datum

Titel

16.04.2024 19:22:16

Von exceltabelle in word per steuerelement temarker

16.04.2024 18:50:53

Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle

16.04.2024 17:18:01

Projektplan-Tabelle oder Gantt ohne Balken

16.04.2024 17:05:25

formatierten Text direkt in Zelle einfügen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1872to1876

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

TextBox1 wird nicht...

Forumthread: TextBox1 wird nicht...
8 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
Excel Dialoge
Top 100 Forumthreads

08.03.2022 13:34:55

wolfgang

Hallo zusammen,
das Problem:
Der Courser wird nicht in Textbox1 gesetzt.
Ich habe meine UF neu nachgebaut und Stück für Stück die Inhalte reinkopiert.
Nun habe ich festgestellt das folgendes Makro dafür Schuld ist:
<pre>Private Sub ListBox1_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal x As Single, ByVal y As Single)
' start tthe hook
HookListBoxScroll
' TextBox1 = " "
' TextBox1.SetFocus
'With TextBox1
' .SetFocus
' .SelStart = 0
' .SelLength = Len(.Text)
'End With
End Sub</pre>
ich brauch aber das Scrollen in der ListBox.
Vielleicht gibt es einen Trick ?
Wenn ich das ins Makro freigebe, kann ich nicht mehr scrollen und teilweise hängt fest.
mfg wolfgang

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TextBox1 wird nicht...

08.03.2022 13:48:05

Alwin
Super Uwe -)

08.03.2022 14:35:55

wolfgang
AW: Super Uwe -)

08.03.2022 21:18:53

Alwin
Fehlermeldung, war Datei von Nepumuk?

09.03.2022 13:27:49

Nepumuk?
AW: Fehlermeldung, war Datei von Nepumuk?

09.03.2022 13:52:14

Nepumuk?
Hallo Uwe, muss doch mal Fragen

09.03.2022 15:38:08

wolfgang
AW: Hallo Uwe, muss doch mal Fragen

09.03.2022 22:08:34

Alwin
Danke nochmals Uwe, so klappt es ... -)

09.03.2022 22:58:13

wolfgang

AW: TextBox1 wird nicht...

08.03.2022 13:48:05

Alwin

Hallo Wolfgang,
ich habe es bei mir mal getestet. Mit TextBox1.SetFocus ans Ende funktioniert das ohne Probleme.


Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
EnableMouseScroll(ListBox:=ListBox1) = True
TextBox1.SetFocus
End Sub

Gruß Uwe

Super Uwe -)

08.03.2022 14:35:55

wolfgang

Hallo Uwe,
habe so reingesetzt:
HookListBoxScroll
TextBox1.SetFocus
damit kam Fehlermeldung !
EnableMouseScroll(ListBox:=ListBox1) = True
mfg wolfgang

AW: Super Uwe -)

08.03.2022 21:18:53

Alwin

Hallo Wolfgang,
das war ja nur als Beispiel gedacht, wo hin mit .SetFocus. Die dazu gehörige Prozedur, um über die API das Scrollen der Listbox hinzu bekommen findet man im Netz.
https://www.herber.de/forum/archiv/1864to1868/1867881_Scrollrad_in_List_bzw_Combobox.html
Gruß Uwe

Fehlermeldung, war Datei von Nepumuk?

09.03.2022 13:27:49

Nepumuk?

Hallo Uwe,
danke für deine Beispiele.
Habe mal getestet, leider kam Fehler.
Anbei die Beispieldatei:
https://www.herber.de/bbs/user/151648.xlsm
mfg wolfgang

AW: Fehlermeldung, war Datei von Nepumuk?

09.03.2022 13:52:14

Nepumuk?

Hallo Wolfgang,
habs eingebaut. Das ist auch, soweit ich es feststellen konnte, abstrurzsicher.
https://www.herber.de/bbs/user/151650.xlsm
Gruß Uwe

Hallo Uwe, muss doch mal Fragen

09.03.2022 15:38:08

wolfgang

Hallo Uwe,
wieso klappt es bei mir mit der ListBox nicht.
Im Modul habe ich von ComboBox auf ListBox alles geändert.
Anscheinend mach ich in der UF einen Fehler.


Private Sub ListBox_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
EnableMouseScroll(ListBox:=ListBox) = True
' cboZähler.SetFocus
TextBox1.SetFocus
End Sub


Private Sub ListBox_Click()
Dim cbozeile As Long
cbozeile = ListBox.ListIndex + 3
ListBox.Value = Range("A" & ListBox).Value & "          --          " & Range("C" & cbozeile).Value
End Sub

'--- das ist das Orginal ---


Private Sub cbozähler_Click()
Dim cbozeile As Long
cbozeile = cboZähler.ListIndex + 3
cboZähler.Value = Range("A" & cbozeile).Value & "          --          " & Range("C" & cbozeile).Value
End Sub


Private Sub cboZähler_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
EnableMouseScroll(ComboBox:=cboZähler) = True
cboZähler.SetFocus
End Sub

mfg wolfgang

AW: Hallo Uwe, muss doch mal Fragen

09.03.2022 22:08:34

Alwin

Hallo Wolfgang,
das kann so nicht klappen. Ich gehe mal davon aus, dass du die Prozedur verwendest, welche ich dir ins Modul1 eintragen habe. Unter der Voraussetzung, dass deine ListBox als Listbox1 bezeichnet ist, musst du ins Modul der Userform folgendes eintragen:


Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
EnableMouseScroll(ComboBox:=ListBox1) = True
End Sub

Sollte deine Listbox einen anderen Namen haben, muss du in dieser Prozedur das entsprechend anpassen.
Gruß Uwe

Danke nochmals Uwe, so klappt es ... -)

09.03.2022 22:58:13

wolfgang

Guten Abend Uwe,
habe so reingesetzt und klappt es:


Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
EnableMouseScroll(ListBox:=ListBox1) = True
End Sub

Danke für alles. !
mfg wolfgang