Benötige Hilfe für Aktualisierung einer Tabelle

Hallo,
erstmal vorab:
Ich weiß mein Anliegen ist viel verlangt, aber ich schreibe viele Aufmaße und Rechnungen Ihr würdet mir wirklich sehr helfen.
Habe auch fürs Verständnis eine Beispielmappe eingestellt:
https://www.herber.de/bbs/user/33972.xls
ich würde gerne folgendes per VBA erreichen:
In der gesamten Spalte A des Blattes DATEN der Arbeitsmappe MASSE sollen Nummerierungen (Positionswerte) erkannt werden, welche nicht in dem Blatt RECHNUNG ab Zeile 24 in einer anderen geöffneten Arbeitsmappe (Mappe AUFSTELLUNG ) vorkommen.
Diese nicht vorhandenen Werte aus der Arbeitsmappe MASSE mit dem Blatt DATEN sollen dann nach Möglichkeit der Reihenfolge nach in die Mappe AUFSTELLUNG Blatt RECHNUNG zwischen die Zeilen zugefügt werden mit einer neuen Zeile.
Im Blatt RECHNUNG darf kein Wert gelöscht werden !!
Des weiteren habe ich hierbei ein Problem mit der Bezeichnung Der Mappe MASSE . Diese fängt zwar immer mit der Bezeichnung MASSE an hat aber immer noch einen weiteren Zusatz wie z.B. MASSE domo1, MASSE domo2 oder auch MASSE thyssen1, MASSE thyssen2. Kann man dem Script beifügen, dass es die jeweilige geöffnete Mappe dennoch erkennt ?
Gruß Nicole

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nicole,
ich hab mit folgendem Code mal versucht dein Problem zu lösen. Am besten speicherst du das Makro in einer eigenen Arbeitsmappe oder in der persönlichen Makro-Arbeitsmappe. Da das Makro auch das öffnen der Dateien steuert, müssen vor dem Start des Makros die Aufstellungs und die MASSE-Datei geschlossen sein. Dadurch ist beim Ablauf des Makros sichergestellt, dass die Dateien jeweils korrekt angesprochen werden. Wichtig ist, das die Positionen in Tabelle DATEN und Tabelle Rechnung auf gleiche Weise sortiert sind!


Sub MASSE_Rechnung_aktualisieren()
'Aktualisiert die Tabelle Rechnung mit Daten aus der Tabelle DATEN
Dim wbMASSE As Workbook, wbAufstellung As Workbook, wksRechnung As Worksheet, wksDaten As Worksheet
Dim ZeileR As Long, ZeileD As Long, Datei
MsgBox "Als nächstes bitte Arbeitsmappe MASSE xxx öffnen"
If Application.Dialogs(xlDialogOpen).Show = False Then Exit Sub
Set wbMASSE = ActiveWorkbook
Set wksDaten = wbMASSE.Worksheets("DATEN")
MsgBox "Als nächstes bitte Arbeitsmappe Aufstellung öffnen"
If Application.Dialogs(xlDialogOpen).Show = False Then Exit Sub
Set wbAufstellung = ActiveWorkbook
Set wksRechnung = wbAufstellung.Worksheets("Rechnung")
If MsgBox("Rechnung aktualisieren?", vbYesNo + vbQuestion, "Masse in Rechnung übertragen") _
= vbNo Then Exit Sub
ZeileR = 24 ' Startzeile der Einträge in Rechnung
ZeileD = 4 ' Startzeile der Einträge in DATEN
Do Until ZeileD = wksDaten.UsedRange.Row + wksDaten.UsedRange.Rows.Count
With wksRechnung
If IsEmpty(.Cells(ZeileR, 1)) Then 'in Rechnung noch keine Daten vorhanden
.Cells(ZeileR, 1).Value = wksDaten.Cells(ZeileD, 1).Value
.Cells(ZeileR, 2).Value = wksDaten.Cells(ZeileD, 2).Value
.Cells(ZeileR, 3).Value = wksDaten.Cells(ZeileD, 3).Value
ZeileR = ZeileR + 1
ZeileD = ZeileD + 1
Else
If .Cells(ZeileR, 1).Value = wksDaten.Cells(ZeileD, 1) Then ' Pos.Nr. ist in Rechnung vorhanden
ZeileR = ZeileR + 1
ZeileD = ZeileD + 1
Else
Do Until .Cells(ZeileR, 1).Value = wksDaten.Cells(ZeileD, 1)
.Cells(ZeileR, 1).EntireRow.Insert ' Leerzeile in Rechnung einfügen
.Cells(ZeileR, 1).Value = wksDaten.Cells(ZeileD, 1).Value
.Cells(ZeileR, 2).Value = wksDaten.Cells(ZeileD, 2).Value
.Cells(ZeileR, 3).Value = wksDaten.Cells(ZeileD, 3).Value
ZeileR = ZeileR + 1
ZeileD = ZeileD + 1
If ZeileD = wksDaten.UsedRange.Row + wksDaten.UsedRange.Rows.Count Then Exit Do
Loop
End If
End If
End With
Loop
End Sub

Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Benötige Hilfe für Aktualisierung einer Tabelle

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Benötige Hilfe für Aktualisierung einer Tabelle

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread