Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Application.GetOpen?!

Forumthread: Application.GetOpen?!

Application.GetOpen?!
Andre
Hi Leute,
ich greife über VBA auf die Application.GetOpen-Funktion zu und hatte vor geraumer Zeit folgende Idee in diesem Forum ergattern können (kann mich leider nicht an den Autor erinnern, sorry!):
var = Application.GetOpenFilename( _
FileFilter:=[Vlookup("Programm",Kontrolle!A78:X65536,4,0)] & "(*.xls),
*.xls", MultiSelect:=True)
For iCounter = 1 To UBound(var)
[Kontrolle!I57] = var(iCounter)
Next iCounter
Mein Problem dabei ist nun, wenn ich die "Application.GetOpen-Funktion" aus einer Userform, die ganz eindeutig "ShowModal = True" gesetzt ist, ausführe, bekomme ich wieder Zugriff auf die Menüleiste der Application!
Das sollte natürlich nicht sein, daher meine Frage, wie kann ich das verhindern?
SetFocus auf ein Feld der UF hat nicht funktioniert und auch ähnliche Versuche sind bisher gescheitert!
Danke für eure Hilfe.
Gruß Andre
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Application.GetOpen?!
Andre
Hi Hans,
danke für dein Beispiel, ist das die einzige Lösung? Ich müßte dann nämlich nicht nur eine UF aus- und wieder einblenden, sondern gleich drei, u.a. auch meine UF "Menü" und "Statusleiste" und das würde sehr unsauber aussehen für den Benutzer!
Gruß Andre
AW: Application.GetOpen?!
Bert
Das ist unter E2002/2003 nicht so, aber mach dies:
me.hide
DeinMakro_GetOpen
me.show
Bert
Anzeige
AW: Application.GetOpen?!
Andre
Hi Bert,
danke, werd´s so machen, aber schön ist das nicht gerade, muß nämlich nicht nur eine UF aus- bzw. einblenden, sondern drei, darunter auch die UF, die meine Statusleiste enthält und das sieht sehr unsauber aus.
Gruß Andre
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige