Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Olowedi vom 12.12.2019, 21:04 Options
Tabelleninhalt vergleichen und löschen
Hallo Fachleute,
im Excel habe ich eine Tabelle mit 4 Spalten. Eine weitere sieht von der Aufteilung genauso aus, jedoch der Zeileninhalt könnte unterschiedlich sein. Das Ziel ist folgendes: die erste Zeile der zweiten Tabelle muss mit dem Inhalt der ersten Tabelle verglichen werden. Ist diese Zeile irgendwo vorhanden, wird diese aus der zweitenTabelle gelöscht, usw. Sollte die Zeile nicht vorhanden sein wird sie in der zweiten Tabelle gelassen.
Habt ihr eine Idee?
im Excel habe ich eine Tabelle mit 4 Spalten. Eine weitere sieht von der Aufteilung genauso aus, jedoch der Zeileninhalt könnte unterschiedlich sein. Das Ziel ist folgendes: die erste Zeile der zweiten Tabelle muss mit dem Inhalt der ersten Tabelle verglichen werden. Ist diese Zeile irgendwo vorhanden, wird diese aus der zweitenTabelle gelöscht, usw. Sollte die Zeile nicht vorhanden sein wird sie in der zweiten Tabelle gelassen.
Habt ihr eine Idee?
Antwort 1 von aiuto vom 12.12.2019, 21:56 Options
Hallo Olowedi,
Das liest sich so, als ob man ohne eine Beispielmappe nicht so einfach zum Ziel kommen wird. Es fehlen die nötigen Angaben!
Kannst du die Excel-datei ins Netz stellen z.B. www.netupload.de und den Link dazu hier posten?
Generell sollt dies jedoch möglich sein.
mfg
vom Helfer
Das liest sich so, als ob man ohne eine Beispielmappe nicht so einfach zum Ziel kommen wird. Es fehlen die nötigen Angaben!
Kannst du die Excel-datei ins Netz stellen z.B. www.netupload.de und den Link dazu hier posten?
Generell sollt dies jedoch möglich sein.
mfg
vom Helfer
Antwort 2 von Marie vom 13.12.2019, 00:31 Options
Probier mal das, müsste laufen
gruß marie
Public Sub fktvergleiche()
Dim lolastZ1 As Long 'letzte beschriebene Zeile in Tabelle 1 Spalte1
Dim lolastZ2 As Long 'letzte beschriebene Zeile in Tabelle 2 Spalte1
Dim izeile1 As Long
Dim izeile2 As Long
lolastZ1 = Tabelle1.Range("A65536").End(xlUp).Row
lolastZ2 = Tabelle2.Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For izeile2 = 1 To lolastZ2 'geht jede beschriebene zeile in Tabelle 2 durch
For izeile1 = 1 To lolastZ1
If Trim$(Tabelle1.Cells(izeile1, 1)) = Trim$(Tabelle2.Cells(izeile2, 1)) Then
If Trim$(Tabelle1.Cells(izeile1, 2)) = Trim$(Tabelle2.Cells(izeile2, 2)) Then
If Trim$(Tabelle1.Cells(izeile1, 3)) = Trim$(Tabelle2.Cells(izeile2, 3)) Then
If Trim$(Tabelle1.Cells(izeile1, 4)) = Trim$(Tabelle2.Cells(izeile2, 4)) Then
Tabelle2.Rows(izeile2).Delete
End If
End If
End If
End If
Next izeile1
Next izeile2
Application.ScreenUpdating = True
End Sub
gruß marie
Public Sub fktvergleiche()
Dim lolastZ1 As Long 'letzte beschriebene Zeile in Tabelle 1 Spalte1
Dim lolastZ2 As Long 'letzte beschriebene Zeile in Tabelle 2 Spalte1
Dim izeile1 As Long
Dim izeile2 As Long
lolastZ1 = Tabelle1.Range("A65536").End(xlUp).Row
lolastZ2 = Tabelle2.Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For izeile2 = 1 To lolastZ2 'geht jede beschriebene zeile in Tabelle 2 durch
For izeile1 = 1 To lolastZ1
If Trim$(Tabelle1.Cells(izeile1, 1)) = Trim$(Tabelle2.Cells(izeile2, 1)) Then
If Trim$(Tabelle1.Cells(izeile1, 2)) = Trim$(Tabelle2.Cells(izeile2, 2)) Then
If Trim$(Tabelle1.Cells(izeile1, 3)) = Trim$(Tabelle2.Cells(izeile2, 3)) Then
If Trim$(Tabelle1.Cells(izeile1, 4)) = Trim$(Tabelle2.Cells(izeile2, 4)) Then
Tabelle2.Rows(izeile2).Delete
End If
End If
End If
End If
Next izeile1
Next izeile2
Application.ScreenUpdating = True
End Sub
Antwort 3 von Marie vom 13.12.2019, 00:32 Options
Public Sub fktvergleiche()
Dim lolastZ1 As Long 'letzte beschriebene Zeile in Tabelle 1 Spalte1
Dim lolastZ2 As Long 'letzte beschriebene Zeile in Tabelle 2 Spalte1
Dim izeile1 As Long
Dim izeile2 As Long
lolastZ1 = Tabelle1.Range("A65536").End(xlUp).Row
lolastZ2 = Tabelle2.Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For izeile2 = 1 To lolastZ2 'geht jede beschriebene zeile in Tabelle 2 durch
For izeile1 = 1 To lolastZ1
If Trim$(Tabelle1.Cells(izeile1, 1)) = Trim$(Tabelle2.Cells(izeile2, 1)) Then
If Trim$(Tabelle1.Cells(izeile1, 2)) = Trim$(Tabelle2.Cells(izeile2, 2)) Then
If Trim$(Tabelle1.Cells(izeile1, 3)) = Trim$(Tabelle2.Cells(izeile2, 3)) Then
If Trim$(Tabelle1.Cells(izeile1, 4)) = Trim$(Tabelle2.Cells(izeile2, 4)) Then
Tabelle2.Rows(izeile2).Delete
End If
End If
End If
End If
Next izeile1
Next izeile2
Application.ScreenUpdating = True
End SubAntwort 4 von Olowedi vom 13.12.2019, 21:29 Options
Hallo Marie,
vielen Dank. Hat funktioniert.
vielen Dank. Hat funktioniert.
Antwort 5 von ponscho vom 22.01.2020, 17:01 Options
hallo @all,
habe diese funktion über "suche" gefunden, da ich dieses makro auch gebrauchen kann.
nur könnte mir jemand kurz helfen?
würde den vergleich erst ab zeile 6 der beiden tabellen starten wollen.
wo muss ich das in diesem code ändern?
internette grüsse
ponscho
habe diese funktion über "suche" gefunden, da ich dieses makro auch gebrauchen kann.
nur könnte mir jemand kurz helfen?
würde den vergleich erst ab zeile 6 der beiden tabellen starten wollen.
wo muss ich das in diesem code ändern?
internette grüsse
ponscho
Ähnliche Themen
Excel - Daten vergleichen und niedrigsten Wert markieren
Racerking33 11.04.2007 - 355 Hits - 1 Antwort
excel dateien vergleichen
trini9 30.08.2007 - 658 Hits - 2 Antworten
vergleichen
offi 23.04.2008 - 88 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
