Blatt in andere Mappe verschieben
Bowl
ich will folgendes erreichen:
Automatisch - das heisst vor dem speichern der mappe - sollen alle Blätter (die eine Nummernfolge als Blattname haben) durchlaufen werden. In der Zelle(2, 17) steht ein Wert (die aktuelle Kalenderwoche) in der Zelle (2, 20) ein anderer Wert (KW der Fertigstellung).
Wenn die Fertigstellung in der vergangenheit war sprich cells(2,20).value soll dieses Blatt ans Ende von der Mappe Archiv.xls verschoben werden (Falls in Zelle 2,20 #NV steht das Blatt übersprungen werden).
Irgendwo beissts da nur leider aus:
Dim sh As Worksheet
Dim a, b, y, p As Integer
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Worksheets
If IsNumeric(sh.Name) Then
p = ActiveSheet.Index
Application.DisplayAlerts = False
If sh.Cells(2, 20).Text = "#NV" Then
GoTo MARKE1
Else:
a = sh.Cells(2, 20).Value
b = sh.Cells(2, 17).Value
If a Hab nur nicht so recht ne Ahnung was genau falsch ist.
Jemand ne Idee worans liegen könnte?
Vielen Dank im Vorraus
Grüße
Bowl
Anzeige