Hallo!
Leider musste ich feststellen, dass der eingefügte Wert für weitere Berechnungen in eine Zahl umgewandelt werden muss. Dies habe ich so gelöst und das funktioniert soweit sehr gut. Es kann aber sein, das bei der Messung keine Zahl, sondern "HI" oder "LO" eingetragen wird. Damit kann er den Wert nicht berechnen. Wie bringe ich meinen hier aufgeführten Ausdruck dazu, dass er bei HI oder LO die Berechnung (*1) ignoriert. In dieser Variante kommt, verständlicher Weise, der Debugger und meckert, dass er nicht rechnen kann!
'Zelle in Zahl umwandeln
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = Zelle.Value * 1
Next Zelle
ActiveCell.Offset(1, 0).Select
End If
VG
Jens
|