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
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mouseposition in Excel ermitteln

Mouseposition in Excel ermitteln
18.03.2005 17:37:07
Holger
Hallo,
ich weis nicht ob das geht, aber das wäre super.
Es gibt ja die Möglichkeit, die Funktionen in VBA, 'beforedoubleklick' für Actionen zu benutzen. Nur gibt es leider nicht beforeclick für ein normales Excelblatt.
Ich möchte einfach nur wenn in eine Zeile angeklickt wird, immer die Spalten A - H dieser Zeile mit einer Farbe hinterlegt werden.
Quasi möchte ich damit die Zeile selektieren und markieren.
Schön wäre es natürlich wenn beim rüberfahren der Mouse über eine Zeile sofort die Spalten A - H dieser zeile eine Farbe bekommen und bei klick selektiert werden.
Gibt es dafür eine Lösung?
MfG
Holger Wächter

29
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
...ne Krücke !
18.03.2005 17:52:51
ransi


      
hallo holger
versuchs mal so:
Option Explicit
Dim zelle As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
zelle.Interior.ColorIndex = xlNone
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.ColorIndex = 3
Set zelle = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8))
End Sub
ransi 
Anzeige
AW: ...ne Krücke !
18.03.2005 17:59:32
Holger
Hallo Ransi,
das ist schon mal eine super Sache. So habe ich mir das auch vorgestellt.
Lasse die Frage trotzdem mal offen. Vielleicht weis ja noch einer das mit der Mouseposition.
MfG
Holger Wächter
AW: Mouseposition in Excel ermitteln
18.03.2005 17:58:58
Nepumuk
Hallo Holger,
gehen tut fast alles. Du musst nur:
1. Die position und größe der Mappe berechnen.
2. Die höhe der Zeilen berechnen.
3. Die position der Maus auslesen.
4. Die Zellen färben.
5. Ein Programm am laufen haben, welches das ganze in Echtzeit macht.
6. Einen zweiten PC kaufen damit du mit Excel arbeiten kannst, da der andere am Rechnen ist.
Aber gehn tut es. :-))
Gruß
Nepumuk
Anzeige
AW: Mouseposition in Excel ermitteln
18.03.2005 18:04:42
Holger
Ja das habe ich mir schon gedacht, aber die Lösung von Ransi ist schon super.
Die reicht mir schon.
Trotzdem danke.
MfG
Holger Wächter
Doch so schlimm ?
18.03.2005 18:11:15
ransi
hallo nepumuk
Hätte nicht gedacht das da für eine "vernünftige Lösung" doch soviel Aufwand getrieben werden muss.
Dachte eher :
Gleich kommt der nepumuk.
Der zaubert so 2 bis 7 API's aus dem Ärmel und alles wird gut...
;-))
gruß Ransi
ergänzung:
18.03.2005 18:03:29
ransi


      
hallo holger
was vergessen:
Option Explicit
Dim zelle As Range
Private Sub Worksheet_Activate()
ActiveCell.Activate 'widersinnig, aber hilft
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
zelle.Interior.ColorIndex = xlNone
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.ColorIndex = 3
Set zelle = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8))
End Sub
ransi 
Anzeige
AW: ergänzung:
18.03.2005 18:10:21
Holger
Danke Ransi,
aber auch ohne die Ergänzung hatte es geklappt.
Danke nochmal
aber nicht wenn...
18.03.2005 18:14:04
ransi
hallo holger
...wenn du zwischendurch mal das tabellenblatt wechselt und wieder zurückkommst.
dann bleibt die zeile rot.
probier mal aus.
ransi
AW: aber nicht wenn...
18.03.2005 18:18:05
Holger
Ja der Nepumuk kann schon richtig was. Der hat mir schon des öfteren geholfen, auch mit API´s, aber habe leider zur Zeit nicht die Mittel für einen zweiten PC der die Sache dann in Echtzeit macht.:-)
Aber habe auch mal geschaut, andere Programme machen auch erst eine Markierung wenn die Zeile angeklickt wird.
Stimmt, beim Blattwechsel gäbe es ein Problem. Die Lösung ist voll zu meiner Zufriedenheit.
Danke
Holger
Anzeige
Eine Frage zu ransis Code
18.03.2005 23:33:25
MichaV
Hi,
interessante Sache, hab ich gleich mal ausprobiert.
Dabei fällt mir auf: Wenn ich in Spalte H was eintippele und den Cursor nach rechts bewege, dort wieder was eintippele, wieder nach rechts, was eingebe usw... und dann den Cursor nach unten bewege, wird die zuletzt benuzte Zelle auch rot, obwohl doch laut Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.ColorIndex = 3 nur Zellen von Spalte A bis H rot werden sollten.
Wie kommt das?
Gruß- Micha
AW: Eine Frage zu ransis Code
19.03.2005 09:40:38
MichaV
Hi,
https://www.herber.de/forum/messages/587504.html
interessante Sache, hab ich gleich mal ausprobiert.
Dabei fällt mir auf: Wenn ich in Spalte H was eintippele und den Cursor nach rechts bewege, dort wieder was eintippele, wieder nach rechts, was eingebe usw... und dann den Cursor nach unten bewege, wird die zuletzt benuzte Zelle auch rot, obwohl doch laut Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.ColorIndex = 3 nur Zellen von Spalte A bis H rot werden sollten.
Wie kommt das?
Gruß- Micha
Anzeige
Mysteriös....
19.03.2005 10:45:43
ransi
hallo micha
..keine Erklärung.
Habs nachvollzogen.
Interressiert mich auch.
ransi
AW: Mysteriös....
19.03.2005 10:52:48
Nepumuk
Hallo ransi,
setz mal einen Haltepunkt, die Färbung passiert vor dem Einstieg in das Makro. Ein echter Bug?
No, it's not a bug, it's a feature! :-)
Gruß
Nepumuk
glaube ich habs.
19.03.2005 13:52:54
ransi
hallo nepumuk
"No, it's not a bug, it's a feature! :-)"
ich versuchs mal auf deutsch...
gegeben ist folgendes:
zelle a1 fett formatiert, gelber hintergrund
zelle b1 fett formatiert, gelber hintergrund
zelle c1 fett formatiert, gelber hintergrund
celle d1 keine formatierung.
nun schreibe ich in a1 etwas
dann in b1
dann in c1
schreibe ich nun in d1:
wird d1 fett formatiert und bekommt gelben hintergrund.
ist DAS der Effekt über den Micha gestolpert ist ?
ransi
Anzeige
AW: glaube ich habs.
19.03.2005 14:00:18
Nepumuk
Hallo ransi,
richtig erkannt, Excel führt Formate automatisch nach rechts und nach unten weiter, solange die Folge nicht durch eine leere Zelle unterbrochen wird.
Gruß
Nepumuk
nur interessehalber...
19.03.2005 14:07:11
ransi
hallo nepumuk
danke dir.
wo ist der schalter versteckt um dieses verhalten abzustellen ?
ransi
AW: nur interessehalber...
19.03.2005 14:11:54
Nepumuk
Hallo ransi,
Extras - Optionen - Listenformat und Formeln erweitern.
Gruß
Nepumuk
danke & geschlossen o.T.
19.03.2005 14:15:26
ransi
AW: glaube ich habs.
19.03.2005 14:08:52
MichaV
Hi,
danke für den Hinweis, kannte ich noch nicht. Aber warum schreibt er das Format erst in die Dritte Spalte ein? Wenn ich in H was schreibe, dann nach I gehe, schreibe, nach J gehe, schreibe, nach K gehe, schreibe, dann ist erst K rot hinterlegt. Wenn ich das Ganze aber in F beginne, dann ist schon I rot hinterlegt. Bei Beginn in G ist J zuerst rot.
So ist mir die Format- Übertragung nicht ganz schlüssig. Oder hab ich (erstaunlich wärs ja nicht) einen Denkfehler?
Na, ich geh erstmal ins Stadion. Ha Ho He!
Gruß! Micha
Anzeige
AW: glaube ich habs.
19.03.2005 14:15:03
Nepumuk
Hallo Micha,
schau mal was die Hilfe sagt:
Userbild
Gruß
Nepumuk
AW: glaube ich habs.
19.03.2005 18:58:55
MichaV
Nabend,
Danke für Deinen Hinweis! Toll, was XL alles kann, nicht wahr? Nur warum lässt er dann zwei von den drei Zellen im alten Format (in meinem 1.Beispiel oben I und J)? Egal. Kann man ja auch durch zusätzlichen Code vermeiden, den vermeintlichen Bug.
Gruß an Euch! Micha
Excel EXTREME ...
18.03.2005 18:27:31
Thomas
Hallo Holger,
ich bastle gerade an einem solchen Addin. Wenn's Dich interessiert kannst Du ja mal die Demo hierzu ausprobieren xlEventServerDemo. Bei den Mausklicks, könnte evtl. zu Problemen kommen, wenn die Tasten schon von einem anderen Programm belegt sind.
Der Installer enhält eine DLL und eine Exceldatei.
Gruß
Thomas
Risi Thomas Softwareentwicklung
COM-Addins +++ RTD-Server +++ Komponenten
Anzeige
AW: Excel EXTREME ...
18.03.2005 20:35:05
Holger
Hallo Thomas,
klar würde mich die Vollversion dafür interessieren.
Muss ich dann das Tool vorher auf jedem Rechner installieren um die Funktionen zu haben?
Wie kann ich an die Funtionen meine Aktionen (VBA´s) anknüpfen?
Sind die Ereignisse dann wie in Excel unter z.B. unter 'BeforedoubleClick' und ich kann daran meinen Code hängen?
MfG
Holger Wächter
AW: Excel EXTREME ...
18.03.2005 20:48:38
Thomas
Hallo Holger,
die ganze Funktionalität wird in einem COM-Addin (ab xl2k) enthalten sein. Ja, jeder Rechner, der die Events verwenden will, muß das Addin installiert haben. Die Anknüpfung ist denkbar einfach. Es wird einfach ein neues Modul in jede Mappe eingefügt (die die Events verwenden soll) und dann in etwa folgendes Code-Gerüst ...


      
Option Explicit
' Das OnButtonDown-Event ...
' Das Ereignis tritt ein, wenn ein Klick (mit der Maustaste) erfolgt.
Public Sub OnButtonDown(Button As xl_Button, KeyState As Long, x As Long, y As Long)
End Sub
' Das OnDblKlick-Event ...
' Das Ereignis tritt ein, wenn ein Doppelklick (Maustaste) erfolgt.
Public Sub OnDblKlick(Button As xl_Button, KeyState As Long, x As Long, y As Long)
End Sub
' Das OnMove-Event
' Dieses Ereignis wird ausgelöst, wenn der Cursor über die Tabelle wandert.
Public Sub OnMove(Target As Excel.Range, x As Long, y As Long)
End Sub
' Das OnApplicationRestore-Event ...
' Tritt beim Wiederherstellen (aus der Taskleiste) der Excel-Anwendung ein.
Public Sub OnApplicationRestore()
End Sub
' Das OnApplicationMinimize-Event ...
' Tritt beim Minimieren der Excel-Anwendung ein.
Public Sub OnApplicationMinimize()
End Sub
' Das OnApplicationMaximize-Event ...
' Tritt beim Maximieren der Excel-Anwendung ein.
Public Sub OnApplicationMaximize()
End Sub
' Das OnWorkbookMinimize-Event ...
' Tritt beim Minimieren des aktiven Workbooks ein.
Public Sub OnWorkbookMinimize()
End Sub
' Das OnWorkbookMaximize-Event ...
' Tritt beim Maximieren des aktiven Workbooks ein.
Public Sub OnWorkbookMaximize()
End Sub
' Das OnMouseWheel-Event ...
' Tritt beim Drehen des Mausrades ein.
Public Sub OnMouseWheel(KeyState As xl_KeyStates, WHEEL_DELTA As Long, x As Long, y As Long)
End Sub 
Gruß
Thomas
Risi Thomas Softwareentwicklung
COM-Addins +++ RTD-Server +++ Komponenten
Anzeige
AW: Excel EXTREME ...
18.03.2005 21:05:17
Holger
Mich würde wie gesagt, die Funktion mit dem einfachen Mouseklick und des Trackings interessieren.
Ab wann oder ist das Tool denn schon verfügbar?
MfG
Holger Wächter
AW: Excel EXTREME ...
18.03.2005 21:19:01
Thomas
&gtMich würde wie gesagt, die Funktion mit dem einfachen Mouseklick und des Trackings interessieren.
Nun, man kann alle oder nur einige Events einbauen, das spielt keine Rolle.
&gtAb wann oder ist das Tool denn schon verfügbar?
Das Programm existiert natürlich schon, aber ich immer noch am Testen. Einige Wochen wird's wohl noch dauern. Einfach mal öfter auf meine Webseite schauen ...
Gruß
Thomas
Risi Thomas Softwareentwicklung
COM-Addins +++ RTD-Server +++ Komponenten
AW: Excel EXTREME ...
18.03.2005 21:28:06
Holger
Alles klar. Werde ich machen und gespannt warten. Dann gebe mir mal die Adresse für Deine Internetseite und ich werde da mal reinschauen!
MfG
Holger Wächter
AW: Excel EXTREME ...
18.03.2005 21:36:49
Holger
Mit dem Klick auf den Link kam ich immer wieder zu herber.
So, dann schaue ich mal da um.
MfG
Holger Wächter

Links zu Excel-Dialogen

ScrollBar

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige