Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1516to1520
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
Inhaltsverzeichnis

Bel. Bereiche aus neu geöffneter Datei importieren

Bel. Bereiche aus neu geöffneter Datei importieren
15.10.2016 12:35:14
Matthias
Guten Tag,
ich stehe vor folgendem Problem:
Ich öffne über ein Makro mittels Auswahlfenster eine andere Excel-Datei mit folgendem Code:
Sub OeffneDatei()
Dim Dateiauswahl As Variant
Dateiauswahl = Application.GetOpenFilename
If Dateiauswahl  False Then
Workbooks.Open Filename:=Dateiauswahl
Else
MsgBox "Es wurde keine Datei für den Import ausgewählt!", , "Import abgebrochen!"
Exit Sub
End If
End Sub

In der neu geöffneten Datei möchte ich jetzt bestimmte Bereiche auswählen und mittels STRG+i in die ursprüngliche Datei mit folgendem Code importieren:
Sub CopyPaste()
Dim CountRows As Integer
Dim CountColumns As Integer
CountRows = Selection.Rows.Count
CountColumns = Selection.Columns.Count
If CountRows 
Problem: Die neu geöffnete Datei ist nach dem öffnen aktiv und kennt obiges Makro zum importieren und damit die Tastenkombination STRG+i nicht.
Welche Möglichkeit habe ich, den manuell ausgewählten Bereich mittels STRG+i aus der neu geöffneten Datei in die alte Datei zu importieren?
Recht herzlichen Dank im Voraus :-)

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

Betreff
Datum
Anwender
Anzeige
AW: Bel. Bereiche aus neu geöffneter Datei importieren
15.10.2016 15:05:19
Bastian
In DieseArbeitsmappe kopieren dann das Workbook einmal speichern und neu öffnen

Private Sub Workbook_Open()
Application.OnKey "^i", "CopyPaste"
End Sub
Bei

Sub CopyPaste()
Dim CountRows As Integer
Dim CountColumns As Integer
CountRows = Selection.Rows.Count
CountColumns = Selection.Columns.Count
If CountRows 
Soltest du
  Workbooks(wbn).Worksheets("Eingabe Punkte").Range("Name1").PasteSpecial xlPasteValues

durch dieses ersätzen
  Thisworkbook.Worksheets("Eingabe Punkte").Range("Name1").PasteSpecial xlPasteValues
Gruß Basti
Anzeige
AW: Bel. Bereiche aus neu geöffneter Datei importieren
15.10.2016 15:50:15
Matthias
Hallo Basti,
vielen herzlichen Dank für deine Mühe.
Leider kommt nach wie vor die Fehlermeldung: "Das Makro "C:\... kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert.
Leider ist es auch nicht möglich das Makro in "Personal.XLSB" zu deklarieren, da es von sehr vielen Usern benutz wird.
Ich habe nun eine andere Lösung gefunden, indem ich das Makro der Ausgangsdatei anhalte, dann den Bereich wähle und das Makro im Anschluss fortsetze. Dadurch wird die geladene Datei nie aktiv und er erkennt die Makros.
Sub OeffneDatei()
Dim Dateiauswahl As Variant
Dim CountRows As Integer
Dim CountColumns As Integer
MsgBox "Datei für den Import auswählen!", , "Datei wählen!"
Dateiauswahl = Application.GetOpenFilename
If Dateiauswahl  False Then
Workbooks.Open Filename:=Dateiauswahl
UserForm1.Hide
MsgBox "Bitte zu importierenden Bereich markieren und mit 'ESC' den Importvorgang starten!", _
, "Bereich wählen!"
Do
DoEvents
If (GetAsyncKeyState(&H1B))  0 Then Exit Do
Loop
CountRows = Selection.Rows.Count
CountColumns = Selection.Columns.Count
If CountRows 
Leider ist diese Variante unschön, weil man in der so geöffneten Datei nur Bereiche des zuletzt gespeicherten Tabellenblattes auswählen kann.
Eine andere Lösung wäre mir deutlich lieber...
Anzeige
AW: Bel. Bereiche aus neu geöffneter Datei importieren
15.10.2016 19:38:08
Matthias
Danke für deine Mühe Bastian.
Hab nun den Fehler im Ausgangscode gefunden.
Das Makro "CopyPaste()" muss in eine Modul.
Jetzt funktioniert es so wie es soll.
Vielen Dank nochmals und einen schönen Abend!

22 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige