Ich habe ein Blatt "Auftragseingabe", aus dem ich Zeilen in das Blatt "Hammer" kopiere. Einige Zellen beinhalten aber Formeln und werden als Formel auch mitkopiert. Da ich dann falsche Werte erhalte, möchte ich gern, dass alle Zellen erst in "reine" Zahlen umgewandelt werden und dann kopiert werden.
Vorschläge??
Hier der Quelltext:
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = "Ahr4" Then
Selection.EntireRow.Copy // hier müßte wohl die Formel rein!
Sheets("Hammer").Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("Auftragseingabe").Select
ActiveCell.Offset(1#).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets("Hammer").Activate
Danke im voraus
Nicole