AW: Arbeitsblätter verschieben
12.06.2013 08:12:04
Klaus
Hallo Frank,
sorry - mir geht gerade das Meme nicht aus dem Kopf ... "Not sure if trolling..."
WARUM hast du denn zwei Zeilen aus der einen gemacht?
Sub VerschiebeAlle()
' Alle Register löschen bis auf Register Tabelle11
Dim I As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For I = ActiveWorkbook.Worksheets.Count To 1 Step -1
If Worksheets(I).Name "Tisch1" Then
Worksheets(I).Move Before:=Workbooks("85761.xlsm").Sheets(1)
Next I
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Es ist EINE IF-Abfrage! Die gehört in EINE Zeile!
Sub VerschiebeAlle()
' Alle Register löschen bis auf Register Tabelle11
Dim I As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For I = ActiveWorkbook.Worksheets.Count To 1 Step -1
If Worksheets(I).Name "Tisch1" Then Worksheets(I).Move Before:=Workbooks("Auftrag1. _
xlsm").Sheets(1)
Next I
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
das _ ist ein ZEILENUMBRUCH damit es im Forum dargestellt werden kann. Den hat übrigens auch dein Löschmakro, das DIREKT darüber steht und komplett identisch ist - auf die Idee, da mal nachzusehen, bist du nicht gekommen?
So, jetzt extra für dich nochmal das verschieben - Makro in kopierbarer Form. Den Zeilenumbruch, den du nicht kopieren kannst, habe ich entfernt - dafür den Befehl in einen hier völlig sinnfreien IF-Block verpackt, das spart Zeilenlänge.
Sub VerschiebeAlle()
' Alle Register VERSCHIEBEN bis auf Register Tabelle11
Dim I As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For I = ActiveWorkbook.Worksheets.Count To 1 Step -1
If Worksheets(I).Name "Tisch1" Then
Worksheets(I).Move Before:=Workbooks("Auftrag1.xlsm").Sheets(1)
End If
Next I
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bitte sehr, eine komplett pfannenfertige Komplettlösung die du ohne mitdenken einfach kopieren und einfügen kannst :-)
Was ist das eigentlich in Modul3 und Modul4? Ich nehme an, dass sind einfach Makrorekorder Codes die du noch nicht gelöscht hast? Räum mal dein VBA auf, mit der Übersicht kommt auch bald die Einsicht ^^
In Modul2 hast du ein Sub "ablegen", in dem ist einiges im argen :-) Möchtest du dass ich da mal drüber schaue, oder sagst du dir "es funktioniert, Rest egal"?
Grüße,
Klaus M.vdT.