ich hätte nochmal eine Frage zu diesem Code.
Wie kann ich über eine MsgBox eine Meldung ausgeben
das in der ComboBox erst eine Eingabe erfolgen muss
bevor der Button betätigt wird.
Um so die Fehlermeldung zu umgehen.
Private Sub CommandButton1_Click()
Sheets("Formular").Activate
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = Kunden.ComboBox6.Value
Range("B2") = ActiveSheet.Name
For blatt = 2 To Sheets.Count
Next
Unload Kden
End Sub
Über Hilfe würde ich mich sehr freuen.
Gruss
Frank