Hi Knud,
Speichere sie bitte mal als xls ab und lade sie neu hoch.
So habe ich jetzt gemacht und zur Sicherheit auf einen anderen
Server geladen, der hoffentlich Virenfrei ist …
http://www.hostarea.de/server-08/August-c8f0c8c6d1.xls
Ich konnte bislang nichts mit Viren auf badango feststellen.
Alt+F11, links Doppelklick auf „DieseArbeitsmappe“, Code einfügen.
Dann stellst du den Curser mitten in den unteren Code (FormelnEntfernen), wo genau im Code ist egal, und drückst auf F5. Damit werden alle Formeln entfernt, schon eingegebene Werte müßten erhalten bleiben, teste das aber erstmal an einer Kopie deiner Originaldatei.
Den Code von FormelnEntfernen kannste dann komplett löschen. Editor schließen. Der andere Code läuft dann automtisch ab bei Eingaben in E,H,I,L ab der der siebten Zeile
Option Explicit
'
Private Sub Workbook\_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Ende
With Sh
If Target.Row 1 Then Exit Sub
If Intersect(Target, .Range("E:E,H:H,I:I,L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Column = 5 Or Target.Column = 9 Then
Target.Offset(0, 3).Value = Target.Value / (1 + Target.Offset(0, 2).Value / 100)
Target.Offset(0, 1).Value = Target.Value - Target.Offset(0, 3).Value
Else
Target.Offset(0, -3).Value = Target.Value \* (1 + Target.Offset(0, -1).Value / 100)
Target.Offset(0, -2).Value = Target.Offset(0, -3).Value - Target.Value
End If
.Cells(Target.Row, 13).Value = .Cells(Target.Row, 5).Value - .Cells(Target.Row, 9).Value + .Cells(Target.Row - 1, 13).Value
End With
Ende:
Application.EnableEvents = True
End Sub
'
Sub FormelnEntfernen()
Dim wks As Worksheet
Application.EnableEvents = False
For Each wks In ThisWorkbook.Worksheets
With wks.Range("E7:M1000")
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= \_
False, Transpose:=False
Application.CutCopyMode = False
End With
Next wks
Application.EnableEvents = True
End Sub
Die Datei habe ich gespeichert als Excel97-03 Arbeitsmappe. Es
gab allerdings beim Abspeichern eine
Kompatiblitätsfehlermeldung, welche sich wohl auf die
farbliche Gestaltung der einzelnen Blätter-Tabs bezog (Januar
Ja, farbliche Register gabs erst ab XL2003 (evtl.2002)
Gruß
Reinhard
