Microsoft Excel

Herbers Excel/VBA-Archiv

Wo ist in diesem Makro der Wurm drin? Bitte helfen



Excel-Version: 10.0 (Office XP)

Betrifft: Wo ist in diesem Makro der Wurm drin? Bitte helfen
von: Mentes
Geschrieben am: 07.06.2002 - 09:37:28

Problem:
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

  

was für ein fehler?
von: andré
Geschrieben am: 07.06.2002 - 10:12:43

was kommt den für ein fehler

  

Re: was für ein fehler?
von: Mentes
Geschrieben am: 07.06.2002 - 12:19:21

Das ding tut nix, es macht nix!