Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1664to1668
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
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Activate funktioniert nicht mehr

Activate funktioniert nicht mehr
03.01.2019 15:42:42
Berny
Hallo Excel - VBA-Profis,
ich habe bereits in der Vergangenheit einige Module erstellt. Diese haben auch unter Excel 2010 problemlos funktioniert. Nun wurden wir auf Excel 2016 umgestellt. Jetzt sind erstmals die Fenster nicht mehr in der Excel-Oberfläche sondern frei. (Oder wie nennt ihr das?)
Und hier fangen die Probleme an (zumindest vermute ich das so). Ich habe einmal eines der kleineren Probleme herausgesucht. - Vielleicht lösen sich dann die anderen auf gleiche Weise.
Ich öffne eine Mappe via Dialogauswahl um hier Daten auszuwählen, welche ich anschließend in einer andern Mappe einfüge. (weiteres Modul)
» Workbooks.Open filename:="....\Masterlisten\" & lbDateien.Value «
Bisher war nach dem Öffnen diese Mappe automatisch meine aktive Mappe und ich konnte sofort weiter arbeiten. Unter Excel 2016 verschwindet aber meine geöffnete Mappe hinter den anderen geöffneten Mappen.
Da hilft auch kein zusätzlicher Befehl
» Workbooks(lbDateien.Value).Activate «
Auch wenn hier unter Level VBA gut steht(zwischen bescheiden und gut gibt es keine Abstufung) bin ich echt Ratlos!!

Hat noch jemand eine Idee?
Mit freundlichen Grüßen
Berny

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Activate funktioniert nicht mehr
03.01.2019 15:45:50
Hajo_Zi
With Worlbooks( lbDateien.Value )
' Punkte vor Range und Cells nicht vergessen
End with

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Activate funktioniert nicht mehr
03.01.2019 17:24:11
Berny
Hallo Hajo
Danke für deine Antwort, die hatte ich doch prompt übersehen.
Sorry, ich versteh noch nicht wirklich was du mir sagen möchtest.
Ich habe jetzt das einmal eingebaut:
Workbooks.Open filename:="....Masterlisten\" & lbDateien.Value
With Workbooks(lbDateien.Value)
.Activate
End With
Das geht leider auch nicht.
M.f.G.
Berny
Anzeige
AW: Activate funktioniert nicht mehr
03.01.2019 18:46:15
Hajo_Zi
Ohne
.Activate
der Rest Stand im Beitrag.
Gruß Hajo
AW: Activate funktioniert nicht mehr
04.01.2019 08:41:54
Berny
Schönen guten Morgen Hajo,
nochmals Danke für deinen Beitrag. Jetzt habe ich einen kompetenten Ansprechpartner, welcher möglicher weise die Lösung zu meinem Problem hat, aber ich verstehe in leider nicht. Kannst du bitte einen Level herunterschalten.
Also ich öffne die Mappe wie bisher mit Workbooks.open.
Danach mache ich etwas mit With Workbooks, aber was? Ich habe kein Range oder Cells, weil ich die gesuchten Daten manuell heraussuchen muss. Würde es automatisch gehen, hätte ich mir einen entsprechenden Verweis oder so etwas gebastelt. Eigentlich ist mein Modul hier zu ende, wenn ich den Fokus auf meine Mappe hätte.
M.f.G.
Berny
Anzeige
AW: Activate funktioniert nicht mehr
04.01.2019 08:54:59
Hajo_Zi
Hallo Benny,
das konnte ich nicht sehen, was wohl daran liegt das ich nicht auf fremde Rechner schaue.
Keine Ahnung.
Gruß Hajo
AW: Activate funktioniert nicht mehr
04.01.2019 09:06:11
Berny
Hallo Hajo,
Danke für den Versuch!
Vielleicht hat ja noch jemand anderes eine Idee!

Ich habe das ganze Modul bereits im Dialog mit "Daniel" eingegeben.
M.f.G.
Berny
AW: Activate funktioniert nicht mehr
03.01.2019 15:53:11
Daniel
HI
ich würde generell die Datei gleich beim Öffnen einer Variabeln zuweisen und dann die Datei immer über diese Variable ansprechen:
dim ws As Workbook
Set ws = Workbooks.Open(filename:="....\Masterlisten\" & lbDateien.Value)
ws.Sheets(1).Cells(1, 1).Value = "Hallo Welt
ws.Save
ws.Close

beachte, dass du dann im Workbook.Open die Parameter in Klammern setzen musst.
Gruß Daniel
Anzeige
AW: Activate funktioniert nicht mehr
03.01.2019 16:12:14
Berny
Hallo Daniel!
vielen Dank für den Versuch!
Das Ergebnis ist exact das gleiche. Mein Mappe (Fenster) welche ich öffne ist immer noch hinter den anderen Mappen versteckt!
Gibt es keine Möglichkeit ein Fenster in den Vordergrund zu bringen? (Befehl = "Fenster im Vordergrund")
Wie gesagt: Das Problem habe ich öfters. Alle Programme funktionieren im Prinzip auch unter Excel 2016, aber ich bekomme das Ergebnis nicht gezeigt = in den Vordergrund)
M.f.G.
Berny
AW: Activate funktioniert nicht mehr
03.01.2019 16:24:48
Daniel
Hi
ich weiß jetzt nicht, wie sich Excel 2016 da verhält.
ist das geöffnete Blatt nur im Hintergrund oder auch tatsächlich ausgeblendet?
eventuell hilft es ja, wenn du nicht die Datei, sonderen das Fenster aktivierst: 
Windows(Dateiname).Activate

wobei du hier aber auch mal den .Windwostate und .Visible des Fensters prüfen solltest.
Gruß Daniel
Anzeige
AW: Activate funktioniert nicht mehr
03.01.2019 17:07:18
Berny
Hallo Daniel,
das geht leider auch nicht. Aber ich habe wieder etwas gelernt. Das "richtige Fenster" ist im Vordergrund, bis ich einen weiteren Dialog im ShowModal=False starte. Dann verschwindet die Mappe im Hintergrund sie ist nicht ausgeblendet. Auch wenn ich danach » Windows(ws.Name).Activate « eingebe geht es nicht.
Ich habe hier einmal den ganzen Code für den Dialog Dateioeffnen_Click
Private Sub CB_Dateioeffnen_Click()
If lbDateien.ListIndex
Da es jetzt doch kompliziert wird nochmals ein paar Infos zur Erläuterung:
Ich starte in Mappe 1 und bemerke dass ich Informationen brauche.
Über den o.g. Dialog wähle ich die Passende Masterliste aus und öffne diese.
Dabei wird bereits der zweite Dialog gestartet.
In der Masterliste suche ich die entsprechende Informationen und selektiere diese.
Mit einem Klick auf den zweiten Dialog werden die Daten von der Masterliste in meine Mappe übertragen
und die Masterliste wider geschlossen.
Die "Mappe 1" gibt es X- Mal. Damit ich das Modul nicht X-Mal habe, liegt dieses in einem Add-In.
M.f.G.
Berny
Anzeige
ok du arbeitest mit Userformen
04.01.2019 16:39:15
Daniel
und die sind das Problem.
denn seit Excel 2013 sind die Userformen nicht mehr an das allgemeine Excel-Anwendungsfenster gekoppelt, sondern an das jeweilige Fenster der Mappe, zu der Userform gehört!
dh immer wenn du eine Userform aktivierst, wird auch automatsich das Fenster der dazugehörigen Mappe aktiviert und es ist nicht mehr so einfach möglich, mit einer Userform eine fremde Mappe zu bearbeiten.
Das ist eine weniger gute Eigenheit der neuen Fenstersystematik von Excel und eine Lösung für das Problem kenne ich leider auch nicht.
Gruß Daniel
AW: ok du arbeitest mit Userformen
07.01.2019 07:23:16
Berny
Schönen Guten Morgen Daniel,
das erklärt mir jetzt wenigstens wo der Fehler liegt. Dann weiß ich wo ich den Hebel ansetzen soll.
Auch wenn ich noch keine Ahnung habe wie ich das umbaue :-(.
Danke für die Info.
M.f.G.
Berny
Anzeige
AW: Activate funktioniert nicht mehr
05.01.2019 12:24:56
Piet
Hallo Berny
da gibt es soviele Lösungsvorschlaege, hier mal ein zaghafter Versuch von mir. Sollte es klappen bitte mich nicht fragen Warum?
Die Frage kann ich dir nicht beantworten!! Ich weiss es einfach nicht!! - "Is halt so ..."
Erstelle bitte eine Dim Variable Names Datei As String, und lade den Dateinamen in diese Variable. Dqnn Activate über Datei.
Sollte es nicht klappen war es einen Versuch wert. - Wenn es klappt freu dich - ohne zu wissen wieso das so ist?
Datei = lbDateien.Value
Workbooks(Datei).Activate
mfg Piet
AW: Activate funktioniert nicht mehr
07.01.2019 07:30:40
Berny
Schönen Guten Morgen Piet,
Danke für den Versuch. Das hat mir Daniel und Hajo auch schon vorgeschlagen. Leider ohne Erfolg.
M.f.G.
Berny
Anzeige

307 Forumthreads zu ähnlichen Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Anzeige
AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Einfügen und STRG+V funktioniert hier nicht mehr
Joachim

Hi,
ich habe auf einem sheet ein paar Buttons und möchte damit erreichen, das die Buttons, wenn ich in dem Sheet nach rechts scrolle, und ich auf das sheet klicke, dass sie sich immer innerhalb meines Monitors platzieren, also mitwandern:
Private Sub Worksheet_SelectionChange(ByVal Ta...
06.12.2008 21:34:12
Thread-ID: 1030749
8 Beiträge
Anzeige
Dateien auslesen funktioniert nicht mehr
Roland

Hallo VBA-Profis
ich lese mit untenstehendem Code alle zip-Dateien aus einem Verzeichnis aus. Ich habe das ganze auf einem Computer programmiert, auf dem Office 2000 installiert ist. Der ganze Code läuft einwandfrei.
Auf meinem anderen Computer, auf dem Office 2003 installiert ist, funk...
10.03.2009 11:10:53
Thread-ID: 1058528
3 Beiträge
To-Do Liste Code funktioniert nicht mehr? Wieso?
Jessi

https://www.herber.de/bbs/user/62106.xls
Hallo zusammen,
die oben gelinkte Datei sollte eigentlich beim Drücken des "START-BUTTONS" eine E-Mail versenden, sofern die Deadline überschritten wurde. Irgendwie funktioniert nichts? Woran kann das liegen? Dieser Code lief vor 2 Monaten in ei...
28.05.2009 19:15:48
Thread-ID: 1078037
6 Beiträge
Code funktioniert nicht mehr
Roland

Hallo zusammen,
seit langem musste ich mal wieder ein Makro aufzeichnen und auch etwas schreiben.
Ich hab vor einiger Zeit schon mal was programmiert in Excel 2002.
Jetzt wollte ich diesen Code in Excel 2003 verwenden, dabei meldet mir Excel aber immer ein Fehler.
Genauer ge...
17.09.2009 19:26:56
Thread-ID: 1103685
5 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Hilfe! Tastenkomb funktioniert nicht mehr! | Herbers Excel-Forum
Florian
Hallo Gemeinde,
habe ein Problem, hab schon alles durchsucht, finde aber keine Lösung: an meinem PC funktioniert die Kombination "SHIFTSTRG+Pfeil" nicht mehr, dh. ich kann keine z.B. nicht per Tastatur ans Ende der Zeile springen und den Berecih markieren.
Weiss jemand von Euch Rat?
Da...
25.01.2010 10:27:12
Thread-ID: 1132627
5 Beiträge

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
1
7
2
2
5
4
2
4
3
6
4
4
2
4
3
1
3
4
1
4
6
3
11