habe folgendes Problem.
Ich habe eine Datei kopiert (mit Quellcode...) und jetzt kommt die Fehlermeldung "Sub- oder
Function nicht definiert",es sind Blätter dazugekommen (Die nicht einbezogen werden) aber sonst wurde alles beibehalten wie in der Orginaldatei,die tadellos läuft. Er Markiert den Abschnitt:
mdsret2 = ElementChildrenGetArray(server, "Comp", "MKM", aselements2())
Hab 100mal abgeglichen und keine Fehler gefunden....
hier der ganze code, des betreffenden Moduls:
Sub Gesellschaften_aktualisieren()
Dim mdsret As Variant
Dim aselements() As String
Dim aselements2() As String
Dim aselements3() As String
Dim aselements4() As String
Dim aselements5() As String
Dim i As Integer
Dim server As Variant
server = ThisWorkbook.Sheets("Deckblatt").Range("server")
If MsgBox("Wollen Sie die Gesellschaften auf den Tabellenblättern aktualisieren?", vbYesNo) = vbYes Then
Beginn = 14
'''***********Leeren der Zeilen*******************
For i = Beginn To 300
ThisWorkbook.Sheets("Umsatz_LC").Select
ThisWorkbook.Sheets("Umsatz_LC").Range("D" & Beginn).Select
Selection.ClearContents
Beginn = Beginn + 1
Next i
mdsret2 = ElementChildrenGetArray(server, "Comp", "MKM", aselements2())
'''*******************************Anfang Formatierung und Formel ********************************************************
For i = Beginn To 300
ThisWorkbook.Sheets("Umsatz_LC").Range("D" & Beginn).Value = ""
Beginn = Beginn + 1
Next i
i = 0
Beginn = 14
For A = 0 To UBound(aselements2())
level = ElementLevel(server, "Comp", aselements2(A))
If level = 0 Then
MEEinheit = Left(aselements2(A), 8)
ME_Kody = Right(aselements2(A), 4)
If ME_Kody <> "KODY" Then
ThisWorkbook.Sheets("Umsatz_LC").Range("D" & Beginn) = aselements2(A)
Beginn = Beginn + 1
End If
Else
mdsret3 = ElementChildrenGetArray(server, "Comp", aselements2(A), aselements3())
For b = 0 To UBound(aselements3())
level = ElementLevel(server, "Comp", aselements3(b))
If level = 0 Then
MEEinheit = Left(aselements3(b), 8)
ME_Kody = Right(aselements3(b), 4)
If ME_Kody <> "KODY" Then
ThisWorkbook.Sheets("Umsatz_LC").Range("D" & Beginn) = aselements3(b)
Beginn = Beginn + 1
End If
Else
mdsret4 = ElementChildrenGetArray(server, "Comp", aselements3(b), aselements4())
For c = 0 To UBound(aselements4())
level = ElementLevel(server, "Comp", aselements4(c))
If level = 0 Then
MEEinheit = Left(aselements4(c), 8)
ME_Kody = Right(aselements4(c), 4)
If ME_Kody <> "KODY" Then
ThisWorkbook.Sheets("Umsatz_LC").Range("D" & Beginn) = aselements4(c)
Beginn = Beginn + 1
End If
Else
mdsret5 = ElementChildrenGetArray(server, "Comp", aselements4(c), aselements5())
For d = 0 To UBound(aselements5())
level = ElementLevel(server, "Comp", aselements5(d))
If level = 0 Then
MEEinheit = Left(aselements5(d), 8)
ME_Kody = Right(aselements5(d), 4)
If ME_Kody <> "KODY" Then
ThisWorkbook.Sheets("Umsatz_LC").Range("D" & Beginn) = aselements5(d)
Beginn = Beginn + 1
End If
End If
Next d
End If
Next c
End If
Next b
End If
Next A
ThisWorkbook.Sheets("Umsatz_LC").Range("D14").Select
MsgBox "Alle MEs - bis zum 4. Hierarchielevel - wurden ausgelesen!"
End If
End Sub
Gruß rado