Fehlende With Anweisung?
25.01.2009 00:40:56
Kalle
wer kann mir sagen warum dieses Makro nicht funktioniert? Für Tips für einen effizienteren Code wäre ich auch dankbar.
Private Sub CommandButton1_Click()
Dim proof As Single
Dim ref1 As Single
Dim ref2 As Single
Dim marker As String
Dim BereichEnd As Range
Dim BereichBegin As Range
ActiveSheet.Range("f64").Select
weiter:
BereichEnd = ActiveCell.Offset(0, -2)
BereichBegin = ActiveCell.Offset(-60, -2)
proof = ActiveCell.Offset(0, -1)
marker = ActiveCell.Offset(0, 1).Address
ref1 = "-0,004"
ref2 = "+0,004"
Do Until Application.WorksheetFunction.CountIf(Range("BereichBegin:BereichEnd"), "0") = 0 And _
Application.WorksheetFunction.Min(Range("BereichBegin:BereichEnd")) = _
proof + ref2
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then Exit Sub
Loop
proof = ActiveCell.Offset(0, -1).Value
Range(marker).Select
ActiveCell.Value = proof
ActiveCell.Offset(1, -1).Select
GoTo weiter
End Sub
Vielen Dank für die Hilfe
Gruß
Pascal