title image


Smiley wennschon -dannschon
hi



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If IsNumeric(Target) And Target >= 1 And Target <= 7 And Target.Address = "$D$5" Then

Target = Format(Target.Value, "DDDD")

End If

End Sub



er(sie) möchte mit 1 beginnen -> Sonntag



und das sicher nicht in jeder Zelle.



bzw. wenn etwas kopiert wird eine Fehlermeldung umgangen








Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: