Quellcode-Fehler
10.02.2004 10:06:01
Daniel
Könnte mal bitte einer von euch Experten über den folgenden Quelltext schauen und mir verraten, warum ich einen Laufzeitfehler 1004 bei "Selection.Value = PerMonth" bekomme ? DANKE!
Gruß Daniel
Sub Datum()
Application.DisplayAlerts = False
Dim PerMonth As String
Dim PerYear As String
Workbooks.Open Filename:="L:\BAU\KST\KST_Bericht\Report_G030010.XLS", _
UpdateLinks:=xlUpdateLinksNever
Sheets("Extract").Select
Range("B12").Select
PerMonth = Right(Selection.Value, Len(Selection.Value) - 12)
PerMonth = getMonth(PerMonth)
Range("A12").Select
ActiveWindow.Close savechanges:=False
Workbooks.Open Filename:="L:\BAU\KST\KST_Bericht\Stammdaten.XLS", _
UpdateLinks:=xlUpdateLinksNever
Sheets("Allgemein").Activate
Range("B1").Select
PerYear = CStr(Selection.Value)
ActiveWindow.Close savechanges:=False
Windows("Kostenartenbericht(Vorlage).xls").Activate
Sheets("Bericht").Activate
Range("I7").Select
Selection.Value = PerMonth
Range("J7").Select
Selection.Value = PerYear
End Sub
Function getMonth(MonNum As String) As String
If MonNum = "1" Then
getMonth = "Januar"
End If
If MonNum = "2" Then
getMonth = "Februar"
End If
If MonNum = "3" Then
getMonth = "März"
End If
If MonNum = "4" Then
getMonth = "April"
End If
If MonNum = "5" Then
getMonth = "Mai"
End If
If MonNum = "6" Then
getMonth = "Juni"
End If
If MonNum = "7" Then
getMonth = "Juli"
End If
If MonNum = "8" Then
getMonth = "August"
End If
If MonNum = "9" Then
getMonth = "September"
End If
If MonNum = "10" Then
getMonth = "Oktober"
End If
If MonNum = "11" Then
getMonth = "November"
End If
If MonNum = "12" Then
getMonth = "Dezember"
End If
End Function