Fehlersuche
19.05.2017 15:22:42
Marghescu
Ich habe folgendes kleines Makro:
Sub ÜBERTRAG2()
' ÜBERTRAG2 Makro
Application.ScreenUpdating = False
Sheets("TAGESAUSWERTUNG").Select
Range("C7:G7").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESAMTAUSWERTUNG").Select
Range("B6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial xlValues
Sheets("TAGESAUSWERTUNG").Select
Range("B7").Select
Sheets("TAGESAUSWERTUNG").Select
Range("B7").Select
Call LÖSCHEN
Application.ScreenUpdating = True
End Sub
Das Ding soll in der Tabelle TAGESAUSWERTUNG im Bereich C7:G7 nach unten bis zur letzten Zeile alles kopieren und dieses dann in der Tabelle GESAMTAUSWERTUNG in der ersten freien zelle der Spalte B ab frühestens B6 einfügen. Ich hatte das mit dem Makrorecorder aufgezeichnet, doch der Code hatte den Haken, nicht zur ersten freien Zeile ging sondern zu einer bestimmten zeile (B15) weil das beim aufzeichnen wohl grad so war. Ich habe dann versucht diese zeile einzufügen, aber das will nicht funktionieren:
ActiveCell.Offset(1, 0).Select
könnte da mal einer drüberschauen?
danke