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

Bie Mouseover Datei anzeigen

Forumthread: Bie Mouseover Datei anzeigen

Bie Mouseover Datei anzeigen
11.03.2021 07:57:24
Harald
Hallo,
zu meiner Frage mit dem gleichen Betreff wie oben vom 14.02.14 am gleichen Tag um 20:35 Uhr folgenden Link gepostet:
https://www.herber.de/bbs/user/143916.xlsm
Dies funktioniert auch wunderbar, allerdings habe ich noch ein kleines Problem: Wenn die Excel-Datei im Hintergrund geöffnet ist und ein anderes Dokument (z. B. eine Word-Datei) im Vordergrund aktiv ist reagiert Excel trotzdem auf das Mouseover und wird aktiv in den Vordergrund gestellt.
Kann man hier irgendwie prüfen, ob die Excel-Datei bei dem Mouseover auch aktiv ist und nur dann reagieren?
Im voraus schon vielen Dank
Harald

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bie Mouseover Datei anzeigen
11.03.2021 08:17:05
Nepumuk
Hallo Harald,
starte mal folgende Prozedur in eine neuen Excelmappe:
Public Sub Test()
    MsgBox Application.hwnd
End Sub

Kommt da die MsgBox mit einer Zahl oder eine Fehlermeldung?
Gruß
Nepumuk

Anzeige
AW: Bie Mouseover Datei anzeigen
11.03.2021 12:46:32
Harald
Hallo Nepumuk,
hier am Arbeitsplatz kommt dann eine Zahl (526812)
Kann das sein, dass der Fehler nur hier auftritt, weil hier schon Excel 2013 installiert ist?
Ich werde das heute abend mal zu Hause testen, wo noch Excel 2007 installiert ist (demnächst muss ich mir mal für zu Hause eine neue Version kaufen).
mfg
Harald

Anzeige
AW: Bie Mouseover Datei anzeigen
11.03.2021 12:55:02
Nepumuk
Hallo Harald,
alles klar, dann bis heute Abend.
Gruß
Nepumuk

AW: Bie Mouseover Datei anzeigen
11.03.2021 16:27:00
Harald
Hallo Nepumuk,
auch zu Hause mit Excel 2007 kommt eine Zahl.
Trotzdem habe ich das gleiche Problem wie am Arbeitsplatz mit Excel 2013 -
obwohl ich eine Word-Datei geöffnet habe und diese aktiv ist wird das Bild aus der Hintergrund-Datei angezeigt, wenn ich mit der Maus auf einen Link im Hintergrund komme.
Falls das Problem nicht zu beheben ist ist das auch nicht allzu schlimm - Hauptsache es funktioniert in Excel.
Nochmals vielen Dank dafür.

Anzeige
AW: Bie Mouseover Datei anzeigen
11.03.2021 16:32:12
Nepumuk
Hallo Harald,
ändere den Code im Modul so:
Option Explicit

Private Declare Function SetTimer Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" ( _
    ByRef lpPoint As POINTAPI) As Long
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long

Private Type POINTAPI
    x As Long
    y As Long
End Type

Public Sub Start()
    Call SetTimer(Application.hwnd, 0, 500, AddressOf StartTimer)
End Sub

Private Function StartTimer(ByVal hwnd As Long, ByVal nIDEvent As Long, _
        ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    
    Static ssstrAddress As String
    
    Dim udtPoint As POINTAPI
    Dim objUnknown As Object
    
    If GetForegroundWindow = Application.hwnd Then
        
        On Error GoTo err_exit
        
        Call GetCursorPos(udtPoint)
        
        Set objUnknown = ActiveWindow.RangeFromPoint(udtPoint.x, udtPoint.y)
        
        If TypeOf objUnknown Is Range Then
            
            If objUnknown.Hyperlinks.Count = 1 Then
                
                If Right$(objUnknown.Hyperlinks(1).Address, 4) = ".jpg" Then
                    
                    If ssstrAddress <> objUnknown.Address Then
                        
                        ssstrAddress = objUnknown.Address
                        
                        Call Unload(Object:=UserForm1)
                        
                        With UserForm1
                            
                            Set .Picture = LoadPicture(Filename:=ThisWorkbook.Path & _
                                "\" & objUnknown.Hyperlinks(1).Address)
                            
                            Call .Show
                            
                        End With
                        
                    End If
                Else
                    ssstrAddress = vbNullString
                    Call Unload(Object:=UserForm1)
                End If
            Else
                ssstrAddress = vbNullString
                Call Unload(Object:=UserForm1)
            End If
        Else
            ssstrAddress = vbNullString
            Call Unload(Object:=UserForm1)
        End If
    End If
    
    err_exit:
    
End Function

Public Sub StopTimer()
    Call KillTimer(Application.hwnd, 0)
End Sub

Gruß
Nepumuk

Anzeige
AW: Bie Mouseover Datei anzeigen
12.03.2021 08:51:39
Harald
Hallo Nepumuk,
super - jetzt funktioniert es ohne immer wieder die Excel-Datei anzuzeigen!
Nochmals vielen Dank!
mfg
Harald
;

Forumthreads zu verwandten Themen

Userform einer Fremddatei anzeigen
Reinhard

Hallo Wissende,
ich habe in z.B. der Personl.xls eine Userform namens Userform1.
Kann ich die UF irgendwie in einer fremden Mappe anzeigen lassen oder geht das grundsätzlich nicht?
Das z.B. klappt nicht mit dem Code im Modul1 einer Fremddatei:
Sub nn() Workbooks("PERSONL.XLS")...
17.09.2008 19:55:00
Thread-ID: 1010509
5 Beiträge
Caption in UF Name der Datei anzeigen
Tom

Hallo
Wie kann ich in der Caption der Userform nebst dem Namen "Willkommen" noch den Namen der Datei
anzeigen lassen?
Danke an Euch
Gruss
Tom
01.03.2009 21:34:04
Thread-ID: 1055359
3 Beiträge
Anzeige
HTML Datei anzeigen in IE
Mister

Hallo,
ich möchte eine HTML Datei anzeigen lassen. Im Forum habe ich herausgefunden, dass es mit
ActiveWorkbook.FollowHyperlink Address:=
geht, und es klappt ja auch.
Nur ich möchte, dass diese Datei immer im IE angezeigt wird egal welche Browser auf dem PC standard ist. IE...
23.09.2011 15:42:36
Thread-ID: 1231245
3 Beiträge
RTF-Datei anzeigen
Paul

Hallo Forum,
ich wende mich mal wieder mit einer Frage an Euch:
In einem Excel-Projekt erhalte ich immer wieder von einem externen Programm eine RTF-Datei als Rückgabe. Ich möchte ich mir diese RTF-Datei anzeigen lassen, ggf. eine Änderung daran vornehmen und dann wieder abspeichern.
25.04.2012 20:49:16
Thread-ID: 1261011
10 Beiträge
Hyperlink --> immer die neuste Datei anzeigen las.
Rene

Hallo zusammen,
ich hab mal eine Frage wie kann ich den Hyperlink plus eine Formel verbinden.
Ich habe zum Bsp. Sachnummer in Spalte A eine Sachnummer die lautet
9876543
nun soll in Spalte E ein Hyperlink eingebaut werden.
Das Problem die Datei gibt es in ein Verzeichnis 9 m...
04.05.2016 08:17:36
Thread-ID: 1491754
6 Beiträge
Autor in Anzeigenamen neben Datei anzeigen lassen
Daiso

Hallo liebes Forum,
ich stehe vor einem Problem zu dem ich keine Lösung finde.
Ich habe letztens gesehen, dass ein Kollege, der eine sehr aufwendige Exceldatei programmiert hat, seinen Namen neben dem Dateinamen im Excelfenster über dem Menüband anzeigen lassen hat.
Nun habe ich e...
20.01.2017 12:47:45
Thread-ID: 1536310
3 Beiträge
Anzeige
Neue Werte in Quelldatei anzeigen lassen
M

Hallo zusammen,
gibt es eine Möglichkeit, wie mir neue Werte aus meiner Quelldatei angezeigt werden können? Beispielsweise habe ich in der beigefügten Datei 2 Läger. In der Mappe "Datenbank" werden unter TS Köln (A4) die Vertriebsbereiche aus der "Input_BW" aufgelistet. Verformelt über eine...
19.03.2019 14:12:43
Thread-ID: 1682123
6 Beiträge
Benutzer einer Excel-Datei anzeigen las
Martin

Hallöle,ich habe eine xla-Datei auf die mehrere User zugreifen. Wenn ich nun Änderungen in der Datei speichern will, kann ich dies nicht, weil die Datei ja in Benutzung ist. Wie kann ich nun auslesen, welche User diese Datei geöffnet haben???Vielen Dank im voraus.Beste Grüße
Martin

09.05.2003 12:16:34
Thread-ID: 254272
2 Beiträge
alle Verknüpfungen in Datei anzeigen bzw löschen?
kostro
Guten Morgen,
weiß jemand, wie ich in Excel 2000 alle Verknüpfungen in Datei anzeigen bzw. löschen kann?
Unter Menüpunkt Bearbeiten gibt es ja den Eintrag "Verknüpfungen" wenn welche enthalten sind. Nun ist es aber in meiner Datei so, dass ich diese Verknüpfung nirgends aufspüren kann.
V...
25.07.2003 08:40:45
Thread-ID: 285356
2 Beiträge
Checkbox in anderer Datei anzeigen/nicht anzeigen
Stefan Glander
Hallo Excler,
ich habe mal wieder ein Problem ( das sich echt nicht mit Rekorder lösen läßt)
In Datei "A" habe ich eine Checkbox mit der ich in Datei "C" eine Checkbox anzeigen bzw nicht anzeigen möchte.
Dazu hatte ich folgenden Code, der haut aber leider nicht hin.
Private Sub Chec...
15.12.2003 20:50:34
Thread-ID: 352348
7 Beiträge
datei anzeigen/öffnen
Max

Hallo Zusammen!
Ich möchte ganz gerne mit einem Button eine Datei anzeigen bzw. öffnen. Aber wenn die Datei nicht geöffnet ist, kann ich die nicht anzeigen lassen und wenn sie geöffnet aknn ich sie nicht nochmal öffnen.
Wie kann ich mit einer einfachen if-anweisung feststellen, ob eine...
07.12.2004 15:40:36
Thread-ID: 529289
4 Beiträge
Erstell-/Änderungsdatum Datei anzeigen
ray

Hallo,
ich suche einen VBCode, der die älteste Datei in einem Ordner ermittelt.
Hat jemand eine Idee?
Viele Grüße
ray
17.02.2005 10:32:15
Thread-ID: 570319
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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