Werte aus Tabelle in eine andere Mappe

[Heino]

Hallo,
ich bin neu in diesem Forum.
Habe hier schon viele nützliche Lösungen gefunden.

Aber jetzt gerade stehe ich voll auf dem Schlauch.
In einer Tabelle "Liste" werden über eine Userform Werte eingetragen.

Diese Werte sollen in einer anderen Arbeitsmappe Tabelle " Auswertung" übertragen werden.
Das ganze sollte ohne SVERWEIS  oder sonstigen Formeln in dieser Tabelle geschehen.

Kann mir hierzu jemand einen Lösungsansatz geben.

Gruß
Heino

[schauan]

Hallo Heino,

1)
ändere den Code in Deinem Userform so, dass damit auch gleich die Werte in die andere Mappe übertragen werden

2)
hole Dir die Daten in der anderen Mappe mit PowerQuery

[Gast 123]

Hallo

vom Kollegen Schauen liegt ja bereits eine Lösung vor, ich ergaenze den Gedanken nur mit einem Beispiel Makro. In weiche Zeile die Daten in der Auwertung gehören war nicht zu erkennen. Man kann eine genaue Zeile angeben oder unten anhaengen. Bitte nur Eins von beiden nehmen.

mfg Gast 123

Code:

Option Explicit
Const ExWb = "externe Mappe"    'Name der Mappe (Aıswertung) angeben

'Makro zum Daten in ander Mappe übertragen
'Beispiel, die xxx Felder bitte selbst ausfüllen

Sub Auswertung_ausfüllen()
Dim Zeile As Long    'LastZelle in Auswertung
Dim ASW As Object    'externe Mappe als Objekt

'externe Mappe mit Tabelle auf "Objekt" aetzen
Set ASW = Workbooks(ExWb).Worksheets("Auswertung")

With ThisWorkbook.Worksheets("Liste")
     'LastZell in Auswertung zum anhaengen suchen
     Zeile = ASW.Cells(Rows.Count, "xx").End(xlUp).Row + 1
     Zeile = xxxx   ' ODER definierte Zeile setzen
    
     .Range("xxx").Copy   'Bereich in Liste kopieren
     'in Auswertung unter Zeile/Spalte einfügen
     ASW.Cells(Zeile, spalte).PasteSpecial xlPasteValues
     applicatin.CutCopyMode = False
End With
End Sub