Laufzeitfehler 1004

Hallo Leute
Ich bekomme bei diesen Code den Fehler 1004 " Die Arbeitsmappe muss mindestens 1 sichtbares Arbeitsblatt enthalten"
Fehler in Zeile " wksKW.Move Before:=wb1.Sheets(1)"
Die Arbeitsmappe hatt Blätter die Ausgeblendet sind.
Das Arbeitsblatt zum bearbeiten ist aber sichtbar.
Könnte mir dazu bitte jemand helfen.
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.Move Before:=wb1.Sheets(1)
Exit For
End If
Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk
Habe mal einen Verlängerten Code angehängt.
Es geht darum bisher war die Arbeitsmappe nur ein Blatt.
Nun ist leider umgestellt worden.
Es sind nun mehrere Blätter aber nur 1 sichtbar (das ist auch das einzige das ich brauche)
Es geht auch wenn ich alle Blätter einblende.
Könnte man wenn nicht anders möglich nach Prinzip
Alles einblenden - Kopieren - Schliessen.
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.Move Before:=wb1.Sheets(1)
Exit For
End If
Next
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Name Like "KW" Then
'KW Einfügen
Range("A62").Copy
Range("A4").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A62").ClearContents
Range("A62") = "KW" & Left(wks.Range("K3").Value, 2)
'Linie 311
Range("F65").Copy
Range("F7").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F65") = Left(wks.Range("C5").Value, 5) 'Sonntag Linie 311
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

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 1004

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread