Range-Funktion funktioniert nicht
09.05.2006 16:51:25
Juie
wir lesen aus unsrer FiBu eine csv-Datei aus. Dort sind die Werte jedoch ohne Komma, also 530000 anstatt 5300,00. Dies möchte ich von einer Makrodatei aus ändern. Also Datei öffnen (--> funktioniert) und anschließend alle Werte durch 100 teilen. Aber irgendwie funktioniert das nicht wie ich will. Ich bekommen einen Laufzeitfehler 1004.
Für ein besseres Verständnis unten der Code.
Kann mir jemand helfen?
Im voraus besten Dank
Juie
'Makro geschrieben am 09.05.2006 UW
Private Sub CommandButton1_Click()
Dim SN As Boolean
SN = Dateiauf(Range("A1").Value) 'SN=string name
If SN = False Then MsgBox "Die folgende Datei wurde geöffnet:" & Range("A1").Value
Call ZahlmitKomma
End Sub
Function Dateiauf(fn As String) As Boolean 'fn=file name
Dateiauf = False
If Len(fn) > 0 Then Workbooks.Open Filename:=fn
Exit Function
End Function
Sub ZahlmitKomma()
Dim Zelle As Range
Range("J:J").Select
For Each Zelle In Selection
Zelle.Offset(0, 3).Value = "RC(-3)/100"
Next Zelle
End Sub