title image


Smiley Re: 1=Sonntag, 2=Montag, 3=Dienstag usw.
hi



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Address = "$D$5" Then

With Target

Select Case Target.Value



Case 1

.Value = "Sonntag"

Case 2

.Value = "Montag"

Case 3

.Value = "Dienstag"

Case 4

.Value = "Mittwoch"

Case 5

.Value = "Donnerstag"

Case 6

.Value = "Freitag"

Case 7

.Value = "Samstag"

End Select

End With





End If

End Sub



rechte Maustaste im Blattregister (Tabelle) ->code anzeigen und den obigen code dort einfügen




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: