Worksheetfunktion
19.01.2004 08:39:52
Micha
mit dem nachfolgenden Makro durchsuche ich die Tabelle1 nach Zahlen. Wird eine Zahl gefunden soll diese Zahl mit der Worksheetfunktion Round gerundet werden. Das funzt auch. Leider enthält die Tabelle1 auch verbundene Zellen zb
=Tabelle2!A1. Leider rundet das makro hier derart, das der Bezug zur Tabelle2 verloren geht. Wie kann man das verhindern.
.address hat nicht gefunzt.
Sub test()
Dim roindex As Integer, colindex As Integer
With ActiveSheet
irowll = Cells(Rows.Count, 1).End(xlUp).Row
icoll = 256
End With
For roindex = 1 To irowll
For colindex = 1 To icoll
With ActiveSheet.Cells(roindex, colindex)
On Error Resume Next
If .Value > 0# Then
Worksheets("Tabelle1").Cells(roindex, colindex) = WorksheetFunction.Round(Worksheets("Tabelle1").Cells(roindex, colindex), -2)
End If
End With
Next colindex
Next roindex
End Sub