Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datenabgleich zwischen 2 Excel-Tabellen
zurück: zeile mit aktiver Zelle um eine Zeile nach unten kopieren? weiter: Makro für suchen und einügen 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
pepsilight80
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Feb 2009, 20:02
Rufname:
Wohnort: Hannover

Datenabgleich zwischen 2 Excel-Tabellen - Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Hallo,

ich habe folgendes Problem und hoffe ihr könnt mir weiterhelfen. Ich habe 2 Excell-Tabellen. Tabelle "A" enthält die Gesamtdaten eines Projektes. Tabelle "B" enthält nur einen Anteil dieser Daten (Teilausschnitt).

Ich benötige ein Script oder einen Funktionsansatz, der aus Tabelle "A" Daten in Tabelle "B" kopiert nach folgendem Prinzip:

Tabelle "A": In der Spalte "AR" stehen Namen von Applikationen. In der Spalte "BO" (Clearing) ist jeweils ein "!" als Flag gesetzt. Jetzt sollen alle Applikationen, die ein Clearing-Flag gesetzt haben, in die Tabelle "B" in die Spalte "C" kopiert werden.

Die Tabelle "A" ist eine dynamische Tabelle, die sich täglich verändert. Ich benötige in der Tabelle "B" eine Art "Button", den ich drücken kann, damit die Daten aus Tabelle "A" importiert werden. Super wäre es, wenn nur das Delta übertragen und farblich gekennzeichnet wird. Das würde mir das Reporting erleichtern, da ich sofort sehen könnte, was sich in der Tabelle verändert hat.

Es wäre wirklich prima, wenn einer von euch eine Idee für mich hätte. Ich arbeite zwar schon lange in der IT, habe auch schon viel mit Excel zu tun gehabt, aber mich leider nie intensiv damit beschäftigen müssen. Aber in unserer Branche muss man sich auch mal gegenseitig helfen können;-)

Gruß,
pepsi
Phelan XLPH
Fortgeschritten


Verfasst am:
02. Feb 2009, 21:15
Rufname: Phelan


AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Einem Button folgendes Makro zuweisen:

Code:

Sub AppliCationNamenUebertragen()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim rngQ As Range
Dim rngZ As Range
Dim ZelleQ As Range
Dim ZelleZ As Range
Dim bolExist As Boolean

Set wksQ = Worksheets("TabelleA")
Set wksZ = Worksheets("TabelleB")

Set rngQ = wksQ.Range("AR2:AR" & wksQ.Cells(wksQ.Rows.Count, 44).End(xlUp).Row)
Set rngZ = wksZ.Range("C2:C" & wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Row)

For Each ZelleQ In rngQ
    If ZelleQ.Offset(0, 23) Like "*!*" Then
        For Each ZelleZ In rngZ
            If ZelleQ.Value = ZelleZ.Value Then bolExist = True
        Next
        If bolExist = False Then
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Font.ColorIndex = 5
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Value = _
            ZelleQ.Value
        End If
        bolExist = False
    End If
Next
End Sub


...diesnal wars noch kostenlos.... Laughing

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
pepsilight80
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Feb 2009, 11:56
Rufname:
Wohnort: Hannover

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Hallo Glücksritter. Danke erstmal für die komplexe Antwort. Leider bekomme ich einen Fehler im Debug Monitor (Zeile 9).

Set wksQ = Worksheets("Tabelle A")

Sucht diese Funktion in einem Worksheet innerhalb der Excel-Datei? Es handelt sich um 2 verschiedene Dateien. Das Worksheet in Tabelle "A" heisst:Gesamtüberblick. Das Worksheet in Tabelle "B" heisst auch "Gesamtüberblick".

Beide Dateien befinden sich in einem Ordner lokal bei mir auf dem Rechner.

Kannst mir jemand sagen, wie ich den Code anpassen muss?

Gruß,
Pepsi
Gast



Verfasst am:
06. Feb 2009, 12:29
Rufname:

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Na du hast dir die Antwort doch gerade selbst gegeben:

Das Sheet heisst nicht Tabelle A sondern Gesamtüberblick.

Nur wenn du jetzt "Tabelle" mit Workbook durcheinanderwirfst und Worksheets mit Dateien....dann kann dir hier keiner helfen.


Tabelle=Worksheet
Workbook=Datei

Da du von zwei Tabellen gesprochen hast und nicht von zwei Dateien, kann das keiner ahnen..
Phelan XLPH
Fortgeschritten


Verfasst am:
06. Feb 2009, 12:41
Rufname: Phelan


AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Den Pfad bitte anpassen! KORREKTUR

Code:
Sub AppliCationNamenUebertragen()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim rngQ As Range
Dim rngZ As Range
Dim ZelleQ As Range
Dim ZelleZ As Range
Dim bolExist As Boolean
Dim Pfad As String

Pfad = "D:\Test\Test01.xls" 'ANPASSEN
On Error Resume Next
Workbooks.Open Pfad, 0
If Err.Number > 0 Then
    MsgBox "Datei konnte nicht gefunden werden in" _
        & vbLf & Pfad, , "Hinweis"
    Exit Sub
End If

Set wksQ = ActiveWorkbook.Worksheets("Gesamtüberblick")
Set wksZ = ThisWorkbook.Worksheets("Gesamtüberblick")

'Ouelle
'Spalte "AR" ist die Bezugsspalte, deren Zelleninhalt, Zeile für Zeile später verglichen
'und kopiert wird. Von Zelle AR2 bis Zelle AR(Letzter Zelleninhalt dieser Spalte)
Set rngQ = wksQ.Range("AR2:AR" & wksQ.Cells(wksQ.Rows.Count, 44).End(xlUp).Row)

'Ziel
'Von Zelle C2 bis Zelle C(Letzter Zelleninhalt dieser Spalte)
Set rngZ = wksZ.Range("C2:C" & wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Row)

For Each ZelleQ In rngQ
    'Relativer Bezug von der Bezugsspalte(23 spalten nach rechts = "BO")
    If ZelleQ.Offset(0, 23) Like "*!*" Then
        For Each ZelleZ In rngZ
            If ZelleQ.Value = ZelleZ.Value Then bolExist = True
        Next
        If bolExist = False Then
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Font.ColorIndex = 5
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Value = _
            ZelleQ.Value
        End If
        bolExist = False
    End If
Next
ActiveWorkbook.Close False
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein


Zuletzt bearbeitet von Phelan XLPH am 10. Feb 2009, 15:01, insgesamt einmal bearbeitet
pepsilight80
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Feb 2009, 15:06
Rufname:
Wohnort: Hannover

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Hallo,

ich danke vielmals. Es hate inwandfrei funktioniert und ich habe jetzt auch dazugelernt, und ich hoffe in der Zukunft wird mir die Namenskonvention in Excel auch nicht mehr verloren gehen.

Noch einmal vielen herzlichen Dank,
Pepsi
pepsilight80
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Feb 2009, 16:31
Rufname:
Wohnort: Hannover

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Kann mir jemand noch erklären, wie ich die Funktion modifizieren kann, um sämtliche Daten von "wksQ" in die Tabelle wksZ zu schreiben, beginnend in der Spalte "C4".
Phelan XLPH
Fortgeschritten


Verfasst am:
09. Feb 2009, 21:13
Rufname: Phelan

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Genauer bitte. Alle Daten von quelle in die spalte C ab Zeile 4 pressen?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
pepsilight80
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Feb 2009, 10:26
Rufname:
Wohnort: Hannover

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Ja genau das Skript funktioniert einwandfrei, aber ich weiß nicht wie ich es anpassen kann, damit die Daten auch in die Zelle "C4" kopiert werden. Also die erste kopierte Zelle aus der anderen Tabelle, soll in C4 kopiert werden, und dann C5 usw.
pepsilight80
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Feb 2009, 11:46
Rufname:
Wohnort: Hannover

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Es ist nicht besonders leicht den Quelltext zu verstehen, wenn man vorher noch keine VBA-Kenntnisse hatte. Also weiß ich nicht genau, wie ich den Quelltext anpassen kann, wenn sich meine Bedürfnisse ändern. Ich würde jetzt z.B. gerne die Spalte "Z" auslesen, wenn ein "!" dort steht. Aber was genau müsste ich dann bei dem obigen Quelltext anpassen?
Phelan XLPH
Fortgeschritten


Verfasst am:
10. Feb 2009, 15:15
Rufname: Phelan

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Hallo, hab oben kleine Kommentare zugetextet

..sonst bitte Grundlagen lernen

folgendes abändern:

rngQ=Quellbereich
Code:

Set rngQ = wksQ.Range("Z2:Z" & wksQ.Cells(wksQ.Rows.Count, 44).End(xlUp).Row)

Code:

If ZelleQ.Offset(0, 0) Like "*!*" Then



rngZ=Zielbereich
Code:

Set rngZ = wksZ.Range("C4:C" & wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Row)

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
pepsilight80
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Feb 2009, 15:22
Rufname:
Wohnort: Hannover

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Hallo Glücksritter,

vielen Dank das du dich meiner angenommen hast.
Also ich habe das auch vorher doch richtig verstanden. leider funktioniert da etwas bei mir nicht richtig. Ich habe alle im Code dukumentiert:

Code:
Sub AppliCationNamenUebertragen()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim rngQ As Range
Dim rngZ As Range
Dim ZelleQ As Range
Dim ZelleZ As Range
Dim bolExist As Boolean
Dim Pfad As String

Pfad = "D:\Test\Test01.xls"
On Error Resume Next
Workbooks.Open Pfad, 0
If Err.Number > 0 Then
    MsgBox "Datei konnte nicht gefunden werden in" _
        & vbLf & Pfad, , "Hinweis"
    Exit Sub
End If

Set wksQ = ActiveWorkbook.Worksheets("Gesamtüberblick")
Set wksZ = ThisWorkbook.Worksheets("Gesamtüberblick")

'Ouelle
'Spalte "AR" ist die Bezugsspalte, deren Zelleninhalt, Zeile für Zeile später verglichen
'und kopiert wird. Von Zelle AR2 bis Zelle AR(Letzter Zelleninhalt dieser Spalte)
Set rngQ = wksQ.Range("AR2:AR" & wksQ.Cells(wksQ.Rows.Count, 44).End(xlUp).Row)

'Ziel
'Von Zelle C2 bis Zelle C(Letzter Zelleninhalt dieser Spalte) ***ändere ich hier den Wert von "C2:C" in "C5:C", so kopiert das Skript weiterhin die erste kopierte Zelle nach C2.
Set rngZ = wksZ.Range("C2:C" & wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Row)

For Each ZelleQ In rngQ
    'Relativer Bezug von der Bezugsspalte(23 spalten nach rechts = "BO")
    If ZelleQ.Offset(0, 23) Like "*!*" Then
        For Each ZelleZ In rngZ
            If ZelleQ.Value = ZelleZ.Value Then bolExist = True
        Next
        If bolExist = False Then
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Font.ColorIndex = 5
***Ändere ich den Wert wksZ.Rows.Count, in 5, so verschiebt sich das Ganze um 2 Zeilen beim Kopieren. Kann ich hier auch bestimmen, das er ein paar Zeilen nach unten geht?***
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Value = _
            ZelleQ.Value
        End If
        bolExist = False
    End If
Next
ActiveWorkbook.Close False
End Sub


Hast du da einen Tip? Kann mir jemand auch einen Tip geben, wo ich am Besten den Einstieg finde, um Excel (Makro) zu erlernen?

Gruß,
pepsi
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Feb 2009, 16:33
Rufname: Phelan

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Servus!
Du hast die Änderungen ja gar nicht gemacht!

Lern-Material:
http://www.online-excel.de/excel/grusel_vba.php?f=6
ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Feb 2009, 17:14
Rufname: Phelan

AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Code:
Sub AppliCationNamenUebertragen()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim rngQ As Range
Dim rngZ As Range
Dim ZelleQ As Range
Dim ZelleZ As Range
Dim bolExist As Boolean
Dim Pfad As String

Pfad = "D:\Test\Test01.xls"
On Error Resume Next
Workbooks.Open Pfad, 0
If Err.Number > 0 Then
    MsgBox "Datei konnte nicht gefunden werden in" _
        & vbLf & Pfad, , "Hinweis"
    Exit Sub
End If

Set wksQ = ActiveWorkbook.Worksheets("Gesamtüberblick")
Set wksZ = ThisWorkbook.Worksheets("Gesamtüberblick")

'Ouelle
Set rngQ = wksQ.Range("Z2:Z" & wksQ.Cells(wksQ.Rows.Count, 26).End(xlUp).Row + 1)

If wksZ.Range("C4") = "" Then wksZ.Range("C4").Offset(-1, 0) = " "
'Ziel
Set rngZ = wksZ.Range("C4:C" & wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Row + 3)

MsgBox rngZ.Address

For Each ZelleQ In rngQ
    If ZelleQ.Offset(0, 0) Like "*!*" Then
        For Each ZelleZ In rngZ
            If ZelleQ.Value = ZelleZ.Value Then bolExist = True
        Next
        If bolExist = False Then
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Font.ColorIndex = 5
            wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Offset(1, 0).Value = _
            ZelleQ.Value
        End If
        bolExist = False
    End If
Next
ActiveWorkbook.Close False
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
18. Feb 2009, 18:26
Rufname:


AW: Datenabgleich zwischen 2 Excel-Tabellen - AW: Datenabgleich zwischen 2 Excel-Tabellen

Nach oben
       Version: Office 2007

Hallo,

ich bekomme leider bei dem Script eine Fehlermeldung C$4$:C$.

Habe leider auch immer noch nicht verstanden, wo ich die Änderung vornehmen muss, wenn der Kopiervorgang in eine bestimmte Zelle in der Ziel-Datei beginnen soll.

Gruß,
pepsi
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: Verknüpfung von zwei Exceltabellen 24 guenterhaug 29210 17. Sep 2013, 18:57
Gast Verknüpfung von zwei Exceltabellen
Keine neuen Beiträge Excel Formeln: Werte einfügen von 2 Exceltabellen 3 sheila13 286 22. März 2012, 13:46
Klabauter2 Werte einfügen von 2 Exceltabellen
Keine neuen Beiträge Excel Formeln: Exceltabellen zusammenführen 1 cheker777 685 07. Okt 2011, 11:16
Gastling Exceltabellen zusammenführen
Keine neuen Beiträge Excel Formeln: 2 Excel-Tabellen vergleichen 1 rici2454 904 11. Jul 2011, 12:50
< Peter > 2 Excel-Tabellen vergleichen
Keine neuen Beiträge Excel Formeln: Abgleich Excel-Tabellen 19 Broker1707 2285 08. Apr 2011, 11:17
Broker1707 Abgleich Excel-Tabellen
Keine neuen Beiträge Excel Formeln: Datenabgleich zweier Spalten 12 Phelan XLPH 595 27. Jun 2010, 11:13
shift-del Datenabgleich zweier Spalten
Keine neuen Beiträge Excel Formeln: Exceltabellen in einer Mappe wechseln 2 hellgablei 1394 05. Feb 2010, 00:08
Janni_07 Exceltabellen in einer Mappe wechseln
Keine neuen Beiträge Excel Formeln: Suche Datenabgleich mit Formel der nur bei Treffer überträgt 6 MaYi 396 02. Feb 2010, 16:01
MaYi Suche Datenabgleich mit Formel der nur bei Treffer überträgt
Keine neuen Beiträge Excel Formeln: Aktualisierung von Exceltabellen 2 BATman^v^ 286 16. Dez 2009, 10:08
BATman^v^ Aktualisierung von Exceltabellen
Keine neuen Beiträge Excel Formeln: Inhalte von Exceltabellen in Word integrieren 7 Hans:::: 696 27. Apr 2009, 15:11
Hans:::: Inhalte von Exceltabellen in Word integrieren
Keine neuen Beiträge Excel Formeln: Exceltabellen vergleichen 1 PY331 385 06. März 2008, 19:41
McAdder Exceltabellen vergleichen
Keine neuen Beiträge Excel VBA (Makros): Schutz meiner Excel-Tabellen 1 wm 396 26. Jun 2007, 18:25
zzx Schutz meiner Excel-Tabellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum