Hilfe

[Friz1984]

Hallo zusammen, 

ich benötige bitte Hilfe.
Ich hoffe der link funktioniert (ich habe nur die kostenlose Version von Excel im Browser)
https://excel.cloud.microsoft/open/onedr...8090d23a86&driveId=C8879B3C6115928D

Ich habe eine Liste in der ich wöchentlich Daten in Spalte C (grün hinterlegt) einfüge und möchte wenn der Button "eintragen" angeklickt wird automatisch ein neues Tabellenblatt mit den eingegebenen Daten erzeugt wird und als Bezeichnung die aktuelle Kalenderwoche bekommt. In Spalte C sind variable Daten, in Spalte D ist fixe Daten und in Spalte E wird dann automatisch der Prozentsatz ausgerechnet. Das habe ich schon soweit nur das andere bin ich zu dumm für

Könnte mir da bitte jemand helfen?

[RPP63]

Moin!
Das darfst Du schnell wieder vergessen!
Das Anklicken eines Buttons bedingt VBA, welches die Online-Version nicht beherrscht.

Gruß Ralf

P.S.:
Dein Link läuft ins Leere

[Friz1984]

Privat hab ich nur die Browser-Version auf Arbeit wofür das eigentlich ist habe ich normales excel aber kann nicht sagen welche version und so.
Vielleicht hilft das Bild um zu sehen was ich möchte


   

[oee]

Du musst schon, anhand eines Beispiels, zeigen, WIE das neue Blatt dann überhaupt aussehen soll....

[Friz1984]

so wie die Vorlage nur ohne die grüne füllfarbe

[oee]

Dann poste die Datei - der Link bringt nix, da er zu deinem persönlichen CLOUD-Konto führt.

---

Und auf der Arbeit wird das trotzdem nicht laufen können.

[Friz1984]

ChatGPT hat mir folgendes Script ausgespuckt

vba
Sub Button_Click()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim weekNumber As String
   
    ' Aktuelles Tabellenblatt
    Set ws = ActiveSheet
   
    ' Aktuelle Kalenderwoche ermitteln
    weekNumber = Format(DatePart("ww", Date), "00")
   
    ' Neues Tabellenblatt erstellen
    On Error Resume Next ' Fehler ignorieren, falls das Blatt bereits existiert
    Set newWs = ThisWorkbook.Worksheets(weekNumber)
    On Error GoTo 0 ' Fehlerbehandlung zurücksetzen
   
    If newWs Is Nothing Then
        Set newWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = weekNumber
    End If
   
    ' Aktuelles Tabellenblatt kopieren
    ws.Cells.Copy Destination:=newWs.Cells
   
    ' Daten in Spalte C der Vorlage löschen
    ws.Columns("C").ClearContents
End Sub

[oee]

UND? Wozu postest du das jetzt ???

[Friz1984]

Damit mir jemand Bestätigen kann ob es so passt oder ob das so nicht funktionieren würde. Bin mit KI nicht so vertraut

[ralf_b]

Und warum probierst du es nicht einfach aus? Optimalerweise nicht an der Originaldatei. 
Ich kann dich aber beruhigen. Der Code macht das wofür er geschrieben ist. Wobei Datepart unter Umständen die falsche Kalenderwoche ausgibt. Es gibt da wohl ein Jahresendproblem wenn eine KW 53 existiert.