Registriert seit: 18.02.2021
Version(en): 2019
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 12.03.2016
Version(en): Excel 2003
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
