---

HallO!

Habe in folgendem Code das Problem eines Laufzeitfehlers 13! Das Problem tritt auf, wenn ich den Sheet (hier "Gesamtbericht") in dem der Code enthalten ist öffne, allerdings erst nach mehrmaligen aktivieren zuvor!

Hier der code:
Dim z As Integer
    Dim i As Integer
    Dim istunden(1, 15) As Double
    Dim bud As Double
    Dim inv As Double
    Dim hr_intern(1, 2) As Double
   
    z = ComboBox3.ListIndex + 25
    For i = 1 To 15
        istunden(1, i) = Sheets("MA_sheets_Auswertung").Cells(z, i + 35)    ----Laufzeitfehler 13 !!!!----
    Next i
    bud = Sheets("MA_sheets_Auswertung").Cells(z, 20)
    inv = Sheets("MA_sheets_Auswertung").Cells(z, 21)
    For i = 1 To 2
        hr_intern(1, i) = Sheets("MA_sheets_Auswertung").Cells(z, i + 27)
    Next i
    Call Schutz_deaktivieren("Gesamtbericht")
    For i = 1 To 13
        ActiveSheet.Cells(131, i + 1) = istunden(1, i)
    Next i
    ActiveSheet.Range("G138") = istunden(1, 14)
    ActiveSheet.Range("H138") = istunden(1, 15)
    ActiveSheet.Range("B138") = bud
    ActiveSheet.Range("C138") = inv
    ActiveSheet.Range("D138") = hr_intern(1, 1)
    ActiveSheet.Range("E138") = hr_intern(1, 2)
    ActiveSheet.Range("H125") = ComboBox3.Text
    Call Schutz_aktivieren("Gesamtbericht")
End Sub

Danke für die Hilfe
Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Martin,

ohne die Tabelle schwer zu sagen. Erzeuge mal den Fehler und debugge ihn. Markiere den Ausdruck Sheets("MA_sheets_Auswertung").Cells(z, i + 35) und drücke auf Shift+F9. Damit wird dir der aktuelle Wert angezeigt. Da ist z.B. Text in einer Zelle und du versuchst diesen an deine Variable vom Typ Double zu übergeben.

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schönen Dank

Der Fehler lag am ListIndex der Combobox!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, habe auch einen Laufzeitfehler 13:

Die Schaltfläche speichert einfach die Datei unter einem bestimmten Namen. Gestern hat sie noch funktioniert, heute nicht mehr.

'''''''''''''''''''''''''''''''''''

Private Sub CommandButton1_Click()
    Dim Wert(4) As Variant
   
    Sheets("Angaben").Select

    'Zugriff auf Tabelle
   
    ' Werte aus Angaben holen
    Wert(0) = Sheets("Angaben").Range("F8").Value  'Pumpengröße
    Wert(1) = Sheets("Angaben").Range("E10").Value 'Viskosität
    Wert(2) = Sheets("Angaben").Range("E13").Value 'E-Nr.
    Wert(3) = Sheets("Angaben").Range("E15").Value 'Ersteller/Prüfer
    Wert(4) = Sheets("Angaben").Range("E16").Value 'Datum
       
    For Each Check In Wert
      If Check = "" Then
        MsgBox "Bitte alle Pflichtfelder ausfüllen!", vbOKOnly
        GoTo Ende
      End If
    Next Check
   
    ChDir "I:\DATEN\DATEN\WKP\TECHNIK\förderleistung"
    ActiveWorkbook.SaveAs Filename:= _
        "I:\DATEN\DATEN\WKP\TECHNIK\förderleistung\" & Replace(Wert(0), ".", "_") & "_" _
                                                    & Wert(1) & "mPas_" _
                                                    & "E" & Wert(2) & "_" _
                                                    & UCase(Wert(3)) & "_" _
                                                    & Replace(Wert(4), ".", "_") _
                                                  & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Ende:

End Sub

'''''''''''''''''''''''''''''''''''

Ich versteh nicht was daran nicht passt.

------------------
:-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dominik,

ich zitiere mal Nepumuk.

Zitat:

---

Erzeuge mal den Fehler und debugge ihn.

---

In VBA Taste F8. Wo bleibt's hängen? Stimmt Dein Pfad? Gibt's das Laufwerk I? Was hat sich seit "gestern" verändert? Immer noch die gleiche xls-Version?

Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

ich hatte das gleiche problem.
ich habe es gelöst, indem ich den typ der zahl festgelegt habe. ich habe dabei eine der folgenden funktionen verwendet:
Funktion - Zahlentyp des Rückgabewertes

CInt(Ausdruck) - Integer  Der Nachkommaanteil wird gerundet

CLng(Ausdruck) - Long  Der Nachkommaanteil wird gerundet

CSng(Ausdruck) - Single

CDbl(Ausdruck) - Double

CStr(Ausdruck) - String

CVar(Ausdruck) - Variant

vielleicht hilft euch das. lg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP