Habe in unteren Code der mir Werte von einer Externen Arbeitsmape Werte in "Gewichtsblätter & Wochenumbau" kopiert.
Bisher hatte die externe Mappe immer den Namen "KW18" oder "KW19", usw.. .
Nun wurde umgestellt und der Name der externen Mappe heißt jetzt "2008W18" oder "20008W19", usw..
Nun werden die Werte nicht mehr in "Gewichtsblätter & Wochenumbau" kopiert.
Habe es schon statt "Left" mit "Right" und statt "KW" nur mit "W" probiert, aber leider ohne Erfolg.
Könnte mir bitte jemand weiterhelfen.
Gruß Heinz
Private Sub CommandButton5_Click()
ActiveSheet.Unprotect
Windows.Application.ScreenUpdating = False
Dim wb1 As Workbook, wbKW As Workbook, wksKW As Worksheet
Set wb1 = Workbooks("Gewichtsblätter & Wochenumbau.xls")
For Each wbKW In Workbooks
If Left(wbKW.Name, 2) = "KW" Then Exit For
Next
If wbKW Is Nothing Then
MsgBox "Es ist kein Wochenplan zu Verfügung !"
ActiveSheet.Protect
Exit Sub
End If
For Each wksKW In wbKW.Worksheets
If Left(wksKW.Name, 2) = "KW" Then
wksKW.Copy Before:=wb1.Sheets(1)
Exit For
End If
Next
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Name Like "KW*" Then
Dim sh As Object
For Each sh In Sheets
If sh.Name Like "KW*" Or sh.Name Like "KW*" Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next
ActiveSheet.Protect
Windows.Application.ScreenUpdating = True
Exit For
End If
Next
End Sub