title image


Smiley Re: SCHEINBAR UNLÖSBARES PROBLEM!?
Hallo Steven,



per Formel nicht lösbar, aber mit Makro gibts ne schöne Lösung:





Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

Dim wahl As String

If Not Intersect(Target, Range("M4")) Is Nothing Then

If Len(Target.Value) > 0 Then

Range("I3").Value = "BO"

Else

wahl = InputBox("G=Gleitzeit / K=Krank: ", "Abwesenheit:", "G")

Range("I3").Value = wahl

End If

End If

End Sub





Das Ergebnis sieht dann so wie auf dem Bildchen aus.



Viele Grüße

Herby







geschrieben von

Anhang
Bild 11312 zu Artikel 536920

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: