title image


Smiley Re: Tabellenblatt überprüfen
Hi Mary!Füge den folgenden Code in Dein Projekt ein:Private Sub Workbook_Open()    On Error Resume Next    Sheets(CStr(DateValue(Now()))).Activate    If Err.Number 0 Then        With Sheets.Add(after:=Sheets(Sheets.Count))            .Name = CStr(DateValue(Now()))        End With    End If    On Error GoTo 0End SubCUMitch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: