Office: VBA-Automatische Aktualisierung und Einfügen von kopierten Zellen

Hallo,

ich habe eine Frage, vielleicht kann mir dabei ja jemand helfen, ich komme leider selber auf keine praktikable Lösung

Ich habe zwei Dateien:

Haupt-Datei und Inventurliste (die Namen dieser Dateien sind immer gleich)

Es gibt immer in unregelmäßigen Abständen eine neue Inventurliste, diese ersetzt dann die Alte, damit der Name gleich bleibt!

In die Haupt-Datei sollen nun immer alle Zeilen an den Schluss „kopiert“ werden, die in der Inventurliste sind, aber nicht in der Haupt-Datei. Es muss also quasi ein Abgleich stattfinden und dann sollen alle Zeilen (die in der Inventurliste sind aber nicht in der Haupt-Datei) automatisch in die Hauptdatei übernommen werden.


Super wäre es, wenn dieser Abgleich immer stattfinden würde, wenn ich auf einen dafür vorgesehenen Knopf drücke.

Vielen Dank für jeden Tipp!

 

Hallo Jennis,

Daten in zwei (oder mehr) Dateien konsistent zu halten, ist eine Sache, die eher zum Scheitern verurteilt ist. Der Sinn erschließt sich ohnehin nicht.

 

es geht dabei darum, dass in der Haupt-Datei Handschrift Notizen gemacht werden, diese dient als Lagerliste. Nun sollen neu hinzukommende Waren (diese sind nur in der Inventurliste, da wir diese aus unserem System ziehen können) in die Haupt-Datei hinzugefügt werden. Ich hatte gehofft dies zu automatisieren.

 

Hallo jenniS,

dann nimm doch einfach die Inventurliste und mach darauf die Notizen...
Wie ist dein Plan, wenn Waren aus dem System gelöscht werden? Sollen die trotzdem in der Hauptliste stehen bleiben?

Gruß,
Lutz

 

Hallo Lutz,

das geht leider nicht, da wir ja immer neue Ware reinbekommen und somit ja ständig eine neue Inventurliste haben, bei welcher dann die Notizen die per Hand gemacht wurden wieder weg sind.
Mein Ziel ist es wirklich, dass in die Haupt-Datei immer die neuen Zeilen aus der Inventur-Datei reinkopiert werden, nur würde ich das ungern immer händisch (oder mit einfachen excel Formeln) machen sondern gerne so automatisiert wie es geht.

der Punkt der gelöschen Waren ist erstmal zu vernachlässigen, zunächst werden diese in der hauptliste stehen bleiben

 

Ich habe nun soweit einen Code, leider ist hierbei noch ein Fehler, da beim Ausführen quasi nichts passiert, hat hier jemand vielleicht eine Idee was ich falsch gemacht habe?

Sub Abgleich()

'Variablen deklarieren
Dim HauptDatei As Workbook
Dim InventurDatei As Workbook
Dim HauptTabelle As Worksheet
Dim InventurTabelle As Worksheet
Dim letzteZeile As Long
Dim Zeile As Long
Dim gefunden As Boolean
Dim sPfad As String

'ScreenUpdating und PopUps deaktiven
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Dateipfad der Quelldatei
sPfad = "I:\_Muster GoodNotes\TEst\InventurDatei.xlsx"

'Prüfen ob die Datei existiert
If Dir(sPfad) <> "" Then

'Dateien öffnen
Set HauptDatei = ActiveWorkbook
Set InventurDatei = Workbooks.Open(sPfad)

'Tabellen zuweisen
Set HauptTabelle = HauptDatei.Worksheets("Inventory")
Set InventurTabelle = InventurDatei.Worksheets("Inventory2")

'letzte Zeile in der Haupttabelle ermitteln

With Worksheets(1).UsedRange
leZeile = .Row + .Rows.Count - 1
End With

'Durch alle Zeilen in der Inventurtabelle iterieren
For Zeile = 2 To InventurTabelle.Cells(Rows.Count, 1).End(xlUp).Row

'prüfen, ob die Zeile in der Haupttabelle vorhanden ist
gefunden = False
For i = 2 To letzteZeile
If InventurTabelle.Cells(Zeile, 1) = HauptTabelle.Cells(i, 1) Then
gefunden = True
Exit For
End If
Next i

'wenn die Zeile in der Haupttabelle nicht gefunden wurde, Zeile in Haupttabelle einfügen
If gefunden = False Then
HauptTabelle.Cells(letzteZeile + 1, 1).Value = InventurTabelle.Cells(Zeile, 1)
HauptTabelle.Cells(letzteZeile + 1, 2).Value = InventurTabelle.Cells(Zeile, 2)
'weitere Spalten hinzufügen, falls nötig
letzteZeile = letzteZeile + 1
End If

Next Zeile

'Inventurdatei schließen
InventurDatei.Close
End If
'ScreenUpdating und PopUps aktiven
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

Hallo jenniS,

"da beim Ausführen quasi nichts passiert" ist eine etwas schwierige Aussage...

Fangen wir grundsätzlich an:

• Hast Du in deinem Modul "Option explicit" deklariert? Wenn ja, MUSST Du alle Variablen zu Beginn des Makros mit Dim deklarieren. Das hilft, um Variablen nicht verkehrt zu schreiben etc.
• Kennst Du den Einzelschritt-Modus? Damit läufst Du dein Makro Schritt für Schritt durch und kannst sehen, was passiert.
• Application.DisplayAlerts ist für Anfänger Teufelszeug. Du unterdrückst alle Fehlermeldungen und siehst nicht, was falsch läuft. Also raus damit.
  
• Application.ScreenUpdating ist nur Kosmetik, also vorerst raus.

Dann im Detail:

• Fängt Dein Pfad wirklich so an ""I:\_Muste..."?
• Du definierst die beiden Tabellen, arbeitest dann aber mit "With Worksheets(1).UsedRange". In welchem Workbook ist Worksheets(1)?
• Ist das wirklich die letzte Zeile: "leZeile = .Row + .Rows.Count - 1"? Schau mal hier: Letzte Zeile, letzte Spalte und letzte Zelle per VBA ermitteln – Excel-Inside Solutions
• Ist leZeile oder "For i = 2 To letzteZeile" die letzte Zeile?
• Du setzt in der Schleife "gefunden = True", aber nie wieder auf false... Muss natürlich in en beginn der äußeren Schleife rein.

Gruß,
Lutz

 

Hallo Lutz,
vielen Dank für deine super ausführliche Antwort und deine Hilfe!!
Ich versuche jetzt mal - soweit ich weiß was ich dafür tun muss- auf alles zu antworten
- nein, das Modul Option explicit habe ich nicht deklariert
- ja, die Funktion kenne ich, wenn ich damit durch meinen Code gehe, dann wird springt er von 'durch alle Zeilen in der Inventurtabelle internieren, direkt zu 'Inventurdatei schließen. Es werden also die zwei Teile 'Prüfen ob die Zeile vorhanden ist und 'wenn nicht dann einfügen' übersprungen (das ist gerade leider auch noch immer der Fall)
- alles klar, ist rausgenommen
- ist ebenfalls rausgenommen

- ja, der Pfad ist tatsächlich richtig, es öffnete sich auch die richtige Datei beim Ausführen des Codes
-Worksheets(1) ist die Tabelle in der HauptDatei
- die letzte Zeile habe ich wie in dem Link von dir gesendet angepasst
- For i = 2 To letzteZeile soll die letzte Zeile sein

 

Hallo JenniS,

• dann unbedingt an den Beginn deines Moduls "Option explicit" schreiben. Nur so siehst Du, ob alle Variablen deklariert und IMMER richtig geschrieben sind (wie schnell wird aus "LetzteZeile" ein "LetzteZelle"...)
• Wenn Du im Einzelschrittmodus von For Zeile = 2 To InventurTabelle.Cells(Rows.Count, 1).End(xlUp).Row zum Schließen springst, ist die letzte Zeile (in Spalte 1) der InventurTabelle kleiner 2.
• Ist "Set HauptTabelle = HauptDatei.Worksheets("Inventory")" das selbe wie "With Worksheets(1)."? Dann solltest Du immer "HauptTabelle" verwenden.
• Wenn "For i = 2 To letzteZeile" die letzte Zeile ist, wo weist Du der Variablen "letzteZeile" einen Wert zu? (siehe "option explicit").

Kannst Du deine Datei ins Forum stellen? Das macht die Arbeit etwas leichter...

Gruß,
Lutz

 

Hallo Lutz,

ich werde mir deine Anmerkungen morgen noch mal ganz in Ruhe ansehen :)

klar, die Datei habe ich hochgeladen (die InventurDatei sieht vom Aufbau her genauso aus)

Vielen vielen Dank dir!

 

Hallo jenniS,

lass mich nochmal auf dem "Option explicit" rumreiten. Du hast z.B. i nicht deklariert, das würde dir "Option explicit" anmerken.
Das hier ist etwas merkwürdig:

Code:

   With letzteZeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
       
   End With

da würde ich

Code:

letzteZeile=HauptTabelle.Cells(Rows.Count, 1).End(xlUp).Row

draus machen.

Und dann natürlich der Grundaufbau deiner Tabelle. Warum lässt Du die oberste Zeile und die linke Spalte leer? Für die Optik im Ausdruck kannst Du im Layout die Ränder anpassen.
Aber aufgrund dieses Layout ergibt .Cells(Rows.Count, 1).End(xlUp).Row natürlich 1 und damit laufen deine For-Next-Schleifen nicht.. Auch beim Einfügen wird in die falschen Zellen geschrieben.

Gruß,
Lutz

 

Hallo Lutz,

alles klar, dann werde ich gleich mal Option Explicit mit reinnehmen:)
wird angepasst!

die Tabelle habe ich so aus unserem System heraus erhalten, daher sieht die so aus, aber das ist ja kein Problem anzupassen und macht durchaus Sinn! Werde die erste Spalte und Zeile löschen, sodass dort direkt der text startet

Gruß Jenni

 

Hallo Lutz,

ich habe das ganze jetzt noch mal mit deinen Änderungen gestartet und es fängt an zu funktionieren!!
Es werden jetzt auf jeden Fall schon einmal die ersten beiden Spalten so wie es sollen rüberkopiert, also die Paletten-Gruppe und die Lfd.Nr. (Warum die anderen Spalten nicht ergibt sich mir noch nicht so ganz)!

Danke dir!!

 

GESCHAFFT !!
Vielen Dank für deine Hilfe!