Wo ist in diesem Makro der Wurm drin? Bitte helfen
07.06.2002 09:37:28
Mentes
Ich habe eine Excel-Datei, die aus zwei Sheets (links unten die Reiter oder Blätter) besteht: Tabelle-Alt und Tabelle-Neu.
Jeder Zeileninhalt von Spalte F (Tabelle-Alt) mit jedem Zeileninhalt von Spalte F (Tabelle-Neu) vergleichen.
Bei Übereinstimmung soll nur der jeweilige Eintrag von der Spalte W (Tabelle-Alt) in die Spalte W (Tabelle-Neu) übertragen werden.
Makro von Nike:
Sub Datenabgleich()
Dim wksAlt As Worksheet
Dim wksNeu As Worksheet
Dim lngZeil As Long
Set wksAlt = ActiveWorkbook.Worksheets("Tabelle-Alt")
Set wksNeu = ActiveWorkbook.Worksheets("Tabelle-Neu")
lngZeil = 1
Do
If wksAlt.Cells(lngZeil, 6) = wksNeu.Cells(lngZeil, 6) Then
wksNeu.Cells(lngZeil, 23) = wksAlt.Cells(lngZeil, 23)
End If
lngZeil = lngZeil + 1
Loop Until wksAlt.Cells(lngZeil, 6) = ""
End Sub
Problem:
Wenn ich das Makro starte kommt kein Fehler und es passiert leider auch nichts!
Was stimmt hier nicht?
Danke