erst einmal muss ich sagen, dass es hier ein klasse Forum ist,
ich kenne mich etwas mit Excel aus, aber hier habe ich wohl das meiste gelernt.
Ich habe nun folgendes Problem:
Ich möchte in einem Tabellenblatt Werte eingeben für eine Kalenderwoche
und diese über ein Makro in einer Spalte nach Kalenderwochen archivieren.
Ich habe folgendes Makro geschrieben:
Sub Werteübernehmen()
Sheets("Tabelle1").Range("A4:B4").Copy
Sheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Tabelle1").Range("A4:B4").ClearContents
Application.CutCopyMode = False
End Sub
Hier wird ja nun die letzte freie Zelle gesucht, besteht die Möglichkeit in der Spalte die Kalenderwoche zu suchen und die Werte dort einzutragen?
Also sollte Excel die Kalenderwoche aus "B1" lesen, in der Spalte "E" suchen und die Werte aus "A4:B4" daneben schreiben.
Hier die Testdatei:
https://www.herber.de/bbs/user/103817.xlsm