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

Blinken der Scrollbar unterbinden

Forumthread: Blinken der Scrollbar unterbinden

Blinken der Scrollbar unterbinden
24.02.2009 09:06:36
Nik
Hallo an Alle!
Ich habe eine Userform mit einer Scrollbar erstellt.
Wenn ich nun die Userform aufrufe und die die Scrollbar nach links bzw. nach rechts verschiebe,
dann blinkt sie solange, bis auf ein anderes Objekt geklickt wird.
Kann man das Blinken unterdrücken?
Danke im vorraus und grüße
NIK
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
habe es probiert, bei mir blinkt da nichts.
24.02.2009 09:10:26
Tino
Hallo,
hättest Du ein Beispiel?
Gruß Tino
mit einem Trick
24.02.2009 09:48:03
Tino
Hallo,
ach so ich dachte die Userform selbst hat diese Scrollbar.
Mit einem Trick kann man dies aber auch verhindern.
Habe eine Textbox eingebaut, Height und Width auf 0.
Locked und Enabled auf False und einem kleinen Code in der Scrollbar.
Schau es Dir einfach mal an.
https://www.herber.de/bbs/user/59717.xls
Gruß Tino
Anzeige
Das bringt doch nichts!
24.02.2009 09:54:03
Renee
Hi Nik & Tino,
Wenn die Scrollbar den Focus hat, dann blinkt sie nun mal.
Auch bei Dir Tino, Klick mal in die hellgraue Fläche der Leiste!
Es ist nun mal so, aber auf einer UF dient ja eine Scrollbar normalerweise zu Steuerung eines anderen Kontrollelements. Sie hat also Code im _Change Ereignis und dort kann ja mit .SetFocus wieder das zu steuerende Elemente ausgewählt werden um "das Blinken abzustellen".
GreetZ Renée
Anzeige
AW: Das bringt doch nichts!
24.02.2009 10:04:28
Nik
Hiho!
Ums mal zu veranschaulichen.
Mit der scrollbar auf der uf werden labels und -1- listbox gesteuert.
Das sieht ungefähr so aus:

Private Sub scrollbar1_change()
daystart = scrollbar1.value
scrollbar 'sub scrollbar wird gestartet
End Sub




Private Sub scrollbar()
dim i as integer
with sheets("kon")
for i = 1 to 8 'Acht labels werde befüllt
me("lblday" & i).caption = .cells1,daystart)
next i
end with
End Sub


Und wenn ich nun die scrollbar betätige, werden die labels dynamisch befüllt, aber das Blinken bleibt.
Es ist nicht tragisch aber es "stört" etwas (rein optisch).
Wenns nicht geht, dann ists auch kein Beinbruch ;-)
grüße
Nik

Anzeige
Der Code kann gar nicht laufen...
24.02.2009 10:23:44
Renee
Hi Nik,
Den Code den du präsentierst ist nicht lauffähig, da voller Fehler.
Zudem scheint mir bei dieser Anwendung eine Spinbutton sinnvoller als eine Scrollbar!
Der Code könnt dann (äquivalent zu deinem Ansatz) etwa so lauten:

Private Sub SpinButton1_Change()
Dim lX As Long
With ThisWorkbook.Sheets("kon")
For lX = 1 To 8
Me("lblday" & lX).Caption = .Cells(1, SpinButton1.Value)
Next lX
End With
End Sub


GreetZ Renée

Anzeige
AW: Der Code kann gar nicht laufen...
24.02.2009 10:33:37
Nik
Hi Rene!
Jo, sorry. Hab den code in der Eile abgetippt (nicht kopiert & eingefügt), da der Rechner mit der Excel-Anwendung
nicht mit den I-net verbunden ist. Deshalb sind Fehler drin.
Hab das mit den SpinButton probiert und geht, danke! Gute Alternative
Letzte Frage hierzu:
Kann ich eine Listbox anhand des Spinnbuttons befüllen?
Also die Zeilen sollen anhand der vorhandenen Zeilen (rows.count) befüllt werden und die
Spalten anhand des Spinnbuttons-Wert (1 = Spalte A bis Spalte c; 2 = Spalte B bis Spalte D usw...)?
Ist dies anhand der Rowsource-Eigenschaft möglich?
Danke für eure Mühen...Nik
Anzeige
AW: Das bringt doch nichts!
24.02.2009 10:33:46
Tino
Hallo,
ich kann auch nur damit rumexperimentieren und
schauen was funktioniert und was nicht.
Baut man eine zweite TextBox ein,
blinkt diese nur noch am Anfang und am Ende,
weil dann kein Ereignis mehr ausgelöst wird.
Gruß Tino
AW: Das bringt doch nichts!
24.02.2009 10:41:44
Nik
Diesbezüglich hab ich auch eine unelegante Lösung, bei der sich höchstwahrscheinlich ein vba Profi
die Haare raufen wird ;-)
Und zwar so: Man fügt eine kleine Textbox ein (ziemlich "unsichtbar") und setzt den focus drauf

Private Sub Scrollbar1_Change()
dim inr as integer
txtscrollbar.visible = True
inr = Scrollbar1.value
txtscrollbar.setfocus
txtscrollbar.visible = false
'Restlicher Code
End Sub


So blinkt "das Teil" nicht mehr ;-)

Anzeige
wenn es funktioniert...
24.02.2009 11:06:48
Tino
Hallo,
ist es doch egal ob sich jemand die Haare rauft.
Gruß Tino
AW: wenn es funktioniert...
24.02.2009 11:10:04
Nik
Naja, manchmal denk ich, dass mein "Stil" ziemlich stümperhaft ist ;-)
Hab folgende Frage in dem Beitrag schon mal gestellt, evtl. jemand ne Lösung
Kann ich eine Listbox anhand des Spinnbuttons befüllen?
Also die Zeilen sollen anhand der vorhandenen Zeilen (rows.count) befüllt werden und die
Spalten anhand des Spinnbuttons-Wert (1 = Spalte A bis Spalte c; 2 = Spalte B bis Spalte D usw...)?
Also variabel.
Ist dies anhand der Rowsource-Eigenschaft möglich?
Anzeige
AW: wenn es funktioniert...
24.02.2009 11:44:27
Nik
Jo Genauso nur mehrspaltig.
Habs hinbekommen ;-)
Vielen Dank für eure Mühen
NIK
AW: wenn es funktioniert...
24.02.2009 11:33:01
Daniel
Hi
ja klar, die RowSource-Eigenschaft ist ein String, den du beliebig zusammensetzen kannst, er muss halt nur einem Zellbereich entsprechen.
folgendes Makro müsste in das Change-Event der Scrollbar:

ListBox1.RowSource = Range(Cells(1, SpinButton1.Value), Cells(10, SpinButton1.Value)).Address


Zeilenbereiche ggf. noch anpassen.
sollte sich die Datenquelle auf einem nicht-Aktiven Tabellenblatt befinden, müsste man dieses noch mit angeben:


ListBox1.RowSource = "'Tabelle1'!" & Range(....


Gruß, Daniel

Anzeige
AW: wenn es funktioniert...
24.02.2009 11:41:43
Nik
Der code hat einwandfrei funktioniert.
Vielen Dank
NIK
;

Forumthreads zu verwandten Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Version DLL auslesen habe ich...aber Datum?
Peter

Hallo mal wieder,
habe n bissl probiert und recherchiert und dann denn folgenden Code gefunden/gebastelt mit dem ich die Versionsnummer einer DLL auslesen kann:
Sub Welche() Set fs = CreateObject("Scripting.FileSystemObject") ofile = "C:\Programme\Microsoft Office\Office12\refedit.dll...
08.08.2008 15:36:00
Thread-ID: 1000331
3 Beiträge
Anzeige
Nur Felder zählen die farblich markiert sind?
Frank

Hallo zusammen,
besteht die Möglichkeit das Excel nur Felder aus einer Spalte zählt, die mit dem Farbtopf z.B. gelb markiert sind?
Wäre für Hilfestellung dankbar!
Viele Grüße und eine angenehme Woche
Frank
11.08.2008 07:36:44
Thread-ID: 1000705
6 Beiträge
spaltenbezeichnungen ändern sich einfach
Julia

Hallo!
ich habe ein Problem: ich habe mehrere .xml dateien erstellt, die spalten oben waren immer durchbuchstabiert. jetzt stehen da aber bei den identischen datein plötzlich zahlen oben...
warum und wie kann ich das rückgängig machen?
dankeschön!
julia
12.08.2008 13:33:00
Thread-ID: 1001182
3 Beiträge
Benutzer dürfen Bereiche bearbeiten
Eggi

Hallo Zusammen
Habe eine grundsätzliche Frage:
Einige Tabellen sind mit (Benutzer dürfen Bereiche bearbeiten) versehen und der Rest ist gesperrt.
Diese Datei läuft unter Excel 2003 einwandfrei. Lasse ich die gleiche Datei unter Excel 2000 laufen erhalte ich Fehler, dass nicht auf di...
12.08.2008 20:43:52
Thread-ID: 1001307
8 Beiträge
Die Arbeitsmappe kann nicht geschlossen werden!
Andreas

Die Arbeitsmappe kann nicht geschlossen werden, da sie von einer anderen
Arbeitsmappe verwendet wird!"
Diese Meldung bekomme ich in Excel 2007, wenn ich in meinem VBA- Code
"workbooks.close" verwende.
Es sind aber keine weiteren Mappen geöffnet, kann mir da jemand weiterhelfen?<...
13.08.2008 20:56:05
Thread-ID: 1001659
2 Beiträge
Drucklayout gestalten VBA
Gerhard

Hallo...
Ich wollte per UF Terminkärtchen erstellen und diese auf ein Tabellenblatt zum ausdrucken einfügen.
Gedacht habe ich mir es in inetwa so:
Erster Eintrag:
Erste freie Zelle, in der ersten freien Spalte Daten wie in meinem Beispiel eintragen.
den zweiten eintrag wollt...
13.08.2008 21:30:06
Thread-ID: 1001664
3 Beiträge
Abschalten des freigegebenen Modus Sperren
Florian

Hallo liebe Excel-Freunde,
habe mal wieder eine Kleinigkeit bei der ich mir keine Lösung zusammenimprovisieren kann und zwar:
Ich habe eine freigegebene Arbeitsmappe, mehrere User tragen Daten über eine Interfacelösung ein - es gibt einen Auswertungs und Exportmodus. Aufgrund der hohen...
14.08.2008 10:59:00
Thread-ID: 1001763
4 Beiträge
Anzeige
Datenvergleich über 4 Spalten in zwei Blättern
Martin

Hallo,
ich komme mit eine Formel für folgenden Fall nicht weiter:
Erste Datei (oder erstes Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in Spalte C
Zweite Datei (oder zweites Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in...
14.08.2008 14:33:00
Thread-ID: 1001866
4 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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