Excel Icon in Taskleiste

Hallo zusammen,
hier was für Tüftler.
Ich habe mir ein Excel - Sheet gebastelt, welches verschiedene Tabellen enthält, die ich täglich mehrmals brauche (Telefonnummern, etc.). Diese Tabelle ist den ganzen Arbeitstag geöffnet. Soweit so gut...
Mit einem Makro bzw. Userform habe ich es hinbekommen, dass wenn ich sie nicht benötige sie ausgeblendet (auch in der Taskleiste) wird.

Sub Ausblenden()
Windows("Info.xlsm").Visible = False
End Sub

Besteht die Möglichkeit, einen Button zu erstellen, der unten links neben dem "Windows Startbutton" erscheint, um die Mappe wieder aufzurufen? (Kein Hyperlink)?
ALTERNATIV:
Besteht die Möglichkeit mit einer Tastenkombination (bei inaktiver Mappe), diese wieder aufzurufen?
WEITERE ALTERNATIVE:
Einen eigenen Vorschlag, wie die Mappe wieder in inaktivem Zustand schnell wieder eingeblendet werden könnte.
INFO:
Mit einem Userform.Button habe ich es schon versucht. Habe ich jedoch Excel komplett minimiert, weil ich z. B. im Warenwirtschaftssystem arbeite, ist der Button natürlich auch weg. Also fällt diese Alternative weg. Wie gesagt. Die Schwierigkeit liegt daran, dass Excel inaktiv ist.
Für jede Hilfe bin ich dankbar.
VG
Jonas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Makro in allgemeinem Modul der persönlichen Makro-Arbeitsmappe Sub Info_Ein_Ausblenden() Dim wkbInfo As Workbook On Error GoTo Fehler Set wkbInfo = Workbooks("Info.xlsm") With wkbInfo If ActiveWorkbook.Name = .Name Then Windows(.Name).Visible = False Else If Windows(.Name).Visible = False Then Windows(.Name).Visible = True End If wkbInfo.Activate End If End With Fehler: With Err Select Case .Number Case 0 Case 9 Workbooks.Open Filename:="D:\Test\Info.xlsm" 'Verzeichnis anpassen! Case Else MsgBox "Fehler-Nr.:" & .Number & vbLf & .Description End Select End With End Sub

On Error Resume Next Set objXL = GetObject(, "Excel.Application") If Err.Number 0 Then MsgBox "Excel läuft nicht!" WScript.Quit End If strMappe = "Info.xlsm"'anpassen For Each win In objXL.Windows If win.Caption = strMappe Then win.Visible = True Next Set objXL = Nothing Set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate strMappe Set WshShell = Nothing WScript.Quit

On Error Resume Next Set objXL = GetObject(, "Excel.Application") If Err.Number 0 Then MsgBox "Excel läuft nicht!" WScript.Quit End If objXL.Visible = True objXL.WindowState = -4137 strMappe = "Info.xlsm"'anpassen For Each win In objXL.Windows If win.Caption = strMappe Then win.Visible = True Next Set objXL = Nothing Set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate strMappe Set WshShell = Nothing WScript.Quit

On Error Resume Next Set objXL = GetObject(, "Excel.Application") If Err.Number 0 Then MsgBox "Excel läuft nicht!" WScript.Quit End If objXL.Visible = True objXL.WindowState = -4137 gefunden = False strMappe = "Info.xlsm" 'anpassen For Each win In objXL.Windows If win.Caption = strMappe Then win.Visible = True gefunden = True End If Next Set objXL = Nothing If gefunden = True Then Set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate strMappe Set WshShell = Nothing Else MsgBox strMappe & " nicht geöffnet!" End If WScript.Quit

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Icon in Taskleiste

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread