Moin Moin,
irgendwie bin ich gerade schon wieder sehr am verzweifeln. Ich würde gern eine gewisse Statistik über ein Bewertungssystem führen. Hierfür gibt es Daten im Bereich L10:L13, die wöchentlich ab dem Bereich M3 abgespeichert werden sollen. Da ja jede Woche eine Spalte beschrieben wird, soll das Ganze ja automatisch in die nächste zeile Springen. Er springt zwar mit dem unten aufgeführten Code zwar zur nächsten Spalte, doch leider fängt er irgendwo an zu prüfen und wenn ich Glück habe dann nicht all zu weit weg wo ich es gern hin haben möchte. Wie kann ich ihm sagen: "Beginne immer ab Zelle M3!"? Hier jetzt der Code, den ich bis jetzt zusammen getragen habe:
Private Sub Button_Click()
Dim Spalte As Integer
Spalte = Sheets("Kind").Cells.Find("*", Sheets("Kind").[A1], , , xlByColumns, xlPrevious).Column + 1
With Sheets("Mia")
.Range("L10:L13").Copy
Sheets("Kind").Cells(3, Spalte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Application.CutCopyMode = False
End Sub
Vielen lieben Dank schon mal für eure Hilfe.
|