Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vergleich Inhalt von je zwei Spalten gleichzeitig

Vergleich Inhalt von je zwei Spalten gleichzeitig
09.11.2004 11:07:06
je
Hallo
ich habe in der ersten Spalte eine Kundennummer stehen, der eine Beraternummer zugeordnet ist. Die Kundennummer kann max. zweimal vorkommen, die Datensätze sind nach der Kundennummer sortiert.
Wie kann ich als Funktion / Makro eingeben:
vergleiche Inhalt Spalte KdNr incl. Ber Nr mit der nächsten Kd Nr incl. Ber Nr.
Ich will später nur die Kd Nr angezeigt bekommen, bei denen die Kd gleich ist und die Ber Nr. unterschiedlich ist, wobei alle zugehörigen weiteren Spalten mit angezeigt werden sollen.
die Kd. Nummer, bei denen die Ber. Nr hinten identisch ist können aus der Tabelle verschwinden.
Ich habe eine Datei mit zwei unterschiedlichen Tabellenblättern beigefügt. Die Daten sind praktisch identisch.
Für jeglichen Hinweis auf ein Lösung des Problems bin ich äußerst dankbar!!!!!

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Musterdatei fehlt
xule
..
AW: Vergleich Inhalt von je zwei Spalten gleichzeitig
09.11.2004 11:35:12
je
Hallo Kerstin,
versuchs mal so

Sub ausblenden()
i=1
while cells(i,1)<>""
if cells(i,1)=cells(i+1,1) then
if cells(i,2)<>cells(i+1,2) then
i=i+2
end if
else
rows(i).hidden=true
i=i+1
end if
End Sub

Gruß
Volker
an Volker...Fehlermeldung
10.11.2004 09:41:53
Kerstin
Hallo bekomme folgende Fehlermeldung
da ich mich in VBA gar nicht auskenne, muß ich mich nochmal an Dich wenden
Fehler beim Kompilieren While ohne Wend
AW: an Volker...Fehlermeldung
Sven

Sub ausblenden()
i=1
while cells(i,1)<>""
if cells(i,1)=cells(i+1,1) then
if cells(i,2)<>cells(i+1,2) then
i=i+2
end if
else
rows(i).hidden=true
i=i+1
end if
wend
End Sub

Anzeige
AW: an Sven
11.11.2004 15:53:34
Kerstin
Hallo Sven
Danke schön
AW: Vergleich Inhalt von je zwei Spalten gleichzeitig
je
Ich hab mal was gebastelt
gelbe Zellen können raus.
Vorher:
 AB
1Kundennr.Beraternr.
211111
322222
433333
533334
655551
755552
866661
966661
 
Nachher:
 AB
1Kundennr.Beraternr.
233333
333334
455551
555552
666661
 

Public

Sub raus()
LR = Cells(Rows.Count, 1).End(xlUp).Row 'Letzte Zeile aus Spalte A
For x = LR To 2 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(x, 1)) = 1 Then
Rows(x).Delete shift:=xlUp
Else
If Cells(x, 2).Value = Cells(x - 1, 2) Then
Rows(x).Delete shift:=xlUp
x = x - 1
End If
End If
Next
End Sub

Anzeige
Ihr seid ja echte Engel--Danke!!!
09.11.2004 12:42:26
Kerstin
Wahnsinn.....habs schon getestet und es klappt einwandfrei
Vielen lieben Dank!
AW: Vergleich Inhalt von je zwei Spalten gleichzeitig
10.11.2004 09:33:21
je
Hallo
der gestrige Test hat wohl doch nicht so ganz funktioniert.
Ich bekomme einen Laufzeitfehler 1004 angezeigt, wenn ich das Makro in meine Datei setze.
https://www.herber.de/bbs/user/13235.xls
Das ist meine Datei.....vielen Dank im voraus

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige