ich versuche gerade Tabellenblätter die nicht mit dem Namen Station anfangen innerhalb der Arbeitsmappe zuverschieben, hier ist mein Code, leider funktioniert dieser nicht,bekomme aber auch keine Fehlermeldung!!!!
k=7
For i = 7 To Worksheets.Count
If Left(Worksheets(i).Name, 8) "Station" Then
Worksheets(i).Move Before:=Sheets(k)
k = k + 1
End If
Next i
Wenn ich die Blätter verschoben habe, versuche ich zusätzlich die Blätter rechts daneben mit Station1, Station2 usw. umzubennenen! VBA Code?
Hat jemand eine Tip?
Danke im Voraus!!
Gruß Shayev