Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Tabellen abgleichen und aktualsieren
zurück: Neue Nummern in bestehnde Tabelle vergleichen/einfügen weiter: Anwendungs- oder objektdefinierter Fehler Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
MakroAnfänger2014
Gast


Verfasst am:
29. Apr 2014, 10:03
Rufname:

Tabellen abgleichen und aktualsieren - Tabellen abgleichen und aktualsieren

Nach oben
       Version: Office 2007

Ich habe 2 verschiedene Tabellen in Excel
Tabelle 1 wird von einem System erstellt und beinhaltet die aktuellere Daten. Es kommen immer wieder neue Datensätze hinzu und alte werden verändert.
Tabelle2 ist zwar älter wie die Tabelle 1 aber beinhaltet Bemerkungen die per Hand eingefügt werden. Diese dürfen beim aktualisieren nicht überschrieben werden. Und es sind nur selektierte Spalten von Tabelle 1, in dieser Tabelle vorhanden.
Das Problem bei dem ganzen ist, dass die Tabellen vom Aufbau her komplett unterschiedlich sind. Dies ist natürlich auch klar, da die Tabelle 2, Spalten mit Bemerkungen enthält.
Ich möchte jetzt das die Tabelle 2 Aktualisiert wird, also alle Daten die in der Tabelle 1 geändert worden sind, sollen in Tabelle 2 angepasst werden und auch die Datensatze die neu dazu gekommen sind.
Ich habe jetzt bisschen rumprobiert aber immer wieder verworfen. Da dies das erste Programm von mir ist, bin ich zurzeit bisschen verloren. Ich weiß noch net mal wie ich anfangen könnte.
Mein erster Gedanke war das ich die Spalten von Tabelle 1 einzeln deklariere und dann in Tabelle 2 ausgebe. Das Problem hat hier schon begonnen, da ich net weiß wie ich die komplette Spalte einlesen kann und sicherstellen kann das die Spalten in der richtigen Reihenfolge sind oder aus den Datensatz einzelne Spalten rüberbringe.
Das andere Problem ist das die Tabelle 1 keinen Schlüssel besitzt. Zwar wird die Reihenfolge nicht geändert und neue Datensätze kommen immer unten hinzu.
Ich wäre für jeden Ansatz den ihr mir geben könnt schon äußerst dankbar. Oder iwelche Vorschläge mit welchem Ansatz ihr das Lösen würdet.
Vielen Dank im Voraus. =)
Little Hobbit
Office-VBA-Programmierer


Verfasst am:
29. Apr 2014, 10:57
Rufname:

AW: Tabellen abgleichen und aktualsieren - AW: Tabellen abgleichen und aktualsieren

Nach oben
       Version: Office 2007

Hallo,

wenn feststeht welche Spalten der Tabelle 1 in welche Spalten der Tabelle 2 kopiert werden sollen (z. B. Tabelle 1, Spalte A nach Tabelle 2, Spalte C; Tabelle 1, Spalte B nach Tabelle 2, Spalte F; ....) könnte per VBA diese Kopie erstellt werden. Bei dieser Kopie würden die alten Daten der Tabelle 2 in den kopierten Spalten überschrieben. Die Spalten wären dann aktualisiert. Die neuen Daten würden bei diesem Vorgang auch gleich in die Tabelle 2 übertragen.

Nach jeder Änderung in Tabelle 1 oder in regelmäßigen Abständen könnte der Benutzer das Programm starten, um die Aktualisierung durchzuführen. Die Daten in den anderen Spalten der Tabelle 2 wären von diesem Vorgang nicht betroffen und blieben unverändert erhalten.

Wenn sich die Struktur der Tabelle 2 ständig ändert, weil dort neue Spalten für neue Bemerkungen eingefügt werden, wird es etwas schwieriger, wäre aber auch mit VBA machbar, wenn die zu kopierenden Spalten in beiden Tabellen feststehende und unveränderliche Kopfzeilen hätten. Per VBA könnte eine Kopie dann anhand der Titel in den Kopfzeilen durchgeführt werden.

Gruß
Little Hobbit

_________________
(Frage + Antwort) x Rückmeldung = aktives Forum
MakroAnfänger2014
Gast


Verfasst am:
29. Apr 2014, 13:40
Rufname:

AW: Tabellen abgleichen und aktualsieren - AW: Tabellen abgleichen und aktualsieren

Nach oben
       Version: Office 2007

Vielen dank für die schnelle info =)

habe aber noch eine Frage bezüglich dem kopieren. Gibt es da einen befehl der das vereinfacht oder
muss ich jede Spalte einzeln erst in eine variable einlesen dann die Zeilen durchlaufen lassen und dann diese variable ausgeben. Wie würde ich dort die schleife beenden da ich ja ich die endmenge der Tabelle 1 nicht kenne bzw diese sich laufend ändert

danke schonmal im voraus
Little Hobbit
Office-VBA-Programmierer


Verfasst am:
29. Apr 2014, 14:19
Rufname:

AW: Tabellen abgleichen und aktualsieren - AW: Tabellen abgleichen und aktualsieren

Nach oben
       Version: Office 2007

Hallo,

in einer Routine
1. letzte gefüllte Spalte der Quelltabelle ermitteln
1a eventuell letzte gefüllte Zeile der Quelltabelle ermitteln
2. For ... next Schleife über die Anzahl der gefüllten Spalten in der Quelltabelle
In der Schleife
3. Kopfzeile einer Spalte der Quelltabelle lesen
4. Die passende Kopfzeile in der Zieltabelle suchen
5. alle (gefüllten) Zellen der Spalte in der Quelltabelle in die Zieltabelle kopieren wiederholen für alle Spalten der Quelltabelle

Die Werte in den Spalten der Quelltabelle müssen in keine Variable eingelesen werden. Die Kopie erfolgt direkt von Spalte zu Spalte.

Gruß
Little Hobbit

_________________
(Frage + Antwort) x Rückmeldung = aktives Forum
MakroAnfänger2014
Gast


Verfasst am:
29. Apr 2014, 14:29
Rufname:

AW: Tabellen abgleichen und aktualsieren - AW: Tabellen abgleichen und aktualsieren

Nach oben
       Version: Office 2007

Ich danke dir ....=)

ich werde es später versuchen und mal gucken ob ich es dann schaffe ...
das hilft mir aber aufjeden fall schon weiter =)
Gast



Verfasst am:
30. Apr 2014, 09:39
Rufname:

AW: Tabellen abgleichen und aktualsieren - AW: Tabellen abgleichen und aktualsieren

Nach oben
       Version: Office 2007

Windows("Tabelle1").Activate
Range("A2:A15000").Select
Selection.Copy
Windows(Tabelle2").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

So sieht mein Code bis jetzt aus , Ich habe leider deine Variante nicht hinbekommen. Aber dieses hier funkt auch. Meine frage ist jetzt nur wie ich hier die For next schleife einbinden soll bzw wie ich anstatt die 15000 zeilen das auf das ende beziehe.

vielen dank im voraus =)
Little Hobbit
Office-VBA-Programmierer


Verfasst am:
30. Apr 2014, 17:41
Rufname:

AW: Tabellen abgleichen und aktualsieren - AW: Tabellen abgleichen und aktualsieren

Nach oben
       Version: Office 2007

Hallo,

der Code in der letzten Nachricht macht aber nicht das, was in den Anforderungen beschrieben ist. Etwas umgeschrieben wird Spalte A von Zeile 1 bis 15000 kopiert und diese Daten dann in Tabelle 2 ab Zeile 2 eingefügt. Alles was in Tabelle 2 Spalte A ab Zeile 2 steht wird überschrieben!


Zitat:

Sub Test()
Worksheets("Tabelle1").Activate
Range("A1:A15000").Select
Selection.Copy
Worksheets("Tabelle2").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub



Die letzte gefüllte Zeile einer Spalte findet dieser Code:

Code:

Private Function Letzte_Zeile(ByVal Spalte As Long) As Long
'Letzte Zeile der Spalte C ermittelt
    Letzte_Zeile = ActiveSheet.Cells(Rows.Count, Spalte).End(xlUp).Row
End Function


Die letzte gefüllte Spalte einer Zeile erhält man so:

Code:

Private Function Letzte_Spalte(ByVal Zeile As Long) As Long
' letzte gefüllte Spalte der  Zeile 1  ermittelt
    Letzte_Spalte = ActiveSheet.Cells(Zeile, Columns.Count).End(xlToLeft).Column
End Function



Eine Schleife über alle gefüllten Spalten einer Zeile geht so:

Code:

For I = 1 to Letzte_Spalte(Zeile)
....
Worksheets("Tabelle1").Cells(Zeile, I).Value = ' Zelle mit Daten füllen
next i


Wenn in Tabelle 2 die eingefügten Zeilen und Spalten nicht überschrieben werden sollen, ist es mit so einer einfachen Schleife nicht getan. Es müßte wegen der potentiell eingefügten Zeilen und Spalten stets geprüft werden, wo die fortzuführenden Daten in Tabelle 2 stehen!

Ohne Quelltabelle und Zieltabelle zu kennen, ist eine Hilfe bei der Erstellung des benötigten Codes nicht möglich.
Wenn du Hilfe brauchst beim Programmieren einer Update-Funktion für Tabelle2,
dann bitte Mustertabellen hochladen.

Gruß
Little Hobbit


Gruß
Little Hobbit

_________________
(Frage + Antwort) x Rückmeldung = aktives Forum
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Bezug auf Zeilen in 2 Tabellen 5 demios 680 25. Jan 2006, 15:57
harald07 Bezug auf Zeilen in 2 Tabellen
Keine neuen Beiträge Excel Formeln: Zwei Excel Tabellen verbinden??? 1 Hirschi 21003 17. Jan 2006, 11:31
Günni Zwei Excel Tabellen verbinden???
Keine neuen Beiträge Excel Formeln: Tabellen/Mappen verknüpfen aber wie??? 2 OnkelVeni 5345 01. Nov 2005, 12:36
OnkelVeni Tabellen/Mappen verknüpfen aber wie???
Keine neuen Beiträge Excel Formeln: Ein Filter für zwei Tabellen 0 willi100 1089 20. Okt 2005, 15:28
willi100 Ein Filter für zwei Tabellen
Keine neuen Beiträge Excel Formeln: Dividieren von zwei Tabellen 2 Alfonso 1185 10. Okt 2005, 12:05
Arnim Dividieren von zwei Tabellen
Keine neuen Beiträge Excel Formeln: Mittels 2 Tabellen eine Übersicht erstellen 11 atwin97 1304 05. Okt 2005, 09:55
atwin97 Mittels 2 Tabellen eine Übersicht erstellen
Keine neuen Beiträge Excel Formeln: blöde frage: liste abgleichen 8 dopex 1299 23. Sep 2005, 14:17
dopex blöde frage: liste abgleichen
Keine neuen Beiträge Excel Formeln: Hilfe! Zelleninhalte in andere Tabellen kopieren. 2 erdboy 1490 17. Sep 2005, 13:25
Gast Hilfe! Zelleninhalte in andere Tabellen kopieren.
Keine neuen Beiträge Excel Formeln: werte aus verschiedenen tabellen addieren 3 Actiongreg 2518 06. Jul 2005, 17:23
actiongreg werte aus verschiedenen tabellen addieren
Keine neuen Beiträge Excel Formeln: 2 Tabellen - wenn Datum und Kennzeichen gleich - wert überne 4 karlch4711 3832 14. Jun 2005, 15:02
Willie 2 Tabellen - wenn Datum und Kennzeichen gleich - wert überne
Keine neuen Beiträge Excel Formeln: Vergleich von zwei Tabellen 15 UM 3226 29. Apr 2005, 17:17
ae Vergleich von zwei Tabellen
Keine neuen Beiträge Excel Formeln: Tabellen Vergleichen 1 eddi40 2209 22. Feb 2005, 17:55
fridgenep Tabellen Vergleichen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS