Thema Datum  Von Nutzer Rating
Antwort
Rot Systematischer Fehler
10.02.2020 11:23:23 Moin
NotSolved
10.02.2020 11:27:23 Gast47522
NotSolved
10.02.2020 11:32:02 Gast90453
NotSolved
10.02.2020 11:34:51 Moin
NotSolved
10.02.2020 11:41:58 Gast35692
NotSolved
10.02.2020 13:34:41 Gast77417
NotSolved
10.02.2020 15:12:48 Mase
NotSolved
10.02.2020 16:41:37 Gast16793
NotSolved
11.02.2020 18:18:19 moin
Solved
11.02.2020 18:20:36 Mase
NotSolved

Ansicht des Beitrags:
Von:
Moin
Datum:
10.02.2020 11:23:23
Views:
61
Rating: Antwort:
  Ja
Thema:
Systematischer Fehler

Moin zusammen,

 

ich habe eine fehlermeldung bei folgenden Code

 

For i = 4 To AnzZeil
If Not WorksheetExists("Objekt " & wks.Cells(i, 19).Value) Then
    ThisWorkbook.Worksheets("Template").Copy After:=ThisWorkbook.Sheets("Template")
    
    With Worksheets("Template (2)")
        .Protect UserInterfaceOnly:=True, Password:="Flughafen"
        .EnableOutlining = True
    End With
    
    ThisWorkbook.Worksheets("Template (2)").Name = "Objekt " & wks.Cells(i, 19).Value
    
    For j = 1 To 34
        If ThisWorkbook.Worksheets("Tabelle1").Cells(5, 4 * j + 3).Value = wks.Cells(i, 19).Value Then
            ThisWorkbook.Worksheets("Objekt " & wks.Cells(i, 19).Value).Cells(22, 7).FormulaR1C1 = "=sumproduct('Tabelle1'!R10C" & 4 * j + 3 & ":R261C" & 4 * j + 3 & "*(Month('Tabelle1'!R10C2:R261C2)=Month('Tabelle1'!R14C4))*(year('Tabelle1'!R10C2:R261C2)=year('Tabelle2'!R14C4)))"



            
            For m = 0 To 20
                For k = 1 To 12
                    ThisWorkbook.Worksheets("Objekt " & wks.Cells(i, 19).Value).Cells(32 + k + m * 15, 2).FormulaR1C1 = "='Quotenermittlung'!R" & 9 + k + m * 12 & "C" & 4 * j + 3
                Next k
            Next m
            Exit For
        End If
    Next j
End If

'ws = ThisWorkbook.Worksheets(wks.Cells(i, 19).Value)
Set ws = ThisWorkbook.Worksheets("Objekt " & wks.Cells(i, 19).Value)

ws.Visible = True

If ws.Cells(8, 6).Value = 0 Then
    n = 6
Else
    n = ws.Cells(8, 1000).End(xlToLeft).Column + 6
End If

If wks.Cells(i, 26).Value <> wks.Cells(i - 1, 26).Value Then
    If n > 6 Then
        ws.Range(ws.Cells(8, n - 6), ws.Cells(346, n - 6 + 5)).Copy
        ws.Range(ws.Cells(8, n), ws.Cells(346, n + 5)).PasteSpecial
        ws.Cells(17, n + 1).Value = 0
    End If
    
    ws.Cells(8, n).Value = Right(wks.Cells(i, 26).Value, Len(wks.Cells(i, 26).Value) - InStrRev(wks.Cells(i, 26).Value, "-", , vbTextCompare))
    ws.Cells(9, n).Value = wks.Cells(i, 26).Value
    ws.Cells(11, n).Value = wks.Cells(i, 24).Value
    
    ws.Cells(17, n + 1).Value = ws.Cells(17, n + 1).Value + wks.Cells(i, 21).Value
    ws.Cells(33, 4).FormulaR1C1 = ws.Cells(33, 4).FormulaR1C1 & "+RC[" & n & "]"
Else
    If wks.Cells(i, 24).Value <> wks.Cells(i - 1, 24).Value And i <> 4 Then
        MsgBox ("Warnung")
    End If
    ws.Cells(17, n - 5).Value = ws.Cells(17, n - 5).Value + wks.Cells(i, 21).Value
End If

typen unverträglich. 

 

ich habe n dann als string definiert, aber dies gibt einen weiteren Fehler andwendung und objekt...


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Systematischer Fehler
10.02.2020 11:23:23 Moin
NotSolved
10.02.2020 11:27:23 Gast47522
NotSolved
10.02.2020 11:32:02 Gast90453
NotSolved
10.02.2020 11:34:51 Moin
NotSolved
10.02.2020 11:41:58 Gast35692
NotSolved
10.02.2020 13:34:41 Gast77417
NotSolved
10.02.2020 15:12:48 Mase
NotSolved
10.02.2020 16:41:37 Gast16793
NotSolved
11.02.2020 18:18:19 moin
Solved
11.02.2020 18:20:36 Mase
NotSolved