Die Zelle mit der neuen KW wird am ende Angesprochen. Es muss aber die Zelle unter der Zelle mit dem Letzten Eintrag sein ;-9
hab ein wenig rumprobiert aber mit 0815 VBA Erfahrungen kann ich nur Copy and paste..
Gruß Marcel
Sub Schaltfläche1()
Sheets("Übersicht").Select
kwzeile = 1: Rem ggf. äöndern
kwspalte = 1: Rem ggf. ändern
zeile = 4: Rem ggf. ändern
spalte = 255
gefunden = False
While gefunden = False And spalte <> 0
If Cells(zeile, spalte) <> "" Then
Cells(zeile, spalte + 1) = "KW " & LTrim(Str$(Cells(kwzeile, kwspalte)))
Cells(zeile, spalte + 1).Activate
Cells(kwzeile, kwspalte) = Val(Cells(kwzeile, kwspalte)) + 1
gefunden = True
End If
spalte = spalte - 1
Wend
If gefunden = False Then
Cells(zeile, 1) = "KW " & LTrim(Str$(Cells(kwzeile, kwspalte)))
Cells(zeile, 1).Activate
Cells(kwzeile, kwspalte) = Val(Cells(kwzeile, kwspalte)) + 1
End If
End Sub