Arbeitsblatt mit VB kopieren
max
ich verzweifle. Ich komme einfach nicht auf die Lösung und habe mich nun schon Tage durchs Internet getrollt und versucht mit meinem bescheidenen VBA Wissen was zu reißen. Ihr seid meine letzte Hoffnung.
Ich habe 1 Arbeitsmappe (Excel Datei1). In dieser wird über eine Userform eine Abfrage gestartet über welche ich 2 Informationen bekomme:
1 ExcelDateinamen(Excel Datei2) & den Pfad zu dieser.
Nun möchte ich "einfach" in dieser Excel Datei(Excel Datei2) die Arbeitsmappe: Tabelle1 in meine vorhandene ExcelDatei(Excel Datei1) importieren.
Ich schaffe das leider nicht.
Habe hier schon 2 Lösungen rausgesucht wo ich denke das sie klappen sollten aber mir fehlt das KnowHow um den Code zu verstehen:
Code1:
StandardModule: Modul1
Sub TabImport()
Dim wkb As Workbook
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook
Worksheets(1).Copy after:=.Worksheets(.Worksheets.Count)
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Code2:
Sub Eintragen()
Dim sTxt As String
Dim rng As Range, rngCell As Range
sTxt = "'" & Range("B1").Value
sTxt = sTxt & "[" & Range("B2").Value & "]"
sTxt = sTxt & Range("B3").Value & "'!" sTxt = sTxt & Range("B4").Value
Set rng = Worksheets("Ziel").Range(Range("B4").Value)
rng.Cells(1).Formula = "=if(" & sTxt & "="""",""""," & sTxt & ")"
rng.Cells(1).Copy rng
rng.Value = rng.Value
rng.Columns.AutoFit
rng.Parent.Select
End Sub
Ich hoffe ihr könnt damit merh Anfangen als ich.
Bin euch für eure Hilfe merh als Dankbar.
Alles Gute Gruß max