Liste A nach Liste B kopieren (aktualisieren)

Hallo!
Folgender Sachverhalt: Aus unserer Wohnungswirtschaftssoftware erhalte ich eine Excel Tabelle aller rückständigen Mieter (Liste A). Da diese Liste von Sachbearbeitern weiterverwendet und analysiert werden soll, habe ich eine Vorlagentabelle (Liste B) erstellt, wo bereits Diagramme Makros etc. hinterlegt sind, damit die Sachbearbeiter alles auf Knopfdruck machen können. Ich kopiere jetzt also immer per Makro monatlich Liste A in Liste B, das klappt auch ganz gut. Jetzt kommt nur folgende Frage auf: Ist es auch möglich, dass Liste A die Liste B nur aktualisiert, also nur die Wohnungen kopiert werden die neu, bzw. mit verändertem Rückstand sind? Die Sachbearbeiter wollen nämlich neben der eigentlichen Liste zu jeder Wohnung Vermerke zu den unternommen Akitvitäten machen, die ja dann nach dem normalen rüberkopieren hinfällig wären, da sie ja dann immer an der falschen Stelle sind. Es müßte also sichergestellt sein, dass nur aktualisiert wird und Wohnungsnummer 1 auch immer an der Stelle von Wohnungsnummer 1 ist. Geht das? Wahrscheinlich nicht, aber wenn mir jemand eine Lösung anbieten kann, dann die Excel-Meister aus diesem Forum... :-)
Vielen Dank für Eure Mühe im Vorraus!
Gruß
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
diese Funktionalität ist im Makro enthalten und hat bei meinen Tests auch funktioniert.
Mieter mit Rückständen, die im aktuellen Monat erstmalig erscheinen, sollten in der Liste aus dem Vormonat am Ende der Liste eingefügt werden und in der Spalte "Veränderung" den Eintrag "neu" haben.
Führe das Makro im Schrittmodus aus oder markiere an der kritischen Stelle des Makros einen Haltepunkt,setzte das Makro im Schrittmodus fort (Taste F8) und beobachte was das Makro macht, wenn es den neuen erstmaligen Eintrag in die Liste Eintragen soll.
Weiter kann ich dir ohne reale Daten leider nicht helfen.


'Wohneinheiten aus aktueller Monatsliste in der Vormonatsliste suchen und Daten aktualisieren
With wksAlt
' Für die nachfolgende Zeile einen Haltepunkt setzen um zu sehen was das Makro macht.
For I = ZeileN To wksNeu.UsedRange.Row + wksNeu.UsedRange.Rows.Count - 1
' mit den nachfolgenden Code-Zeilen wird gesucht, ob ein Mieter aus der aktuellen
'Monatsliste in der Liste des Vormonats enthalten ist. Wenn nicht, dann wird am Ende der Liste
'ein neuer Eintrag mit Daten des Mieters,der erstmals Rückstand aufweist, am Ende der
'Liste eingefügt.
Set Finden = .Columns(SpID_NrA).Find(what:=wksNeu.Cells(I, SpID_NrN).Value, LookIn:=xlValues, lookat:=xlWhole)
If Finden Is Nothing Then 'Mieter hat im Vormonat keinen Rückstand
' Zeile mit Daten wird am Ende der Liste eingetragen
Zeile = .UsedRange.Row + .UsedRange.Rows.Count
.Cells(Zeile, SpID_NrA).Value = wksNeu.Cells(I, SpID_NrN)
.Cells(Zeile, 2).Value = wksNeu.Cells(I, 2) 'ObjektNr
.Cells(Zeile, 3).Value = wksNeu.Cells(I, 3) 'Mieternummer
.Cells(Zeile, 4).Value = wksNeu.Cells(I, 4) 'Mietername
.Cells(Zeile, SpRueckA).Value = wksNeu.Cells(I, SpRueckN) 'Mietrückstand
.Cells(Zeile, SpVorM).Value = 0 'Mietrückstand Vormonat
.Cells(Zeile, SpVeraend).Value = "Neu"
Else
'Wohneinheit ist in aktueller Monatsliste enthalten
Zeile = Finden.Row
'Rückstand aus Vormonat in andere Spalte eintragen
.Cells(Zeile, SpVorM).Value = .Cells(Zeile, SpRueckA).Value
'Neuen Rückstand in Tabelle eintragen
.Cells(Zeile, SpRueckA).Value = wksNeu.Cells(I, SpRueckN).Value
'Vergleich des Rückstands zum Vormonat
Select Case .Cells(Zeile, SpVorM).Value - .Cells(Zeile, SpRueckA).Value
Case 0 'keine Veränderung
.Cells(Zeile, SpVeraend).Value = "keine Veränderung"
Case Is < 0 'Rückstand zum Vormonat vorgrößert
.Cells(Zeile, SpVeraend).Value = "Rückstand hat sich vergrößert"
Case Is > 0 'Rückstand zum Vormonat verkleinert
.Cells(Zeile, SpVeraend).Value = "Rückstand hat sich verkleinert"
End Select
End If
Next
End With
wbNeu.Close SaveChanges:=False 'Datei mit Daten des aktuellen Monats wird geschlossen
wbAlt.Save 'Aktualisierte Datei wird gespeichert
End Sub

mfg
Franz

Zeile = .UsedRange.Row + .UsedRange.Rows.Count in folgendem Makroabschnitt an: If Finden Is Nothing Then 'Mieter hat im Vormonat keinen Rückstand ' Zeile mit Daten wird am Ende der Liste eingetragen Zeile = .Cells(65536, 1).End(xlUp).Row + 1 .Cells(Zeile, SpID_NrA).Value = wksNeu.Cells(I, SpID_NrN) .Cells(Zeile, 2).Value = wksNeu.Cells(I, 2) 'ObjektNr .Cells(Zeile, 3).Value = wksNeu.Cells(I, 3) 'Mieternummer .Cells(Zeile, 4).Value = wksNeu.Cells(I, 4) 'Mietername .Cells(Zeile, SpRueckA).Value = wksNeu.Cells(I, SpRueckN) 'Mietrückstand .Cells(Zeile, SpVorM).Value = 0 'Mietrückstand Vormonat .Cells(Zeile, SpVeraend).Value = "Neu" Else

Beliebteste Forumthreads (12 Monate)

Liste A nach Liste B kopieren (aktualisieren)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

215 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liste A nach Liste B kopieren (aktualisieren)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

215 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread