makro sheet.activate
17.03.2016 13:01:56
mucki4
ich habe folgendes Problem bei meinem Makro, vielleicht kann ja jemand helfen.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Makro2 Makro
'
Dim ZielZelle As Range
Dim ZielZeile As Integer
Dim ZielSpalte As Integer
Dim Taktnummer As Range
Dim wb As Workbook
Set wb = Workbooks.Open("P:\...)
Windows("Bewertungsbogen 2.xlsm").Activate
Sheets("Bewertungsbogen").Select
Range("L6:L7").Select
Selection.Copy
Set Taktnummer = Range("L6:L7")
wb.Activate
Sheets("Tabelle1").Select
Cells.Find(What:=Taktnummer, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
zunächst kann ich den Code nicht per einzelschritt debuggen sondern lediglich durchs speichern auslösen. gibt es dafür einen bestimmten Grund?
Mein Hauptproblem ist aber, dass der Befehl Sheets("Tabelle1").Select nicht funktioniert. Da zeigt er an "Laufzeitfehler 9, Index außerhalb des gültigen Bereichs". Das sheet "Tabelle1" befindet sich in dem Dokument "wb"
Ich hatte den Code vorher bereits in einem "normalen" Sub geschrieben also nich mit der beforeSave funktion, da hat er funktioniert, allerdings mit der Einschränkung, dass er beim Einzelschritt debuggen nach:
"Dim wb As Workbook
Set wb = Workbooks.Open("P:\...)
automatisch sämtliche Befehle ( der Code geht nach meinem Ausschnitt noch etwas weiter) ausgeführt hat und das debuggen beendet hat.
Bin relativ neu auf dem Gebiet und deshalb um jede hilfe dankbar.
Danke schon mal im Vorraus
Gruß