Office: Zeile kopieren und Werte in anderer Datei in vorhandener Tabelle einfügen

Hallo und Servus beinand, *sos

habe folgendes Problem:

Da der Vorlagen-Assistent ja in Excel 2010 nicht mehr funktioniert, brauchte ich ein Makro das ähnliches leistet:

Es soll per Button-Click Werte in einer Zeile kopieren, dann die Werte in eine bestimmte Tabelle einer geschlossenen Datei in die nächstleere Zeile einfügen. Der Aufbau der Tabellen ist identisch.

Hab mich schon in verschiedenen Foren durchgearbeitet und einen Code zusammengebastelt, der eigentlich ganz gut funzt.
Das Problem: es wird eine Verknüpfung eingefügt und nicht die Werte.

Bin leider auf VBA noch recht unbeholfen, krieg aber immer wieder was zusammen, aber für einen Spezialisten dürfte das kein Problem sein.

Wer kann mir beim umbauen des folgenden Codes helfen, dass nur die Werte eingefügt werden:

Code:
Sub Kopieren()
Application.ScreenUpdating = False 'Aktualisierungen ausschalten (Flackern beim Ausführen des Makros. einfach mal "auskommentieren" und testen wie es ohne ist :-))
Dim leereZeile 'Variable definieren

Workbooks("FESTEZETTEL Jettenbach neu ab 2017.xlt").Sheets("Tabelle1").Range("A2:AZ2").Copy 'Kopieren der Zellen A2 bis AZ2 in "FESTEZETTEL Jettenbach neu ab 2017.xlt "Tabelle1"
Workbooks.Open "J:Exp_FS_JELeihinventar Jettenbach.xls" 'Datei "Leihinventar Jettenbach.xls" öffnen
leereZeile = Workbooks("Leihinventar Jettenbach.xls").Sheets("Leih").Cells(Rows.Count, 1).End(xlUp).Row + 1 'Erste leere Zeile in der Datei "Festezettel Jettenbach.xlt" auf Tabellenblatt "Leih" finden
Workbooks("Leihinventar Jettenbach.xls").Sheets("Leih").Range("A" & leereZeile & ":AZ" & leereZeile).Select 'Kopierte Daten in erste freie Zeile einfügen
ActiveSheet.Paste 'siehe ein drüber ;-)
With Workbooks("Leihinventar Jettenbach.xls") 'Datei "Leihinventar Jettenbach.xls" speichern und dann schließen
.Save
.Close
End With
Application.CutCopyMode = True 'Kopierspeicher leeren
Application.ScreenUpdating = True 'Aktualisierungen einschalten
MsgBox ("Daten sind erfolgreich übertragen worden") 'Nachricht dass alles ok ist
End Sub




Wär super, wenn mir jemand behilflich sein könnte.

Grüße
tomexp

:)

 

Code:

 

Guten Morgen Haio,
vielen Dank, dass du dich meines Problems angenommen hast.

Leider werden immer noch die Verknüpfungen übertragen,
ich bräuchte aber die reinen Werte. Die Werte kommen aus einer Vorlagen-Datei, so dass immer wieder neue Arbeitsmappen erstellt werden und neue Werte eine Zeile darunter in "Leih" eingetragen werden sollen.
ich hoffe, ich hab mich einigermaßen verständlich ausgedrückt.
Kannst du mir dabei auch noch helfen?

Gruß
tomexp

 

nach folgendem Prinzip.

Code:

 

Guten Morgen Hajo,

hab versucht deinen Vorschlag mit einzubauen,
aber als nicht VBA-Fachmann ist mir das nicht ganz gelungen.

Mein Code sieht jetzt wir folgt aus:

Code:
Sub Kopieren()
Application.ScreenUpdating = False
Dim leereZeile
Workbooks.Open "J:Exp_FS_JELeihinventar Jettenbach.xls"
leereZeile = Workbooks("Leihinventar Jettenbach.xls").Sheets("Leih").Cells(Rows.Count, 1).End(xlUp).Row + 1
Workbooks("FESTEZETTEL Jettenbach neu ab 2017.xlt").Workheets("Tabelle1").UsedRange("A2:AZ2").Copy _
Workbooks("Leihinventar Jettenbach.xls").Sheets("Leih").Range("A" & leereZeile)
With Workbooks("Leihinventar Jettenbach.xls").Worksheets("Tabelle1").Range("A1")
PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False
MsgBox ("Daten sind erfolgreich übertragen worden")
End Sub


Jetzt wird mir folgende Fehlermeldung angezeigt:

Fehler beim Kompilieren:
Benanntes Argument nicht gefunden

Was hab ich falsch gemacht?

Gruaß aus FS

tomexp

 

Du wolltest doch das kopieren durch werte ersetzten, ersetzen.
Man sollte den vorgeschlagen Code schon im Prinzip übernehmen. Ibn VBA sind Punkte sehr wichtig.
Code:

 

Guten Morgen Hajo,

danke, dass du dir weiterhin die Zeit nimmst, mir zu helfen.

Leider bring ich's nicht hin. Jetzt wird immer der Fehler 400 angezeigt.
Hab schon gegooglet, was der Fehler bedeutet, brings aber nicht hin.

Ich würd gern eine Musterdatei hochladen, aber nicht mal das schaff ich .
Darf ich dich nochmal bemühen ?

Gruaß
tomexp aus FS

 

Hallo Hajo,

anbei der Anhang

Vielleicht hilft dir das weiter

Gruß
tomexp

 

Du hast die falsche Datei hochgeladen. Die hat einen anderen Namen als im Code und die Hat auch keine Tabelle "Leih". Ich kann das auch nicht testen da ich auch nicht die Mustervorlage habe.

 

Hallo Hajo,

sorry, hab natürlich die falsche hochgeladen.
Jetzt aber die richtigen.
Kannst du dir das noch mal anschauen?

Danke nochmal

Gruaß
tomexp

 

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

 

Guten Morgen Hajo,

entschuldige, hätte mit angeben müssen, dass ich mit Excel 2003 arbeite.

Danke trotzdem für deine Bemühungen.
Falls du mal in Freising bist, dann besuch mich doch in der Brauerei und hol dir einen Trg , mir ham a guads Bier.

Vielen Dank nochmals.

Gruß
tomexp