Problem mit Code
12.11.2004 09:17:00
Daniel
ich hab ein problem mit einem Code und zwar zeigt mir Excel beim ausführen einen Syntaxfehler an und ich weiß nicht wo der Fehler liegt.Vielleicht kann mir ja einer von Euch bei der Fehlersuche behilflich sein!?
CODE:
Sub BlattKopieren()
Dim intIndex1 As Integer, intIndex2 As Integer, strSheetname As String
Application.ScreenUpdating = False
Range("H1").Select
Columns("H:N").Hidden = False
With Sheets("GL_02")
.Copy Before:=Sheets(3)
.Columns("I:M").Hidden = True
End With
strSheetname = ActiveSheet.Name
For intIndex1 = 3 To Worksheets.Count - 3
For intIndex2 = intIndex1 + 1 To Worksheets.Count - 2
If LCase$(Worksheets(intIndex2).Name) >
LCase$(Worksheets(intIndex1).Name) Then Worksheets(intIndex2).Move
Before:=Sheets(intIndex1)
Next
Next
Sheets(strSheetname).Activate
Application.ScreenUpdating = True
UserForm1.Show
End Sub
danke und gruß,Daniel