ich hab da ein kleines Problem mit meinem Makro und komme nicht weiter.
Es geht darum, dass, wenn eine If Abfrage mit nein beantwortet wird, ein gewisser Teil kopiert und unten drunter wieder eingefügt werden soll. Habe das ganze in einem seperaten Modul getestet, da hat es wunderbar funktioniert. Beim Versuch das Ganze dann in meinen großen Code einzufügen, der ausgelöst wird wenn eine andere Tabelle gespeichert wird, scheitere ich irgendwie. Die entscheidende Stelle sieht wie folgt aus:
Workbooks("Berechnungstabelle 2.xlsm").Sheets("Hallenlayout").Activate
Cells.Select
Selection.Find(What:=Karossentakt, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ZielZeileL = ActiveCell.Row
ZielSpalteL = ActiveCell.Column
Cells(ZielZeileL + 1, ZielSpalteL).Activate
If Bez ActiveCell.Text Then
Range(ActiveCell.Offset(-1, -1), ActiveCell.Offset(9, 3)).Copy
Cells(ZielZeileL + 12, ZielSpalteL - 1).Activate
ActiveSheet.Paste
Range(ActiveCell.Offset(3, 1), ActiveCell.Offset(10, 6)).ClearContents
Else: Range(ActiveCell.Offset(3, 0), ActiveCell.Offset(9, 3)).ClearContents
End If
"Bez" ist eine Variable aus der anderen Tabelle, die er aber glaube ich richtig verwendet.
Es funktioniert bis zu dem Punkt ActiveSheet.Paste. Hier kommt die Meldung, dass "hier bereits Daten stehen". Tun es aber nicht. Wenn ich dann sage trotzdem kopieren, schreibt er sie in die falsche Tabelle, nämlich die die ich abspeichere um das Makro zu starten, wenn ich aber sage nicht kopieren, bricht das Makro logischerweise ab, aber die dann aktive Zelle, ist genau die in die ich die Werte kopieren möchte.
Ich weiß, das ist jetzt nur ein Ausschnitt vom Code, was immer schwierig ist, aber der ganze Code ist ewig lang^^. Vielleicht sieht ja jemand direkt einen Fehler den ich in diesem Teil machen. Ich wäre um jede Hilfe froh
Vielen Dank schonmal und Gruß
Lukas