29. März 2024, 16:01
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0405
  E02: Laufzeitfehler 91,Objektv. oder With Blockv.nicht festgelgt
 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




[ VB-/VBA-Forum | Archiv 0405 | Archiv-Übersicht ]
 Antworten
E02: Laufzeitfehler 91,Objektv. oder With Blockv.nicht festgelgt - Papaschlumpf79 26. Februar 2008 um 17:17:27
Re: Laufzeitfehler 91,Objektv. oder With Blockv.nicht - r.mueller@sz-online.de 26. Februar 2008 um 18:28:17
Re: Laufzeitfehler 91,Objektv. oder With Blockv.nicht - Papaschlumpf79 27. Februar 2008 um 17:03:02
Re: Laufzeitfehler 91,Objektv. oder With Blockv.nicht - Detlev Schubert 27. Februar 2008 um 17:19:21
Re: Laufzeitfehler 91,Objektv. oder With Blockv.nicht - r.mueller@sz-online.de 27. Februar 2008 um 18:40:55

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum