Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 dateien vergleichen und ggf. daten löschen

2 dateien vergleichen und ggf. daten löschen
18.01.2006 17:09:18
Bernd
hallo,
ich habe wieder mal ein problem.
ich habe eine datei ... daten1.xls
dort sind in tabelle1 2000 daten. von a1:a2000
immer 8-stellige zahlen
dann habe ich eine 2. datei ... daten2.xls
dort sind in tabelle1 ca. 350 daten. von a1:a350
auch immer 8-stellige zahlen
nun möchte ich in der datei daten1.xls einen button klicken und alle zahlen die
in der 2. datei sind aus der 1. datei löschen.
quasi die 1. datei um die daten in der 2. datei bereinigen.
das kann mann doch irgendwie mit einer schleife erledigen, oder?
vielen dank für eure hilfe
gruss bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 dateien vergleichen und ggf. daten löschen
18.01.2006 18:26:26
Eule
Hi bernd
vielleicht so als Ansatz:
du kopierst die Daten aus Datei2 (deine 350 St.) in Datei1 (darunter) und lässt dieses Makro laufen:

Sub AlleDoppelten_ganzweg()
Dim zelle As Range
Dim container() As Long
Dim i As Long
Dim a As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
For Each zelle In Range("a1:a1000")
If WorksheetFunction.CountIf(Range("A1:a1000"), zelle) > 1 Then
ReDim Preserve container(i)
container(i) = zelle.Row
i = i + 1
End If
Next
For a = UBound(container) To LBound(container) Step -1
Rows(container(a)).Delete
Next
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Du kannst natürlich die Kopieranweisung auch noch automatisieren.
Gruss Eule
Anzeige
AW: 2 dateien vergleichen und ggf. daten löschen
18.01.2006 18:36:23
ChrisL
Hallo Bernd
Inzwischen habe ich auch rumprogrammiert. Einleitung (ScreenUpdating etc.) und Schluss habe ich mir erlaubt von Eule zu klauen.

Private Sub CommandButton1_Click()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, LetzteZeile As Long
Set WS1 = ThisWorkbook.ActiveSheet  'entspricht daten1.xls
Set WS2 = Workbooks("Mappe2.xls").Worksheets("Tabelle1") 'entspricht daten2.xls
LetzteZeile = WS1.Range("A65536").End(xlUp).Row
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
For iZeile = LetzteZeile To 1 Step -1
If WorksheetFunction.CountIf(WS2.Columns("A:A"), WS1.Cells(iZeile, 1)) > 0 Then Rows(iZeile).EntireRow.Delete
Next iZeile
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Viel Spass und Feedback nicht vergessen.
Gruss
Chris
Anzeige
danke, code klapp supper :-) o.t.
18.01.2006 19:14:51
Bernd

300 Forumthreads zu ähnlichen Themen

2 Zellen aus verschiedenen Dateien vergleichen
Joni

Hi,
ich sollte die Werte aus 2 Zellen aus verschiedenen Dateien miteinander vergleichen und verwende dafür folgende Zeile:
If .Cells(j, 2) = Workbooks(DNSB).Worksheets(Bericht1).Cells(jj, 2) Then
Leider erhalte ich immer eine Fehler. Ich habe auch schon andere Varianten probiert. Do...
08.06.2009 00:57:53
Thread-ID: 1079774
8 Beiträge
Anzeige
2 Tabellen aus 2 Dateien miteinander vergleichen
Frank

Hallo zusammen,
Ich habe hier noch mal was für die Excel Cracks
Ausgangslage:
Protokolldatei (in dieser Datei befinden sich die Makros; und letztendlich die kopierten Zeilen in denen Unterschiede gefunden wurden)
Aus der Protokolldatei heraus (Datei1 Tabelle Monat07; Datei2 Tabe...
10.09.2009 02:30:35
Thread-ID: 1101552
2 Beiträge
zwei Dateien vergleichen
Selina

Guten Tag !
Ich stehe vor einem bisher für mich unlösbaren Problem. Zwar bin ich auf meiner Suche zu unzähligen ähnlichen Posts gestossen, allerdings fand ich bisher die beste Lösung noch nicht :-(
Und zwar gehts um folgendes:
Ich möchte mittels einem Makro zwei Excel Dateien zusamm...
12.12.2011 12:40:17
Thread-ID: 1241670
18 Beiträge
Anzeige
Zwei Dateien Vergleichen und Differenz berechnen
Nina

Hallo zusammen!
Ich habe jetzt schon eine ganze Weile ein Problem in der vba-Programmierung. Leider habe ich noch nie vba programmiert :(
Es geht um folgendes: Ich möchte zwei Excel-Dateien auswählen (vllt über eine Dialog-Box oder der Benutzer muss diese einfach von vorn herein geöffne...
14.03.2013 15:52:45
Thread-ID: 1304012
15 Beiträge
Excel 2010-Dateien vergleichen - alte Mitglieder e
Ardona

Guten Abend
Ich habe alte Tabellen aus verschiedenen Regionen, wo die Mitglieder wie folgt gelistet sind:
Nachname (Spalte A), Vorname (Spalte B), E-Mail-Adresse (Spalte C), Herr oder Frau (Spalte D), Stasse (Spalte E) etc.
Die Mitglieder sind alphabetisch von A-Z (Spalte A) geordne...
19.07.2013 14:38:35
Thread-ID: 1323256
3 Beiträge
Zellen inhalte zwischen 2 Dateien vergleichen
HerrA

Hallo zusammen,
kann mir jemand helfen?
Ich habe in einer Datei einen Wert in einer Zelle stehen. Nun soll in einer anderen Datei (immer die Gleiche) die Zeilen nach dem Wert (der immer in der gleichen Spalte C steht) durchsucht werden. Sobald in der Spalte C der Wert gefunden wurde sol...
01.04.2014 12:47:45
Thread-ID: 1355664
6 Beiträge
2 Dateien vergleichen
Thomas

Hi,
hab da wieder mal ne frage^^
ich hab zwei Dateien.
Datei 1 wurde am Montag angelegt, da sind sehr viele Werte, text, etc hinterlegt.
Datei 2 wurde am Mittwoch angelegt, da sind manche Werte, texte etc von Montag verändert worden, manche nicht, es sind aber auch neue dazu gek...
14.04.2014 12:04:24
Thread-ID: 1357227
6 Beiträge
2 Dateien vergleichen
Michael

Hallo!
Folgendes Problem hab ich. Ich muss 2 Tabellen miteinander vergleichen.
Tabellen Blatt 1 (meine aktiven Angebote)
Spalte A: EAN Code
Spalte B; Warenbeschreibung
Tabellen Blatt 2 (Bestand des Großhändlers)
Spalte A: EAN Code
Spalte B: Warenbeschreibung
Spal...
24.12.2014 10:53:27
Thread-ID: 1399520
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
14
1
17
5
14
2
5
5
1
1
8
2
1
9
4
2
4
12
3
2
6
1
9
9