Von |
Papaschlumpf79 |
Am |
26. Februar 2008 um 17:17:27 |
Frage |
(Thema)Diese Fehlermeldung kommt bevor ich die Datei öffnen kann.Das Programm funktioniert aber sonst ohne Probleme.Was mache ich da falsch? Steht alles in einen Modul
Dim Wks As Worksheet Dim Zellbereich As Range Dim Zeile As Range Public Sub Monate_ermitteln()
Dim dEndDatum As Date Dim dBeginnDatum As Date Dim iMonate As Integer Dim iJahre As Integer Dim iRestMonate As Integer Set Wks = Worksheets("Arbeit") Set Zellbereich = Wks.Range("D5:D12") For Each Zeile In Zellbereich dEndDatum = Zeile.Value 'Enddatum' dBeginnDatum = Zeile.Offset(0, -1).Value 'Datum des Beginns' iMonate = DateDiff("m", dBeginnDatum, dEndDatum) 'Berechnung der Arbeitsmonate'
If iMonate <= 2 Or iMonate <= 12 Then 'wenn imonate kleiner als 2 oder 12 ist...' With Zeile .Offset(0, 2).Value = iMonate .Offset(0, 3).Value = "Monat" End With Else With Zeile .Offset(0, 2).Value = iMonate .Offset(0, 3).Value = "Monate" End With End If Next Zeile Set Wks = Nothing Set Zellbereich = Nothing End Sub Sub Jahre_ermitteln()
Set Wks = Worksheets("Arbeit") Set Zellbereich = Wks.Range("H5:H12") For Each Zeile In Zellbereich If Zeile.Value = 1 Then 'wenn Jahre=1 oder grösser als 1...' Zeile.Offset(0, 1).Value = "Jahr" Else Zeile.Offset(0, 1).Value = "Jahre" End If Next Zeile
Set Wks = Nothing Set Zellbereich = Nothing
End Sub Sub Arbeitszeit_Gesamt()
Set Wks = Worksheets("Arbeit") Set Zellbereich = Wks.Range("F5:F11")
Dim sGesamtArbeitszeit As String
sGesamtArbeitszeit = Application.WorksheetFunction.Sum(Zellbereich) Range("F12").Value = sGesamtArbeitszeit - Range("F7").Value - Range("F11").Value Range("G12").Value = "Monate"
Set Wks = Nothing Set Zellbereich = Nothing
End Sub
|
|