Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1440to1444
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
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform

Userform
20.08.2015 10:42:34
Reinhardt
Hallo,
wenn ich meine Userform starte, oder wieder aufrufe, steht der blaue Auswahlbalken/Cursor immer an einer bestimmten Stelle, obwohl ich die Zelle zum ControlSource (P6) gelöscht habe.
Wie kann man die USF ohne den Balken starten, und dieser erst nach dem ersten Klick
erscheint?
Und eine Zusatzfrage:
Kann man in einer USF mit dem Mittelrad der Maus scrollen?
Private Sub UserForm_Initialize()
'Userform5 Archiv
Sheets("Formular").Select
Sheets("Formular").Range("P6").Value = ""
'Sheets("Archiv").Select
With ListBox1
.ColumnCount = 11
.ColumnWidths = "0;2cm;1cm;7cm;3cm;7cm;2cm;5cm;5cm;3cm;3cm"
.ColumnHeads = True 'False
ListBox1.RowSource = "Archiv!A4:M6000"
ListBox1.ControlSource = "Formular!P6"
End With
Sheets("Formular").Select
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform
22.08.2015 00:33:26
fcs
Hallo Reinhard,
zur 1. Frage:
Listbox ohne Auswahlwert starten.
Man setzt den Listindex der Listbox auf -1
Der Inhalt der verknüpften Zelle (ControlSource) wird dann gelöscht.
Wenn du das Userform per Hide-Methode ausblendest/beendest, dann musst du die Anweisung zum Setzen der Listbox auf Listindex =-1 in der Activate-Prozedur des Userforms einfügen.
Private Sub CommandButton1_Click()
Me.Hide
End Sub
Private Sub UserForm_Activate()
ListBox1.ListIndex = -1  'Listbox ohne Auswahl - Inhalt verknüpfte Zelle wird gelöscht.
End Sub
Private Sub UserForm_Initialize()
'Userform5 Archiv
Dim Zeile_L
Sheets("Formular").Select
'    Sheets("Formular").Range("P6").Value = ""
'Sheets("Archiv").Select
'Letzte benutzte Zeile im Archiv
With Sheets("Archiv").UsedRange
Zeile_L = .Row + .Rows.Count - 1
If Zeile_L
Frage 2:
Scrollen im Userform per Mausrad?
Da kann ich nichts zu sagen, ich dies am mauslosen Notebook nicht testen.
Meines Wissens ist dies dies aber nicht möglich.
Wenn man in einer Listbox schnell scrollen möchte, dann sollte die Quell-Liste nach der Spalte aufsteigend sortiert sein, nach der man schnell durch die Liste scrollen möchte. Die Nummer der Spalte weist man dann der Eigenschaft "TextColumn" zu. Dann kann man durch Eingabe des Anfangsbuchstabens schnell den Startpunkt zur Auswahl setzen.
Außerdem sollte man die RowSource einer Listbox auf den tatsächlchen Datenbereich begrenzen und nicht eine willkürlich hohe Zeilennumer verwenden.
Gruß
Franz
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige