Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus einer anderen Tabelle abholen

Werte aus einer anderen Tabelle abholen
20.06.2021 19:00:43
Ingo
Hallo
Ich habe hier ein Makro, um Werte auch einer Tabelle "KKK1" in die aktive Tabelle "KKK2" einzufügen. Leider ist da ein Fehler drin, den ich nicht behoben bekomme. Es kommt eine Fehlermeldung dass der Kopieren- und der Einfügen-Bereich nicht die gleiche Größe haben.
Ich habe im Code A:A stehen, weil der Bereich, der kopiert werden soll, immer wieder mal verschieden groß ist. Es würde also für mich auch reichen, wenn einfach nur der Bereich von Spalte A kopiert wird, bis zu ersten leeren Zeile.

Sub XXX()
' Öffne KKK1.xlsm
Workbooks.Open Filename:="C:\xxx\KKK-1.xlsm"
' Daten der Spalte A aus KKK1 kopieren und in KKK1.xlsm einfügen
Windows("KKK-1.xlsm").Activate
Range("A:A").Copy
Windows("KKK-2.xlsm").Activate
ActiveSheet.Paste
' Schließe KKK1.xlsm
Windows("KKK-1.xlsm").Close
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus einer anderen Tabelle abholen
20.06.2021 19:29:30
Werner
Hallo,
ich bin mal davon ausgegangen, dass die Daten in die Datei kopiert werden, in der sich auch das Makro befindet.

Sub XXX()
Dim wbQuelle As Workbook
' Öffne KKK1.xlsm
Set wbQuelle = Workbooks.Open("C:\xxx\KKK-1.xlsm")
' Daten der Spalte A aus KKK1 kopieren und in KKK1.xlsm einfügen
With wbQuelle.Worksheets("Name_des_Quellblattes")
.Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy
ThisWorkbook.Worksheets("Name_des_Zielblattes").Range("A1").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
.Close False
End With
Set wbQuelle = Nothing
End Sub
Gruß Werner
Anzeige
AW: Werte aus einer anderen Tabelle abholen
20.06.2021 19:41:28
Ingo
Hallo Werner
Deine Annahme war richtig.
Eine Sache hatte ich allerdings vergessen. Der kopierte Teil soll nicht ab A1 eingefügt werden, sondern da wo der Cursor steht. Also ich meine ab der Zelle die aktuell selektiert ist.
Und dann bricht Dein Code kuirz vor Ende auch ab. Der Degugger markiert die Zeile:
.Close False
Gruß
Ingo
AW: Werte aus einer anderen Tabelle abholen
20.06.2021 19:55:09
GerdL
Moin Ingo.
ungetestet, probiere mal.

Sub teste()
Dim X As Range
Set X = ActiveSheet.Cells(ActiveCell.Row, 1) 'Zielzelle einer Range-Variablen zuweisen.
' Öffne KKK1.xlsm
Workbooks.Open Filename:="C:\xxx\KKK-1.xlsm"
' Daten der Spalte A aus KKK1 kopieren und in KKK1.xlsm einfügen
With ActiveWorkbook.Worksheets(1)
.Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy
End With
X.PasteSpecial Paste:=xlPasteValues
' Schließe KKK1.xlsm
Workbooks("KKK-1.xlsm").Close savechanges:= False
Set X = Nothing 'Rangevariable zurücksetzen
End Sub
Gruß Gerd
Anzeige
AW: Werte aus einer anderen Tabelle abholen
20.06.2021 20:00:09
Ingo
Hallo Gerd
Jo fluppt. Super.
Beim Schließen der Quell-Tabelle kommt noch die Frage, ob der doch sehr große Inhalt in der Zwischenablage verbleiben soll. Könnte man das noch lösen, so dass der Inhalt eben nicht in der ZA verbleibt?
Gruß
Ingo
AW: Werte aus einer anderen Tabelle abholen
20.06.2021 20:10:52
GerdL
Na immerhin,
füge nach der Codezeile mit "PasteSpecial"
Application.CutCopyMode = False
ein.
Gruß Gerd
AW: Werte aus einer anderen Tabelle abholen
20.06.2021 23:39:28
Ingo
Hallo Gerd
Gro0artig. Nun läuft alles so wie es soll. Morgen mache ich dann den finalen Test.
Danke vielmals!
Gruß
Ingo

300 Forumthreads zu ähnlichen Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
3 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Werte in anderes Tabellenblatt übertragen
Marcus

Hallo, zusammen,
Ich habe hier ein dolles Makro, was mir hier jemand aus diesem Forum geschrieben hat. Dieses Makro funktionierte bisher auch ganz gut, bis durch ein Zufall ein Fehler entdeckt wurde. Dieser Fehler liesse sich durch genau festgelegte Bedingungen umgehen, aber vielleicht läss...
03.10.2009 20:46:05
Thread-ID: 1106914
6 Beiträge
Werte aus Userform in andere Tabelle
Ewald

Hallo
Habe eine Userform mit drei Comboboxen (Land,Namen,Zahl) und 2 Button (Speichern,Abbrechen)
Die Comboboxen und der Button "Abbrechen" funktioniern
Was mir noch fehlt ist die Funktion für den Button "Speichern".
Beim Klicken soll folgendes passieren:
Die Werte aus Com...
21.10.2009 20:27:23
Thread-ID: 1111170
3 Beiträge
Übernahme eines Wertes aus einer anderen Tabelle
Carsten

Ich möchte per Function einen Wert aus einem anderen Tabellenblatt übernehmen. Dazu muss ich im andereren Tabellnblatt eine Spalte bis zu einem bestimmten Wert durchlaufen und den Wert in der rechten Nachbarzelle zurückgeben.
Muss ich das andere Tabellenblatt selektieren oder aktivieren? Be...
26.11.2009 18:28:47
Thread-ID: 1120327
2 Beiträge
Werte in andere Tabelle übertragen
kalle

hillfee !!!folgendes problem:in einer spalte(B) sollen die zellen nach und nach mit dem vorgabetext("fix") verglichen werden und bei übereinstimmung der zugehörige wert in der selben Zeile der Spalte C ausgegeben werden. Die Ausgabe soll in ein anderes Blatt übertragen werden.ich hoffe es gibt...
11.04.2002 11:55:31
Thread-ID: 112389
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
1
2
2
1
5
2
1
2
2
6
10
3
7
9
7
8
11
9
8
11
9
3
2