ich habe folgendes Problem:
Über ein Makro (weiter unten) möchte ich eine Auswertung machen. Die Daten stehen in der Tabelle Fall 1.
Als Ergebnis möchte ich die gesamte Zeit haben. Die Zahlen sind aber als Text formatiert. Deshalb multipliziere ich die Zellen mit 1, damit ich eine Zahl bekomme.
Soweit so gut. Nun kann es aber vorkommen (Fall 2), dass keine Daten in der Tabelle stehen. Ist dies der Fall, möchte ich, dass in E2 0 eingetragen wird.
Mein Problem besteht darin, dass mein Speicher nicht ausreicht, weil ich in allen leeren Feldern eine 0 stehen habe. Wo ist mein Fehler im Makro?
https://www.herber.de/bbs/user/55080.xls
Range("O13").Select
Selection.Copy
ActiveCell.FormulaR1C1 = "1"
If Range("I2") = "" Then
Range("I2") = 0
Else
Range("I2").Select
End If
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Columns("I:I").EntireColumn.AutoFit
Danke für die Hilfe