Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1752to1756
1752to1756
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Windows.activate

Forumthread: VBA Windows.activate

VBA Windows.activate
17.04.2020 14:26:43
Günther
Hallo zusammen
Ich habe hier schon viele Lösungen für Excel Probleme gefunden und finde dieses Forum einfach nur toll.
Jetzt stehe ich aber vor einem Problem und komme einfach nicht mehr weiter
ich rufe eine excel Datei über eine andere auf. Funktioniert auch
nur habe ich das Problem das ich dann zwischen den Fenstern nicht hin und herspringen kann. Wenn ich den dateinamen eingeb funktioniert es, aber sobald der Dateiname aus einer Variable aufgerufen wird, geht es nicht mehr
hier mein code:
in der MSG Box wird der richtige dateiname angezeigt (somit passt eigentlich der Wert).
aber in der nächsten zeile "Windows ("projektname").activate bekomme ich einen Laufzeitfehler
Private Sub Auer_Sucess_Click()
Dim projektname As String
Sheets("Übersicht").Select
Sheets("Übersicht").Range("R4").Select
Selection.Copy
Workbooks.Open [Auer_Copyfile]
ActiveWorkbook.Sheets("Auer").Activate
Windows("Auer Success.xls").Activate
Sheets("Auer").Range("R4").Select
ActiveSheet.Paste
projektname = ActiveSheet.Range("R4")
Sheets("Auer").Range("A2:B5000").Select
Selection.ClearContents
MsgBox projektname
Windows("projektname").Activate
Sheets("Zusammenfassung").Range("C2:D5000").Select
Selection.Copy
usw....
vielen Dank :)
lg Günther
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Windows.activate
17.04.2020 14:41:59
MRUTor
Hallo Guenther,
erstmal als Hinweis. Lies dir mal im Internet ein paar Seiten durch, auf denen beschrieben wird, dass man die ganze Aktiviererei und Selektiererei zu 99 % nicht braucht. Hab dir deinen Codeabschnitt mal etwas gekuerzt.
Eine Datei ruft man nicht ueber Windows..... auf sondern ueber Workbooks(Workbookname). 

Private Sub Auer_Sucess_Click()
Dim projektname As String
Sheets("Übersicht").Range("R4").Copy
Workbooks.Open [Auer_Copyfile]
Workbook("Auer Success.xls").Sheets("Auer").Range("R4").Paste
projektname = ActiveSheet.Range("R4")
Sheets("Auer").Range("A2:B5000").ClearContents
MsgBox projektname
Workbook(projektname).Activate
Sheets("Zusammenfassung").Range("C2:D5000").Copy
'usw...

Gruss Torsten
Anzeige
AW: VBA Windows.activate
17.04.2020 14:43:38
MRUTor
hier nochmal. hatte da 2 mal das s in Workbooks vergessen 

Private Sub Auer_Sucess_Click()
Dim projektname As String
Sheets("Übersicht").Range("R4").Copy
Workbooks.Open [Auer_Copyfile]
Workbooks("Auer Success.xls").Sheets("Auer").Range("R4").Paste
projektname = ActiveSheet.Range("R4")
Sheets("Auer").Range("A2:B5000").ClearContents
MsgBox projektname
Workbooks(projektname).Activate
Sheets("Zusammenfassung").Range("C2:D5000").Copy
'usw...

Anzeige
AW: VBA Windows.activate
17.04.2020 15:39:00
Günther
hallo Torsten
Danke für die Rückmeldung, nur leider geht es nicht bzw. bleibt der code schon früher "stehen"
Das mit dem ständigen aktivieren/deaktivieren weiß ich, nur ohne das geht es leider überhaupt nicht.
ebenso habe ich über excel bzw. windows versucht zu wechseln - beides ohne Erfolg :(
ich verstehe nicht warum er bei
Workbooks(projektname).Activate
oder auch windows (projektname).activate
zum Stehen kommt.
in Projektname steht genau der richtige dateiname (test.xlsm) der Datei zu der gewechselt werden soll
bei windows(test.xlsm).activate wechselt die Datei richtig
lg
Anzeige
AW: VBA Windows.activate
18.04.2020 12:21:27
Günther
So Problem habe ich selbst gelöst
ist nicht wie vermutet bei
Windows("projektname").Activate
zum stehen gekommen sondern bei
Sheets("Zusammenfassung").Range("C2:D5000").Select
Ich habe davor das sheet einfach nochmals angesprochen mit
Sheets("Zusammenfassung").Select
Sheets("Zusammenfassung").Range("C2:D5000").Select
und schon funkt es
lg
Anzeige
;

Forumthreads zu verwandten Themen

Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
ThisWorkbook.Activate
Maximilian

Warum wird bei ThisWorkbook.Activate immer auch das erste Worksheet meiner Mappe ausgewählt?
Meiner Erinnerung nach war das vor ein paar Tagen noch nicht der Fall oder täusche ich mich? Ist das bei euch so?
27.02.2013 11:49:04
Thread-ID: 1301264
3 Beiträge
Worksheet_Deactivate: VBA imdeakt. Blatt ausführen
Matthias Gäbisch

Hallo,ich möchte bei Worksheet_Deactivate VBA-Code ausführen, der im eben deaktivierten Blatt noch Veränderungen durchführt. Wie geht das. Oder muß ich im neu aktivierten Blatt bei Worksheet_Activate aufs vorherige zugreifen. Weiß aber auchnicht wie das gehen soll?!Vielen DankMatze

17.03.2003 11:57:31
Thread-ID: 232850
13 Beiträge
VBA: Zellen auswählen ohne Worksheet.activate?
th0mas
Hi!
Ich möchte mit VBA auf fremde Zellbereiche zugreifen, aber nicht auf das Worksheet wechseln. Gibts da auch eine andere Möglichkeit als Sheets("Name").activate?
danke und lg,
thomas
18.08.2004 13:23:40
Thread-ID: 471695
11 Beiträge
VBA: WINDOWS("[aktuelle Datei]").Active
Andre

Hallo!
Habe kaum VBA-Kenntnisse und nun ein Skript, in dem die genannte Zeile mit der Bennenung der aktuellen Datei vorhanden ist. So muss ich allerdings, wenn ich die Excel-Datei unter einem anderen Namen speichere, auch das Script ändern. Gibt es eine Funktion, die es erlaubt, das immer d...
19.05.2005 09:09:00
Thread-ID: 613312
4 Beiträge
Anzeige
VBA Windows("Name.xls").activate
Uwe

Hallo,
wie kann ich z.B. das Makro "Windows("Name.xls").activate umschreiben, damit ich den Dateinamen nicht erwähnen muss, sondern der Wechsel immer zu der Datei erfolgt, in dem auch das Makro programmiert wurde.
Hintergrund:
Der Name kann variieren, je nachdem, unter welchen Namen...
10.02.2006 11:23:12
Thread-ID: 730781
3 Beiträge
ThisWorkbook.Name / zwei VBA Projekte / XLT
Mattias

Hi zusammen
Ich habe eine Exceltabelle "Vorlage.xls" sowie "Addin.xlt". Die Datei Addin lade ich im Excel über den Add-Ins-Manager ein, die Datei wird also immer geladen sobald ich Excel öffne. Sie enthält eine selber kreierte Symbolleiste u.a. mit einem Button "speichern". Nun möchte ich d...
28.09.2007 16:25:00
Thread-ID: 911544
5 Beiträge
this workbook has lost its vba project, activeX...
Benjamin

hallo zusammen,
ich habe folgendes problem:
ich habe ein excel tool geschrieben das mit makros arbeitet.
dieses habe ich nun an viele user geschickt.
von einigen habe ich folgende fehlermerldung bekommen:
"This workbook has lost its VBA project, ActiveX controls and any othe...
25.06.2008 10:16:19
Thread-ID: 988561
6 Beiträge
VBA Änderung im windows(book:index)activate
Willi Bohr
Hallo,
Ich bin neu im Forum aber nicht unbedingt neu im Excel.
Folgende Problematik:
Ich habe ein WorkBook.xlsm "geerbt" das von der interaktion mehrere Tabellenblätter lebt und in dem viele Makros arbeiten.
Es werden aus den Macros's jeweils in verscheiden Macros maximal 6 ActiveWin...
27.07.2024 16:50:42
Thread-ID: 1986265
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

VBA Windows.activate in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Anwendung und aktiviere das Visual Basic for Applications (VBA) Fenster.
  2. Erstelle eine neue Sub-Prozedur. Zum Beispiel: 
    Private Sub Auer_Sucess_Click()
  3. Definiere eine Variable für den Projektnamen: 
    Dim projektname As String
  4. Kopiere den gewünschten Bereich aus dem aktiven Blatt: 
    Sheets("Übersicht").Range("R4").Copy
  5. Öffne die Zielarbeitsmappe: 
    Workbooks.Open [Auer_Copyfile]
  6. Aktiviere das spezifische Blatt und füge den kopierten Inhalt ein: 
    Workbooks("Auer Success.xls").Sheets("Auer").Range("R4").Paste
  7. Weise der Variable projektname den Wert zu: 
    projektname = ActiveSheet.Range("R4")
  8. Nutze die Windows.activate oder Workbooks.activate-Methode: 
    Workbooks(projektname).Activate

    oder 

    Windows(projektname).Activate

    Stelle sicher, dass der Wert in projektname korrekt ist.

Häufige Fehler und Lösungen

  • Laufzeitfehler bei Windows("projektname").Activate:

    • Stelle sicher, dass projektname den genauen Namen der geöffneten Datei enthält. Bei Variablen ist es wichtig, die korrekte Syntax zu verwenden.

  • Aktivierung funktioniert nicht:

    • Überprüfe, ob die Datei tatsächlich geöffnet ist. Du kannst dies mit einer einfachen If-Abfrage überprüfen: 
      If Not IsWorkbookOpen(projektname) Then
MsgBox "Die Datei ist nicht geöffnet."
Exit Sub
End If

  • Verwendung von .Select:

    • Oft sind .Select-Befehle nicht notwendig und können entfernt werden. Stattdessen direkt auf die Zellen und Bereiche zugreifen.

Alternative Methoden

  • Verwende Workbooks anstelle von Windows:

    • Anstatt Windows.activate, benutze Workbooks("projektname").Activate für eine stabilere und weniger fehleranfällige Methode.

  • Direktes Arbeiten mit Objekten:

    • Vermeide das ständige Aktivieren von Fenstern oder Blättern. Greife direkt auf die Objekte zu, z.B.: 
      Dim ws As Worksheet
Set ws = Workbooks(projektname).Sheets("Zusammenfassung")
ws.Range("C2:D5000").Copy

Praktische Beispiele

Hier ist ein vollständiges Beispiel für die Verwendung von VBA zur Aktivierung eines Fensters und zum Arbeiten mit Excel-Daten:

Private Sub Auer_Sucess_Click()
    Dim projektname As String
    Sheets("Übersicht").Range("R4").Copy
    Workbooks.Open [Auer_Copyfile]
    Workbooks("Auer Success.xls").Sheets("Auer").Range("R4").Paste
    projektname = ActiveSheet.Range("R4").Value
    Sheets("Auer").Range("A2:B5000").ClearContents
    MsgBox projektname
    Workbooks(projektname).Activate
    Workbooks(projektname).Sheets("Zusammenfassung").Range("C2:D5000").Copy
    ' usw...
End Sub

Tipps für Profis

  • Verwende Option Explicit am Anfang Deiner Module, um sicherzustellen, dass alle Variablen deklariert werden. Dies hilft, Fehler zu vermeiden.
  • Nutze Fehlerbehandlung mit On Error GoTo, um sicherzustellen, dass Dein Code auch bei unerwarteten Fehlern stabil bleibt.
  • Arbeite mit With-Blocks, um den Code lesbarer und effizienter zu gestalten: 
    With Workbooks(projektname).Sheets("Zusammenfassung")
  .Range("C2:D5000").Copy
End With

FAQ: Häufige Fragen

1. Warum funktioniert Windows.activate nicht mit Variablen? Es kann sein, dass die Variable nicht den exakten Namen der geöffneten Datei enthält. Überprüfe, ob der Dateiname korrekt ist.

2. Wie kann ich sicherstellen, dass eine Datei geöffnet ist, bevor ich sie aktiviere? Du kannst eine Funktion erstellen, die prüft, ob die Datei geöffnet ist. Das Beispiel mit IsWorkbookOpen hilft dabei.

3. Warum ist es besser, Workbooks.activate anstelle von Windows.activate zu verwenden? Workbooks.activate ist stabiler, da es sich direkt auf die Arbeitsmappe bezieht und nicht auf das Fenster, was zu weniger Fehlern führt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige