Wie mehrere Zeilen abarbeiten
20.12.2002 13:28:37
Bongartz
Halloerstmal vielen Dank für Deine Hilfe.
Ich habe noch ein Problem. Wie kann ich mehrere Zeilen abarbeiten. Ich habe in der Hilfe was mit For.. Next gefunden,
aber ich komme damit nicht zurecht.
Es müssten die Zeilen 12 bis 150 abgearbeitet werden.
Nach einigem ausprobieren habe vollgendes Macro erstellt:
Sub Vergleich()
On Error Goto ErrorHandler
Dim Zahl1, Zahl2, Zahl3, Zahl4, Zahl5, Zahl6, Zahl7, Zahl8, Zahl9, Zahl10
Dim iRow As Integer
Zahl1 = ActiveCell.Value 'ILN WE
Zahl2 = Range("A5").Value
Zahl3 = Range("A2").Value 'ILN RE
Zahl4 = Range("D8").Value
Zahl5 = Cells(ActiveCell.Row, 5).Value 'RechnungsAdresse
Zahl6 = Range("A8").Value
Zahl7 = Cells(ActiveCell.Row, 7).Value 'PLZ WE
Zahl8 = Range("G5").Value
Zahl9 = Range("G2").Value 'PLZ WE
Zahl10 = Range("G8").Value If Zahl1 = Zahl2 Then
Cells(ActiveCell.Row, 14).Value = "Richtig"
Else
Cells(ActiveCell.Row, 14).Value = "Falsch"
End If
If Zahl3 = Zahl4 Then
Cells(ActiveCell.Row, 15).Value = "Richtig"
Else
Cells(ActiveCell.Row, 15).Value = "Falsch"
End If
If Zahl5 = Zahl6 Then
Cells(ActiveCell.Row, 16).Value = "Richtig"
Else
Cells(ActiveCell.Row, 16).Value = "Falsch"
End If
If Zahl7 = Zahl8 Then
Cells(ActiveCell.Row, 17).Value = "Richtig"
Else
Cells(ActiveCell.Row, 17).Value = "Falsch"
End If
If Zahl9 = Zahl10 Then
Cells(ActiveCell.Row, 18).Value = "Richtig"
Else
Cells(ActiveCell.Row, 18).Value = "Falsch"
End If
Goto ILNExit
ErrorHandler:
Cells(ActiveCell.Row, 14).Value = "Falsch"
Cells(ActiveCell.Row, 15).Value = "Falsch"
Cells(ActiveCell.Row, 16).Value = "Falsch"
Cells(ActiveCell.Row, 17).Value = "Falsch"
Cells(ActiveCell.Row, 18).Value = "Falsch"
Resume Next
ILNExit:
ActiveCell.Offset(1, 0).Select
End Sub
Code eingefügt mit Syntaxhighlighter 1.13
Wäre super wenn Du mir noch einmal helfen kannst.
Gruß
Bongartz