Makro funzt nur auf manchen Rechnern

Hallo,
ich habe folgendes Problem:
Ich habe in VBA ein Makro für einen Kollegen erstellt. Dieses funktioniert auf meinem Rechner problemlos.
Wenn ich es an meinen Laptop weiterschicke gibt es auch keinerlei Probleme.
ABER....
Auf dem neuen Rechner meines Kollegen kam die Fehlermeldung 1004 in der Zeile mit formulalocal.
Das habe ich das auf formula umgeschrieben und in der englischen Schreibweise verfasst. (wieder bei mir keine Probleme)
Auf seinem Laptop aber noch immer der gleiche Fehler.
Als Anmerkung: auf seinem alten Laptop scheint es aber zu funktionieren.
Also zu meiner Frage:
Hat jemand schon mal das gleiche (oder ein ähnliches) Problem gehabt oder hat jemand eine Idee an was es liegen könnte?
Bin mittlerweile schon langsam am verzweifeln :/
Gruß
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For Z = 7 To letzteZeile If (Cells(Z, 1) "") Then Cells(Z, 2).Formula = "=MID(" & Worksheets(1).Name & "!B" & Z & ";1;(SEARCH(""+"";" & Worksheets(1).Name & "!B" & Z & ")-1))" Cells(Z, 3).Formula = "=MID(" & Worksheets(1).Name & "!B" & Z & ";SEARCH(""+"";" & Worksheets(1).Name & "!B" & Z & ");(SEARCH(""-"";" & Worksheets(1).Name & "!B" & Z & ")-SEARCH(""+"";" & Worksheets(1).Name & "!B" & Z & ")))" Cells(Z, 4).Formula = "=MID(" & Worksheets(1).Name & "!B" & Z & ";SEARCH(""-"";" & Worksheets(1).Name & "!B" & Z & ");10)" Cells(Z, 5).Formula = "=MID(" & Worksheets(1).Name & "!C" & Z & ";1;(SEARCH(""+"";" & Worksheets(1).Name & "!C" & Z & ")-1))" Cells(Z, 6).Formula = "=MID(" & Worksheets(1).Name & "!C" & Z & ";SEARCH(""+"";" & Worksheets(1).Name & "!C" & Z & ");(SEARCH(""-"";" & Worksheets(1).Name & "!C" & Z & ")-SEARCH(""+"";" & Worksheets(1).Name & "!C" & Z & ")))" Cells(Z, 7).Formula = "=MID(" & Worksheets(1).Name & "!C" & Z & ";SEARCH(""-"";" & Worksheets(1).Name & "!C" & Z & ");10)" End If Next Z

zunächst einmal sollte dein Code gar nicht funktionieren, weil du für .Formula das falsche Trennzeichen verwendest.
bei .Formula muss der Code grundsätzlich mit amerikanischen Schreibweisen angegeben werden, also mit dem Komma als Trennzeichen, du hast hier das Semikolon.
ich würde auch die Formeln in R1C1 schreiben und nicht in A1-Adressen. damit entfällt das " & Z & "
der Bezug ... & "!B" & Z & ";... wird dann zu ... & "!RC2;..."..
das C2 steht hier für "Column 2" also Spalte B und das R ohne Zahl dahinter dafür, dass der Bezug in die gleiche Zeile geht, in der auch die Formel steht.
der nächste Punkt ist, dass du hier, wenn der Tabellenblattname ein Leer- oder sonstige Sonderzeichen enthält, den Tabellenblattnamen in Hochkommas setzen musst.
in der Zelle macht Excel das für dich automatisch, aber hier musst du selber daran denken.
Das könnte auch so eine Ursache sein, wenn bei euch die Blätter unterschiedlich benannt oder angeordnet sind und bei dir das Blatt 1 keine Sonderzeichen enthält und bei ihm schon, dann braucht er die Hochkommas und du nicht.
ich würde das hier so programmieren:


dim FO(2 to 7) as string
FO(2) = "=MID('xxx'!RC2,1,(SEARCH(""+"",'xxx'!RC2)-1))"
FO(3) = "=MID('xxx!'RC2,SEARCH(""+"",'xxx'!RC2),(SEARCH(""-"",'xxx'!RC2)-SEARCH(""+"",'xxx'!RC2)))"
und so weiter für die weiteren Spalten
For Z = 7 To letzteZeile
If (Cells(Z, 1)  "") Then
For S = 2 to 7
Cells(Z, S).FormulaR1C1 = Replace(FO(S), "xxx", Worksheets(1).Name)
next
Next

wenn die Zellen in den Spalten 2-7 auch leer bleiben sollen wenn die Spalte A leer ist, könntest du auch das IF in die Formel einbauen und die Formel dann in alle Zellen der Spalten schreiben, was schneller geht als jede Formel einzeln:


dim FO(2 to 7) as string
FO(2) = "=IF(RC1="""","""",MID('xxx'!RC2,1,(SEARCH(""+"",'xxx'!RC2)-1)))"
FO(3) = "=IF(RC1="""","""",MID('xxx!'RC2,SEARCH(""+"",'xxx'!RC2),(SEARCH(""-"",'xxx'!RC2)-SEARCH(""+"",'xxx'!RC2))))"
und so weiter für die weiteren Spalten
For S = 2 to 7
Range(Cells(7, S), Cells(letzteZeile, S)).FormulaR1C1 = Replace(FO(S), "xxx", Worksheets(1).Name)
next

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Makro funzt nur auf manchen Rechnern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread