kann mir jemand helfen?
Vielen Dank
Hier mein Code:
Private Sub CommandButton1_Click()
Dim anlegen
anlegen = InputBox("Bitte Namen des neuem Mitarbeiters eingeben?", "Neuen Mitarbeiter Anlegen!") _
If anlegen = "" Then
MsgBox ("Es Muss ein Name eingegeben werden!")
Else
Dim lr As Long
Dim br As Long
Dim neu As Worksheet
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Set neu = ActiveSheet
neu.Name = anlegen
lr = Range("F" & Rows.Count).End(xlUp).Row + 1
Range("F" & lr).Value = anlegen
lr = Range("G" & Rows.Count).End(xlUp).Row + 1
Range("G" & lr).Value = "Welser GmbH"
Sheets(anlegen).Range("E1").Value = "Welser GmbH"
Sheets(anlegen).Range("J1").Value = anlegen
br = Sheets("Monatsbericht").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Monatsbericht").Range("B" & br).Value = anlegen
End If
End Sub