Gruppe
Extern
Problem
Wie kann ich eine dBase-Datei über VBA laden, bestimmte Werte neu berechnen und die Datei wieder als dBase-Datei speichern?
StandardModule: Modul1
Sub Konvert()
Dim rng As Range
Dim sFile As String
Application.ScreenUpdating = False
On Error GoTo ERRORHANDLER
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "DBase-Datei wurde nicht gefunden!"
Else
Workbooks.Open sFile
For Each rng In Range("A2:B3")
rng.Value = rng.Value * 2
Next rng
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sFile, FileFormat:=xlDBF4
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub