Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro für Daten von einem Tabellenblatt ins andere

Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 15:13:29
Dominik97
Hallo zusammen,

ich bräuchte bitte ein Makro zum kopieren von Daten von einem Tabellenblatt ins andere.

Ich habe im Tabellenblatt ABLAGE die Daten gesichert und diese werden auch immer wieder erweitert.

Kann man Daten von diesem Tabellenblatt in das andere kopieren mit VBA?

Das soll wenn's geht so ablaufen: Das Makro sucht im Tabellenblatt Zahlungen die letzte bekannte Rechnungsnummer (ist in Spalte B)
und holt sich dann die dementsprechende Daten ab der nächsten Rechnungsnummer von der Ablage.

Ich brauche nur die Daten im die in der Tabelle im Reiter Zahlungen aufgelistet sind.

Beispieldatei ist hochgeladen :-)

https://www.herber.de/bbs/user/172520.xlsm

Ich hoffe ihr könnt mir da weiterhelfen....

Danke & lg dominik
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 15:43:06
Eifeljoi 5
Hallo

Warum VBA?
Warum doppelte Datenhaltung?
Nur wenn es absolut sein muss und die Daten in der Eingabe nicht gelöscht werden könnte man eventuell mit PQ arbeiten.
AW: Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 16:25:39
Piet
Hallo

unklar ist mir, warum 29 leere Module im Beispiel sind? Sind die alle mit Makros belegt.
Mit diesem kleinen Makro sollte das kopieren einwandfrei klappen

mfg Piet

Option Explicit

Dim rfind As Range, lz1 As Long
Dim ReNr As Variant, lz2 As Long

Sub Daten_übertragen()
Dim ABL As Worksheet, Zahl As Long
Set ABL = Worksheets("Ablage")
With Worksheets("Zahlungen")
On Error GoTo Fehler
'LastZell in Ablage + Zahlungen suchen
lz1 = .Cells(Rows.Count, 2).End(xlUp).Row
lz2 = ABL.Cells(Rows.Count, 2).End(xlUp).Row
ReNr = .Cells(lz1, 2).Value
'Rechnungs Nr. in Ablage suchen
Set rfind = ABL.Columns(2).Find(What:=ReNr, After:=[b1], LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If rfind Is Nothing Then MsgBox ReNr & " Diese Rechnungs Nr. existiert nicht!": Exit Sub

'Prüfung ob Daten bereits kopiert wurden
If rfind.End(xlDown).Row > lz2 Then _
MsgBox "Diese Daten wurden bereits kopiert!", vbInformation: Exit Sub

If Not rfind Is Nothing Then
Zahl = lz2 - rfind.Row 'Anzahl für Resize
rfind.Offset(1, -1).Resize(Zahl, 14).Copy
.Cells(lz1, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
End With
Exit Sub
Fehler: MsgBox "Unerwarteter Fehler" & vbLf & Error()
End Sub

Anzeige
AW: Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 16:29:21
Dominik97
ah super danke! Das ist nur eine Testdatei... lg dominik
AW: Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 16:37:13
Piet
Hallo

oh, da waren die Kollegen viel schneller. Habe ich jetzt einen Feuerdrachen ins Forum gesetzt??
Ist zum Glück KEIN "griechischer Feuerdrache", den kann man mit Modul Delete löschen!!

Mfg Piet
AW: Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 15:49:06
Dominik97
Hallo, in den 2. Tabellenblatt kommen noch weitere Spalten hinzu wo man manuell die Positionen auf bezahlt setzten kann.
Das Tabellenblatt Ablage dient nur zur Ansicht. Deshalb hätt ich mir gedacht ein Makro könnte helfen - die Daten von der Ablage in das hier zu kopieren.
lg dominik
Anzeige
AW: Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 16:19:34
Yal
Moin,

bin auch der Meinung, dass doppelte Datenhaltung = doppelte Fehlerquelle.

Setzt dich mit Filterungsmöglichkeiten auf der Haupttabelle, bevor Du dir eine Feuerdrache wie VBA ins Haus holst.

Siehe Menü "Einfügen", "Tabelle". Dann hast Du eine Sog. "intelligente Tabelle", was schon vieles abdeckt.
Dann kannst Du noch drauf rechtsklicken und "Daten aus Tabelle/Bereiche abrufen..." und bist in Power Query Welt.

Siehe dazu https://excelhero.de/power-query/power-query-ganz-einfach-erklaert

VG
Yal
Anzeige
AW: Makro für Daten von einem Tabellenblatt ins andere
01.10.2024 16:24:15
Dominik97
ok danke ich schaus mir mal an.
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige