Hi Leute,
weiß nicht ob es hier her passt, aber ich hab mit VBA ein kleines Problem.
Vielleicht kann ja jemand von euch mir weiterhelfen.
Ich will das in Excel Gliederungen geöffnet oder geschlossen werden je nach dem was in der letzten Spalt der Gliederung steht.
Sub Go_Makro()
Dim Zeile As Long
Dim Spalte As Long
Dim i As Long
Zeile = 8
Spalte = 16
For i = 1 To 7
If Cells(Zeile, Spalte) = "GO" Then
ExecuteExcel4Macro "Show.DETAIL(2, Spalte, True)"
Else
ExecuteExcel4Macro "Show.DETAIL(2, Spalte, False)"
End If
Spalte = Spalte + 8
Next i
Leider funktioniert die Sache nicht wirklich.
Der Fehler müsste in
ExecuteExcel4Macro "Show.DETAIL(2, Spalte, True)"
da nimmt er die Variabel Spalte wohl nicht an.
Bin für jede Hilfe Dankbar.
mfg
|