Blatt (ohne evtl. vorhandenen VBA-Code) aus anderer Datei holen.

[BitDoctor]

Hallo ihr Lieben,

ich habe mir zwar bereits eine funktioniere "Routine (noch Bastelstatus)" erstellt, würde aber gerne horchen, ob das vlt. doch eleganter machbar ist.

In einem "Tool" zum Abgleich/Vergleich von zwei Tabellenblättern aus unterschiedlichen Dateien, kann es vorkommen, dass eines der gewählten Blätter eigenen Code enthält. Damit der in dem "Tool" nicht unvorhergesehenes auslöst, sollte der nicht mit kopiert werden.
Mein Ablauf speichert das zu holende Blatt temporär in einer .xlsx und sorgt somit beim erneuten Öffnen, dass dann kein Code mehr enthalten ist.
Diese Blatt kopiere ich dann in mein Tool. Funktioniert zwar, empfinde ich aber als "Oberbastelei"
Ich habe keinen anderen7zuverlässigeren Weg auf dem Schirm. Ihr vielleicht ?

Codeauszug:

Code: Alles auswählen

            If Start.CodeKill_btn = True Then
                     Application.ScreenUpdating = False
                        wbAlt.Sheets("" & BL & "").Copy
                        Application.DisplayAlerts = False
                        ActiveWorkbook.SaveAs "tmp.xlsx"
                        Application.EnableEvents = False
                           Cells.Select
                           Selection.Copy
                           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                               :=False, Transpose:=False
                        Application.EnableEvents = True
                        
                        ActiveWorkbook.Close savechanges:=True
                        Application.DisplayAlerts = True
                           Dateipfad = ActiveWorkbook.Path
                           Dateiname = "\tmp.xlsx"
                           Workbooks.Open (QPath & Dateiname)
                        Set wbtmp = Workbooks(wstmp)
                        wbtmp.Sheets("" & BL & "").Copy Before:=ThisWorkbook.Sheets(1)
                        ThisWorkbook.Sheets("" & BL & "").Move After:=Sheets(Sheets.Count)
                        ActiveWindow.Zoom = 100
                     wbtmp.Close savechanges:=False
                     wbAlt.Close savechanges:=False
                     Kill ("tmp.xlsx")
            ElseIf Start.CodeKill_btn = False Then
               wbAlt.Sheets("" & BL & "").Copy Before:=ThisWorkbook.Sheets(1)
               ThisWorkbook.Sheets("" & BL & "").Move After:=Sheets(Sheets.Count)
               ActiveWindow.Zoom = 100
               wbAlt.Close savechanges:=False
            End If

[d'r Bastler]

Moin Herr Doctor,

lässt Du ein bisschen mehr wissen, wie Dein Snippet einzuordnen ist: Als Bestandteil einer Userform oder eines ActiveX-Buttons? Als Aufgabe habe ich verstanden: Hole Daten aus Workbook_B.Sheets(X) nach Workbook_A.Sheets(X). Kommt das hin?

lg

[d'r Bastler]

Moin allerseits,

in der Hoffnung damit BitDoctors Bedarf getroffen zu haben, hier mal eine Schnellbastelei, die schon folgendes kann:

• Per Userform werden alle XL-Dateien im selben Verzeichnis in eine ComboBox eingelesen*

• Ist dort eine Datei ausgewählt, werden deren Arbeitsblätter in einer zweiten Combox zur Auswahl gestellt. Dabei wird die Datei weder sichtbar geöffnet, noch verändert.

• Ein CommandButton startet den Kopiervorgang ins aktive Blatt der aufrufenden Tabelle.

* Es sollten natürlich schon ein, zwei Dateien vorhanden sein, die aufrufende Datei und die Tilde bleiben außen vor.

Da ist natürlich noch viel Feintuning möglich, aber vielleicht ein Ausgangspunkt für Verbesserungen ...

theCopyCat.xlsm

(24.94 KiB) Noch nie heruntergeladen

Viel Spaß damit!

[BitDoctor]

Halloooo aber natürlich ,
nach betätigen eines Active-X Buttons wird man gebeten via "= Application.GetOpenFilename.." 2 Dateien (inkl. nachfolgender Blattwahl) zu wählen.
Dann werden diese beiden Blätter in die "ToolDatei" kopiert.
Und genau da ist der Code-Schnipsel dran. s.o.

WinkeGrüße

[BitDoctor]

Dein CopyCat schaue ich mir noch im Detail an.

hier noch ein Schnipsel die 2. Datei danach identisch - mit dem "BlQuelleZ = Import....." wirkt dann obriger Codeteil der die Blattwahl und das "Blattkopieren" übernimmt.

Code: Alles auswählen

   xlZ = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xl*),*.XL*", , "Bitte als erstes die *Ziel*-Datei öffnen und danach die *Quell*-Datei")
   If xlZ = "Falsch" Then GoTo DATFEHLER
      Set WBQuelleZ = Workbooks.Open(Filename:=xlZ, ReadOnly:=True)
         BlQuelleZ = Import("" & xlZ & "", WBQuelleZ.Worksheets.Count)
   If BlQuelleZ = "" Then Exit Sub
   strNameZ = Dir(xlZ)
   strPathZ = Left(xlZ, InStrRev(xlZ, "\"))   'Pfad("" & xlZ & "")
   strPathZ = IIf(Right$(strPathZ, 1) = "\", strPathZ, strPathZ & "\")
   NameOhneXLS = RechtsWeg(strNameZ, ".")
   ActiveSheet.Name = BlQuelleZ & "_Z"
   BlQuelleZ = ActiveSheet.Name
   Application.EnableEvents = False
   Start.Range("S2").Value = BlQuelleZ
   Application.ScreenUpdating = True
   On Error Resume Next
      ÜSPZ = InputBox("In welcher Zeile befinden sich die Überschriften ?" & vbCrLf & vbCrLf & "ohne Eingabe = Abbruch", "Überschriftenzeile", 3)
      If ÜSPZ = 0 Then
   Application.ScreenUpdating = False
      Application.DisplayAlerts = False
         Sheets(BlQuelleZ).Delete
         Start.Range("E21").Select
      Application.DisplayAlerts = True
         Exit Sub
      ElseIf ÜSPZ < 0 Then
         GoTo Formset  'ÜSPZ = 1
      End If
   On Error GoTo 0
   Start.Range("N5").Value = ÜSPZ
   Start.Range("AA1").FormulaLocal = "=N5"
    Start.Range("N5").Interior.Color = RGB(235, 248, 255)
   ChDir strPathZ

Theoretisch läuft das ja alles. Ich dachte halt evtl. einen besseren Weg zur Code-Befreiung zu finden, als das Zwischenspeichern über eine temporäre .xlsx.

[BitDoctor]

Moin allerseits,

in der Hoffnung damit BitDoctors Bedarf getroffen zu haben, hier mal eine Schnellbastelei, die schon folgendes kann:

Da ist natürlich noch viel Feintuning möglich, aber vielleicht ein Ausgangspunkt für Verbesserungen ...

Hallo heb,

danke für deinen schnellen Schuss. Ich habe mir deine CopyCat angeschaut. Guter Ansatz (ähnlich hatte ich gaaanz am Anfang auch versucht)
Und für manche Tabellen-Aufbauten auch gut geeignet. Durch das kopieren der Zellinhalte verliert das Blatt aber sein "Outfit" und das ist, zumindest an der Stelle, ungewünscht. Darum der Weg über Blatt kopieren.

[d'r Bastler]

aaah .... jetzt kommen die relevanten Informationen

Moin,

wie gesagt ist the CopyCat ausbaufähig. z.B. mit einer Mehrfachauswahl in den ComboBoxen und einer CheckBox auch Formatierungen mitzunehmen. Bloß bei verbundenen Zelle steige ich aus und verweise auf thowes Kommentar in Deinem ersten Thread.

lg

[BitDoctor]

Ungeachtet Allem, Danke für dein tun.
Die eigtl. Frage abgekürzt.

Gibt es einen Weg, aus einer anderen Datei ein Blatt in eine Datei zu holen(Blatt kopieren) ohne den evtl. vorhandenen VBA-Code mit zu kopieren ?

[d'r Bastler]

Deine Abkürzung so einfach mit Ja/Nein zu beantworten, geht leider nicht.

Da spielen verschiedenen Aspekte eine Rolle: Enthält das Quellblatt Formeln mit Bezügen zur Quellmappe? Willst Du diese mitnehmen und auf die Zielmappe übertragen, oder nur die Daten + eventuelle Formatierungen?

Du hast ober geschrieben, dass Du den Weg über eine xlsx versucht hast. Bedeutet das, dass Du nur Formeln verwendest, die sich im Quellblatt auf dieses selbst beziehen? Oder sind es mehrere Blätter, die sich auch per Formel auf einander beziehen?

Vielleicht stellst Du mal zwei (natürlich anynomisierte, aber ansonsten vollständige) Mappen /Quelle/Ziel hier ein. Sonst bleibt es ziemlich nebulös und schlecht zu verstehen.

Als reine Datenschaufel (also nur Werte keine Formeln, kein VBA) eignet sich theCopyCat schon in seiner o.g. Version. Die in Arbeit befindliche nächste Runde sieht dann so aus und lässt sowohl bei Mappen wie Blättern Mehrfachauswahl zu. Am Code schnitze ich noch.

v0.2.jpg (43.86 KiB) 1688 mal betrachtet

Die linke Listbox wird beim Öffnen gefüllt, die zweite durch die Auswahl links, die rechte durch Doppelklick in der Mitte. Falsche Auswahl kann gelöscht werden. Die beiden Buttons in den Frames sind ToggleButtons mit zwei Optionen

lg

[xlKing]

Hallo zusammen,

Dann schalt ich mich auch mal mit ein:
@Bastler: Wenn du mit der rechten Maustaste auf ein Tabellenblatt gehst, kannst du das kopieren oder verschieben. Dabei werden nicht nur die Daten sondern auch Seiteneinstellungen, Kopfzeilen usw. mit übernommen. persönlich finde ich das in vielen Fällen nützlicher als das rumgewurschtel mit Copy und Paste. Hast du sicher auch schon genutzt. Der Code um ein Blatt in eine Neue Arbeitsmappe zu bekommen lautet Activesheet.Copy

@BitDoctor: Ich würde das Blatt weiterhin mitsamt dem Code in die Zielmappe kopieren und dann den Code dort am Ende des Makros mit folgenden Zeilen löschen:

Code: Alles auswählen

Dim ZielWorkbook As Workbook

'Set ZielWorkbook = ...

With ZielWorkbook.VBProject.VBComponents(ZielWorkbook.Sheets(1).CodeName).CodeModule
  .DeleteLines 1, .CountOfLines
End With

Damit sparst du dir den Zwischenschritt über Speichern als xlsx.

Gruß Mr. K.