ActiveSheet wechselt nach SpecialPaste

Guten Abend liebe Foristen,
ich bin eine recht blutige VBA-Anfängerin (Typ "learning by doing") und gerade dabei mir einen Code zu basteln. Ich habe nun ein Problem mit dem Bezug aufs ActiveSheet, nachdem ich ein Copy und SpecialPaste durchgeführt habe.
Ausführlicher:
Mein Code liest eine gewisse, sich ändernde Anzahl von Textzeilen in einen Array "textSpeicher", die in der folgenden Schleife wieder ausgelesen werden
i = 0
For y = 25 To UBound(textSpeicher) + 25
Range("A" & y) = textSpeicher(i)
Range(("A" & y), ("E" & y)).MergeCells = True
Rows(y + 1).Insert (xlDown)
Range("F" & y).Copy
Debug.Print ActiveSheet.Name 'ergibt im 1. Durchlauf "Blatt2", danach "Blatt1"
Range("F" & y + 1).PasteSpecial xlPasteFormulas
Debug.Print ActiveSheet.Name 'ergibt im 1. Durchlauf "Blatt1"
If i < UBound(textSpeicher) Then
i = i + 1
End If
Next y

Der Text stammt ursprünglich aus dem Arbeitsblatt, Blatt1, und soll im (eigentlichen) Active Sheet, Blatt2, eingefügt werden. Nach dem PasteSpecial wechselt das ActiveSheet gleich im ersten Durchlauf der Schleife plötzlich zu Blatt1. Sobald der Code komplett durchgelaufen ist, ist dann dieses auch plötzlich das "geöffnete" Blatt, obwohl zuvor beim Codeaufruf noch Blatt2 zuvorderst lag.
Ich frage mich nun schon seit einigen Stunden und erfolgloser Online-Recherche: Warum?
Es hat auch nicht geholfen, statt des Range.PasteSpecial xlPasteFormulas ein xlPasteAll oder ein Worksheet.Paste zu verwenden.
Mich interessiert auch, wieso der Code trotzdem alles auf Blatt2 "abarbeitet" wenn schon nach dem ersten Schleifendurchlauf das ActiveSheet mysteriöserweise Blatt1 geworden ist. Dann müssten sich doch nachfolgend alle Ranges (und die Rows) auf Blatt1 beziehen? Oder habe ich da was falsch verstanden?
Werdet ihr daraus schlau?
Ärgerlich ist dieses Umswitchen, weil ich später ein ActiveSheet.Protect im Code habe und dann immer das falsche Blatt geschützt wird. Das könnte ich natürlich klar ausschreiben (Worksheets("Blatt1").Protect). Aber mich treiben Ehrgeiz und Neugier. Vielleicht ist es ja nur eine Kleinigkeit, die ich übersehen habe?
Vielen Dank schon im Voraus für Hinweise und eventuelle Aufklärung
Beste Grüße
Vanessa

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Morgen Onur,
der Code wird über einen Klick auf eine Befehlsschaltfläche (Formularsteuerelement) auf Blatt2 (eigentlicher Name: "Angebot_final", Blatt1: "Konfigurationen_Übersicht") gestartet. Ursprünglich war der CommandButton mal ein ActiveX-Element, aber damit hatte ich irgendwann Probleme (zeigte beim Anklicken nur noch eine Art "Kopie" von sich selbst und startete den Code nur manchmal). Also habe ich den Code dann dem Formularsteuerelement zugewiesen und das ActiveX-Element gelöscht. Der Code steht im Codefenster zu "Angebot_final" (dieses, das sich öffnet, wenn man im Entwicklermodus auf das ActiveX-Element doppelklickt).
Vollständig lautet er so:

Sub CommandButton1_Click()
On Error GoTo Notausstieg
If IsError(Range("E22")) Then
MsgBox "Bitte im Arbeitsblatt ""Konfigurationen Übersicht"" einen Vertragstyp auswählen.  _
Erst dann können die korrekten Inhalte eingefügt werden!", vbOKOnly, "Vertragstyp wählen!"
Exit Sub
End If
Dim textZeile2 As Integer 'relativer Bezugspunkt für Löschen-Befehl
Dim spalteNr As Integer 'Spalte, in der der Vertragstyp in der Übersicht aufgeführt wird
Dim textSpeicher() As String
Dim i As Integer 'Index für Textspeicher-Array
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
ActiveSheet.Unprotect Password:="123"
textZeile2 = WorksheetFunction.Match("Generelle Bestimmungen", Range("A1:A60"), 0)
'Evtl. vorhandene vorigen Text bereinigen
If Not Range("A25").Value = "" Then
Range("A25", Cells(textZeile2 - 2, 1)).EntireRow.Delete
End If
'TextSpeicher-Array füllen
i = 0
spalteNr = Range("E22").Value
Worksheets("Konfigurationen_Übersicht").Unprotect Password:="123"
For x = 2 To 19
If Worksheets("Konfigurationen_Übersicht").Cells(x, spalteNr).Value = 3 Then
ReDim Preserve textSpeicher(0 To i)
textSpeicher(i) = Worksheets("Konfigurationen_Übersicht").Cells(x, 9)
i = i + 1
End If
Next x
Worksheets("Konfigurationen_Übersicht").Protect Password:="123"
i = 0
For y = 25 To UBound(textSpeicher) + 25
Range("A" & y) = textSpeicher(i)
Range(("A" & y), ("E" & y)).MergeCells = True
Rows(y + 1).Insert (xlDown)
Range("F" & y).Copy
Debug.Print ActiveSheet.Name
Range("F" & y + 1).PasteSpecial xlPasteFormulas
Debug.Print ActiveSheet.Name
If i

Darf ich dich noch um was bitten? - Wenn du nun sowieso einen Blick darauf wirfst: Weißt du, weshalb der Code so langsam abgearbeitet wird? Er braucht so zwischen 20 und 30 Sekunden, das finde ich für die wenigen Zeilen, die verarbeitet werden, eigentlich nicht angemessen. (Oder irre ich da?) Ich hatte vorher statt des Arrays eine Schleife, in der ich jede Zeile direkt von "Konfigurationen_Übersicht" nach "Angebot_final" habe kopieren lassen, wenn die Bedingung erfüllt war. Das war aber genauso langsam - eigentlich sollte das Array dann die Lösung dafür sein. Geändert hat sich de facto aber nichts (außer, dass ich beim Zusammenbauen ziemlich ins Schwitzen geraten bin :-) ).
Danke für deine Hilfe.
Vanessa
PS: Ich werde ab heute Mittag für zwei Wochen im Ausland sein und weiß nicht genau, wie oft/einfach ich ins Internet komme. Es ist nicht persönlich gemeint, wenn ich nicht sofort reagiere. Ich freue mich auf jeden Fall über eine Antwort!

Beliebteste Forumthreads (12 Monate)

ActiveSheet wechselt nach SpecialPaste

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ActiveSheet wechselt nach SpecialPaste

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread