Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon roger.k vom 16.09.2021, 19:26 Options

VBA Mappenname aus Zelle gebrauchen um Mappe zu aktivieren

Hallo Zusammen

Nur eine kurze Frage:

Ich habe Mappenwechsel teilweise bei mehr als 2 geöffneten Mappen

Ich habe den Mappenname den ich brauche bereits in
A2 wie kann ich diesen Namen nun per VBA aus der Zelle rauslesen
um die jeweilige mappe zu aktivieren?

Vielen Dank für die Hilfe

MfG Roger

Antwort schreiben

Antwort 1 von Saarbauer vom 16.09.2021, 19:34 Options

Hallo,

ich hoffe es richtig verstanden zu haben, müsste so gehen

Name = Range("A2").Value

Gruß

Helmut

Antwort 2 von roger.k vom 17.09.2021, 13:13 Options

Hallo Helmut

Ja dies ist nicht schlecht aber es funktioniert nicht bei mir

In A2 steht : roger test Kopie.xlsx

ich möchte diese Mappe nun aktivieren
(activate) habe über 3 geöffnete Mappen

Habe es so probiert es funktioniert aber auch nicht

Workbooks.Open Filename:=[A1]

MfG Roger

Antwort 3 von coros vom 17.09.2021, 14:02 Options

Hallo
müsste mit

workbooks(Range("A2")).Activate

funktionieren.

Gruß
OLiver

Antwort 4 von roger.k vom 18.09.2021, 10:17 Options

Hallo Oliver

Das hört sich sehr gut an

ich bekomme jedoch den

Laufzeitfehler 13
Typen unverträglich

MfG Roger

Antwort 5 von coros vom 18.09.2021, 10:48 Options

Hallo Roger,

dann schreibe

Workbooks(Range("A2").Text).Activate
in den VBA-Code, dann sollte es gehen.

PS: Als ich gestern geantwortet habe lag ich bei der Akkupunktur auf der Liege. Eventuell ist mir deshalb die Eigenschaft ".Text" entfallen.

MfG,
Oliver

Antwort 6 von roger.k vom 18.09.2021, 11:24 Options

Hallo Oliver

Es gibt mir immer noch einen Laufzeitfehler an.

Ich konnte es jetz noch anders lösen:

Dim n As String
n=[A2]
Windows(n).Activate

Trodzdem vielen Dank für deine Hilfe

MfG Roger

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken