Zahlenvergleich
03.02.2004 09:16:49
Jürgen
ich habe hier ein Makro das den Wert aus Zelle A1 mit den darunterliegenden Werten vergleichen soll aber er vergleicht nicht???
Für euch warscheinlich ne Lapalie.
Sub Makro4()
Dim Zahl
Dim Zahl1
Zahl = A1
Zahl1 = ActiveCell
For i = 1 To 200
If Zahl1 = Zahl Then
Sheets("HER").Select
ActiveCell.Offset(0, 5).Select
Selection.Copy
Sheets("WS").Select
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("HER").Select
ActiveCell.Offset(1, -5).Select
Exit Sub
ElseIf Zahl1 <> Zahl Then
ActiveCell.Offset(1, 0).Select
ElseIf Zahl1 = 0 Then
Exit Sub
End If
Next i
End Sub
Jürgen