Fehler beim Kompilieren - Syntaxfehler
23.02.2009 20:49:47
Castor-Pollux
ich arbeite gerade an der Restaurierung eines EXCEL-Tabellenblattes, dass unter Office 2000 einwandfrei lief und jetzt unter Office 2007 ein paar Macken hat.
Hier im Forum habe ich mir schon ein VBA-Projekt angesehen, dass mein Problem in etwa trifft. Nur leider habe ich von VBA überhaupt keine Ahnung und jetzt habe ich die Fehlermeldung "Fehler beim Kompilieren - Syntaxfehler".
Ich zeige hier mal die Datei, wie ich sie für mich umgestrickt habe (Ziel ist es, nicht gesperrte Zellen via TAB-Taste anzuspringen):
Modul 1:
Option Explicit
Option Base 1
Dim intIndex As Integer
Sub Makro1()
Dim arr
intIndex = intIndex + 1
arr = Array("j10", "n10", "c14", "d14", "h14", "i14", "c15", "d15", "h15", "c16", "d16", "h16", "i16", "c17", "d17", "h17", "i17", "c18", "d18", "h18", "i18", "k18", "c19", "d19", "h19", "i19", "k19", "d21", "d22", "e21", "e22", "f21", "f22", "g21", "g22", "h21", "h22", "i21", "i22", "j21", "j22",
"e23", "d24", "d25", "e24","e25", "f24", "f25", "g24", "g25", "h24", "h25", "i24", "i25", "j24", "j25", "e26", "d27", "d28", "e27", "e28", "f27", "f28", "g27", "g28", "h27", "h28", "i27", "i28", "j27", "j28", "o27", "d30", "d31", "e30", "e31", "f30", "f31", "g30", "g31", "h30", "h31", "i30", "i31", "j30", "j31", "k29", "g32", "d33", "d34", "e33", "e34", "f33", "f34", "g33", "g34", "h33", "h34", "i33", "i34", "j33", "j34", "d36", "d37", "e36", "e37", "f36", "f37", "g36", "g37", "h36", "h37", "i36", "i37", "j36", "j37", "m29", "n29", "o29", "p29", "q29", "r29", "m30", "n30", "o30", "p30", "q30", "r30", "m31", "n32", "o31", "p31", "q31", "r31", "m32", "n32", "o32", "p32", "q32", "r32", "m33", "n33", "o33", "o34", "o35", "m37", "n37", "o37", "p37", "q37", "r37", "m38", "n38", "o38", "p38", "q38", "r38", "m39", "n39", "o39", "p39", "q39", "r39", "m40", "n40", "o40", "o41", "c40", "c44", "i42", "o46", "m47", "m51", "m17", "m19")
Range(arr(intIndex)).Select
'-------------------------------------------------
'Nur als Demo, kann weg!
'ActiveCell = ActiveCell.Address(0, 0)
'-------------------------------------------------
If intIndex = 175 Then intIndex = 0
End Sub
Tabelle1
Option Explicit
Private Sub Worksheet_Activate()
[e5].Select
Application.OnKey "{TAB}", "Makro1"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{TAB}"
End Sub
Tabelle2
Option Explicit
Wenn mir hier jemand einen Rat geben könnte, fände ich dies Prima!
Danke im Voraus.
MfG
Ca-Po