Ich habe folgendes Problem:
Habe in einer Excel-Datei 3 Tabellenblätter.
Das Prozedere mit kopieren, einfügen und löschen funktioniert, nur kann ich die das 2. Tabelleblatt nicht aktivieren.
Habe folgenden Befehl:

Sub secureMe()
If ActiveSheet.Name > "Büro" Then
MsgBox ("Falsches Arbeitsblatt / Falsche Arbeitsmappe")
End
End If
End Sub

Er aktiviert mir das Tabellenblatt "Büro" damit läuft dann der Kopiervorgang von Tabellenblatt Büro auf Produktion.
Ich würde dieses auch für Produktion benötige, nämlich von Produktion auf erledigt.

Der Eigendliche Code lautet:

Sub abschliessen() 'Übertragen Daten von Büro Produktion

Dim ok

''secure cursorPosition
secureMe

X = 4
Application.CutCopyMode = True

Do Until Worksheets("Produktion").Cells(X, 1).Value = ""
X = X + 1
Loop

Worksheets("Büro").Activate
With Worksheets("Büro")
.Range(.Cells(ActiveCell.Row, 1), .Cells(ActiveCell.Row, 18)).Select
End With

ok = MsgBox("Diesen Auftrag kopieren?", 1, "Auftrag abschließen")

If ok = 1 Then
Selection.Copy
Worksheets("Produktion").Activate
With Worksheets("Produktion")
.Range(Cells(X, 1), Cells(X, 18)).Select
.Paste

' .Cells(X, 1).Value = Cells(X, 1).Row - 2
' .Cells(X, 2).Value = Date
.Cells(X, 3).Borders(xlEdgeLeft).LineStyle = xlDot
.Cells(X, 3).Borders(xlEdgeLeft).Weight = xlHairline
End With
Worksheets("Büro").Activate
'End If

Worksheets("Büro").Activate
With Worksheets("Büro")
.Range(.Cells(ActiveCell.Row, 1), .Cells(ActiveCell.Row, 18)).EntireRow.Delete
End With
End If


End Sub

Beim anderen wird Büro mit Produktion und Produktion mit Erledigt getauscht.

Vielleicht kann mir jemand dabei weiter helfen.

Danke