Zeilen Vergleichen mit Excel 2003 ???

Question

Guten Tag

ich bitte um HIlfe bezüglich Excel 2003 - Zeilenvergleich mit VBA
Leider bin ich in VBA noch nicht eingearbeitet.


Ich habe ein Tabellenblatt
Dort stehen 20 Zeilen mit unterschiedlichen Zahlen pro Zeile (48 Spalten) Range A1:A48

Die erste Zeile ist immer die Referenzzeile

1. Zeile vergleichen mit 2. Zeile - Lösche alle Zahlen aus der 2. Zeile die nicht in der 1. Zeile sind
1. Zeile vergleichen mit 3. Zeile - Lösche alle Zahlen aus der 3. Zeile die nicht in der 1. Zeile sind
1. Zeile vergleichen mit 4. Zeile - Lösche alle Zahlen aus der 4. Zeile die nicht in der 1. Zeile sind
.
.
.
1. Zeile vergleichen mit der 20.Zeile - Lösche alle Zahlen aus der 20.Zeile die nicht in der 1. Zeile sind
ENDE

Könnte mir einer hierzu bitte helfen?
Gruß
Sarah

Answer 1

Hallo Sarah,

teste mal diesen Code

Option Explicit

Sub loescchen()
Dim rngC As Range, intI As Integer
Application.ScreenUpdating = False
For Each rngC In Range("A2:AV20")
If WorksheetFunction.CountIf(Range("A1:AV1"), rngC.Value) = 0 Then rngC.ClearContents
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rainer

Answer 2

hallo llieber Rainer,

ich küsse dich - das war die Lösung

Ich habe vorher immer von Hand zu Fuß verglichen - nun dank deiner Arbeit/Hilfe
ist es mit einem Rutsch erledigt.

1000 Küsse - 1000 x danke für deine liebe Hilfe


Kussi

Sarah