Hallo zusammen,
ich scheitere an einem Problem und würde mich riesig über eure Tipps/Hilfe freuen.
In einem meiner Tabellenblätter wird über ein Formular ein Datensatz geändert. Das Makro soll dann zwei Tabellenblätter weitergehen und eine Liste nach dem ursprünglichen Datensatz durchsuchen und diese Werte mit dem neuen ersetzen.
Es ist mir gelungen, die Werte des neuen und alten Datensatzes in Variablen zu übertragen. Das lokale Fenster zeigt mir, dass die Variablen auch die richtigen Werte enthalten. Allerdings kommt immer der Fehler 9 - Index außerhalb des gültigen Bereichs.
Hier die Stelle im Code:
Dim AlterWert As String
Dim NeuerWert as String
AlterWert = ActiveSheet.Cells(last, 2).Value
NeuerWer= Me.TextBox2.Value
Sheets(ActiveSheet.Index + 2).Activate
ActiveSheet.Range("A2:A300").Replace What:=AlterWert, Replacement:=NeuerWert, LookAt:=x1Part, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets(ActiveSheet.Index - 2).Activate
Der Debuger markiert dann immer die Replace-Passage gelb. Habt ihr eine Idee was ich falsch mache? Ich verzweifle langsam.
Besten Dank im Voraus!