Excel-VBA:falscher Fokus nach Laden Addin

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich habe in Excel eine xla-Datei mit verschiedenen VBA-Prozeduren erstellt und diese Datei über Extras Addins-Manager eingebunden.
Die xla-Datei enthält eine Ereignisprozedur (Workbook_Open), welche beim Start von Excel (laden des Addin) gestartet wird. Die Ereignisprozedur greift im Code auf eine Prozedur im „Modul1“ des Addin zurück.
Das Addin funktioniert soweit auch problemlos.

Beim Starten von Excel wird allerdings seit Einbindung des Addin die automatisch erstellte neue Mappe (i.d.R. Mappe1) nicht aktiviert. Das heißt, die Titelleiste ist grau dargestellt. Jede unbedachte Eingabe über die Tastatur landet nun weder in der Mappe noch im Nirgendwo sondern im Codeblatt „Modul1“ des Addin, obwohl der VBA-Editor nicht angezeigt wird. Die Eingabe wird natürlich als Laufzeitfehler angezeigt, womit kein weiterer Nutzer des Addin etwas anzufangen weiß.

Wie kann ich dieses Phänomen vermeiden und sicherstellen, dass die aktuelle Mappe auch aktiv ist?
Habe schon versucht als letzten Befehl im Addin die Mapper per
„Workbooks(Workbooks.Count).Activate“ wieder zu aktivieren, aber das klappt nicht.

Danke für Eure Ratschläge,
Gruß tester

#2

Beim Starten von Excel wird allerdings seit Einbindung des
Addin die automatisch erstellte neue Mappe (i.d.R. Mappe1)
nicht aktiviert. Das heißt, die Titelleiste ist grau
dargestellt. Jede unbedachte Eingabe über die Tastatur landet
nun weder in der Mappe noch im Nirgendwo sondern im Codeblatt
„Modul1“ des Addin, obwohl der VBA-Editor nicht angezeigt
wird. Die Eingabe wird natürlich als Laufzeitfehler angezeigt,
womit kein weiterer Nutzer des Addin etwas anzufangen weiß.
Wie kann ich dieses Phänomen vermeiden und sicherstellen, dass
die aktuelle Mappe auch aktiv ist?
Habe schon versucht als letzten Befehl im Addin die Mapper per
„Workbooks(Workbooks.Count).Activate“ wieder zu aktivieren,
aber das klappt nicht.

Hi tester,
may be so:

Sub tt()
ActiveWindow.WindowState = xlMinimized
End Sub

Sub tt()
Dim n
For n = Workbooks.Count To 1 Step -1
 If UCase(Workbooks(n).Name) UCase("personl.xls") Then
 Windows(Workbooks(n).Name).Activate
 Exit Sub
 End If
Next n
End Sub

Sub tt()
Dim n
For n = Workbooks.Count To 1 Step -1
 If UCase(Workbooks(n).Name) UCase("personl.xls") Then
 Workbooks(n).Worksheets(1).Range("A1") = Workbooks(n).Worksheets(1).Range("A1")
 Exit Sub
 End If
Next n
End Sub

Gruß
Reinhard

#3

hab’s hinbekommen
Danke für die Tipps.
Ich kenne zwar immer noch nicht die Ursache des Fokusverlust aber
„ActiveWindow.WindowState = xlMaximized“
in der letzten Prozedurzeile hat geholfen.

Gruß, tester