Office: Aktivieren Eines Fensters mit einer Variablen (windows().activate)

Moin zusammen,

trotz eifriger Suche komme ich nicht zum Erfolg und hoffe auf mildtätige Hilfe.

Normalerweise arbeite ich in OpenOffice muss hier aber für jemand eine ziemlich aufwändige bauphysikalische Tabelle in Excel 2016 übertragen. Das hat auch soweit gut funktioniert, nur bei einem kleinen Makro hänge ich fest (wobei ich mich in Makros auch in OO so gut wie gar nicht auskenne = Makrorekorder und Cut&Paste sind meine häufigsten Werkzeuge*redface )

Was will ich erreichen: Um dem Nutzer die Möglichkeit zu geben, Daten der Arbeitstabelle nach eigenem Gusto zu verändern und zu sortieren, ohne dass er sich aber die Formeln in dieser Arbeitstabelle zerschießt, möchte ich die Daten (nur als Werte) in eine eigene leere Mappe übertragen. Pfad und Name der neuen Datei stehen kann der Nutzer in dafür vorgesehen Zellen eintragen und stehenden (verkettet mit Datum und Uhrzeit) in der Zelle AK2 zur Verfügung. Unter dem Namen aus dem Zellwert AK2 soll die Datei abgespeichert werden. Nach dem Abspeichern möchte ich zurück zur Quelldatei, die Selektion, die da ja noch den ganzen Datenbereich umfasst auf eine Zelle (sagen wir mal A1) beschränken (auch hier wieder zum Schutz der Daten), dann wieder zurück zur neuen Datei und dort auch wieder auf A1 und Ende.

All das klappt auch schon, bis auf den vorletzten Schritt: Das "Zurück zur neu erzeugten Datei". Der Dateinamen steht in Zelle AL1. Den Zellwert wollte ich der Variable "dbNameCell" zuweisen und diese dann in Window(dbNameCell).Activate nutzen. Habe schon zig Versionen durch, klappt aber nicht. Die aktuelle Version des Makros hängt sich mit Laufzeitfehler 9, "Index außerhalb des gültigen Bereichs auf" (habe aber schon zig Fehlernummern durch).

Liegt's diesmal daran, dass dbNameCell als String definiert ist? Wie geht's richtig?

Vielen Dank schon einmal!



So sieht das Makro aktuell aus:

Sub Erzeuge_Datenbasis()


' Selektieren der zu übertragenden Daten

Range("A3:AK273").Select
Selection.Copy

ActiveWindow.LargeScroll ToRight:=-1

' Erstellen einer neuen Arbeitsmappe und Einfügen der Daten als Werte

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' Definition der Variablen für Pfad und Dateiname und nur Dateiname

Dim dbPathAndFileName As String
Dim dbNameCell As String

' Übernahme des Wertes aus AL1 in dbNameCell

dbNameCell = [AL1]

' Übernahme des Wertes aus AK1 als Pfad- und Dateiname und Abspeichern der Datei

dbPathAndFileName = Application.GetSaveAsFilename(InitialFileName:=[AK1], fileFilter:="Excel-Arbeitsmappe,*.xlsx")

If dbPathAndFileName "False" Then
ActiveWorkbook.SaveAs dbPathAndFileName
End If


' Zurück zur Quelldatei, Deselektion der ausgewählten Daten und Selektion von A1 (verbundene Zellen bis U1)

Windows("Quelldatei.xlsm").Activate
Range("A1:U1").Select
Application.CutCopyMode = False

' Fehlgeschlagene Aktivierung der Zieldatei

Windows(dbNameCell).Activate
Range("A1").Select


End Sub

:)

 

Hallo,

ohne den Code im Detail angesehen zu haben:

Code:

mfg

 

Hallo, hat sich erledigt.

für Leute die mal vor die gleiche Pumpe laufen hier (m)eine Lösung:

Schönen Tag noch!