Sheet-Name in Zelle
30.10.2008 11:39:38
Frank
mit folgendem Code lege ich ein neues Sheet an
ich möchte das der Namen des neuen Sheets auch in Zelle A2 eingetragen wird.
Nur wie?
Könnte mir bitte jemand weiterhelfen.
Private Sub ComboBox6_Change()
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Formular").Activate
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = Kunden.ComboBox6.Value
For blatt = 2 To Sheets.Count
Next
Application.ScreenUpdating = True
Unload KForm
End Sub
Gruss
Frank