Clever-Excel-Forum

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

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

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

Heino

schauan

Gast 123