Vergleich von Zell-Werten in If-Bedingung

Hallo!

ich versuche, in einer Spalte jeweils von oben nach unten jeden Wert in einer Zelle mit dem Wert darüber zu vergleichen. Stimmt der Wert nicht überein, so soll die Zeile, in der man sich gerade befindet markiert und kopiert weren. Diese wird dann in einem anderen Fenster am Ende der Tabelle eingefügt. Bisher versuche ich das so:

For zaehler = 2 To zaehler = intLetzteZeile

If Cells("A" & zaehler).Value <> Cells("A" & zaehler - 1).Value Then

Range("A" & zaehler & ":P" & zaehler).Select
Selection.Copy

Windows("a" & intJahr & ".xls").Activate

intLetzteZeile2 = Worksheets("a" & intJahr & _
".xls").Cells(Rows.Count, 1).End(xlUp).Row

Cells(intLetzteZeile2 + 1,1).Select ' ActiveSheet.Paste

End If

Das Programm wird ohne Fehler ausgeführt - es scheint aber nichts zu passieren (jedenfalls sind die Sheets unverändert, obwohl er Abweichungen finden müsste)
Kann mir da jemand weiterhelfen?

Danke,
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

danke für die Antwort. Lief aber tatsächlich durch. Hab das gleiche übrigens auch mit der Range-Methode probiert - genau das gleiche Problem. Ich druck mal den gesamten Quelltext ab, vielleicht fällt ja jemandem was anderes auf?


Sub TestProgramm()
Dim i As Integer                    ' Zählvariable
Dim strWorkbook As String
Dim intEndjahr As Integer
Dim intStartjahr As Integer
Dim intJahr As Integer
ChDrive "d"
ChDir "D:\Daten\Preisdaten\Jahresfiles_MM_inSpalten\31_10_03"
intStartjahr = InputBox("Startjahr?")
intEndjahr = InputBox("Endjahr?")
Dim zaehler As Integer
For intJahr = intStartjahr To intEndjahr
Workbooks.Open Filename:= _
"D:\Daten\Preisdaten\Jahresfiles_MM_inSpalten\31_10_03\a" & intJahr & ".xls"
Sheets("Tabelle1").Select
' Hier 1. Zeile beschriften
Workbooks.Open Filename:= _
"D:\Daten\Preisdaten\Jahresfiles_MM_inSpalten\31_10_03\" & intJahr & ".xls"
Worksheets("ohneDoppelte").Activate
intLetzteZeile = Worksheets("ohneDoppelte").Cells(Rows.Count, 1).End(xlUp).Row
For zaehler = 2 To zaehler = intLetzteZeile
If Cells("A" & zaehler).Value = Cells("A" & zaehler - 1).Value Then
Range("A" & zaehler & ":P" & zaehler).Select
Selection.Copy
Windows("a" & intJahr & ".xls").Activate
intLetzteZeile2 = Worksheets("a" & intJahr & _
".xls").Cells(Rows.Count, 1).End(xlUp).Row
Cells(intLetzteZeile2 + 1, 1).Select
ActiveSheet.Paste
End If
Windows(intJahr & ".xls").Activate
Sheets("ohneDoppelte").Activate
Next zaehler
Next intJahr
End Sub

Sub TestProgramm() intletztezeile = 10 For zaehler = 2 To zaehler = intletztezeile Debug.Print zaehler If Cells("A" & zaehler).Value = Cells("A" & zaehler - 1).Value Then Range("A" & zaehler & ":P" & zaehler).Select Selection.Copy Cells(intLetzteZeile2 + 1, 1).Select ActiveSheet.Paste End If Next zaehler End Sub

Sub TestProgramm() intletztezeile = 10 For zaehler = 2 To intletztezeile Debug.Print zaehler If Cells("A" & zaehler).Value = Cells("A" & zaehler - 1).Value Then Range("A" & zaehler & ":P" & zaehler).Select Selection.Copy Cells(intLetzteZeile2 + 1, 1).Select ActiveSheet.Paste End If Next zaehler End Sub

Beliebteste Forumthreads (12 Monate)

Vergleich von Zell-Werten in If-Bedingung

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread