Hallo an die Gemeinde
ich habe paar Tips von euch bekommen die funktionieren auch jeder einzeln aber leider dann nicht so in meinem Blatt was ich zur Verfügung habe.
bastel auch schon seid 3 Tagen dran und verzweifle mal wieder
folgendes Problem noch detailliert
in C19 tragen wir den ersten Urlaubstag ein, in E19 müssen wir den letzten eintragen.
in I19 sollen wir dann die Tage an Urlaub eintragen die der Mitarbeiter nimmt.
da habe ich in I19 eingetragen ( =NETTOARBEITSTAGE.INTL(C19;E19;1;Feiertage!B4:B14) )
er rechnet auch schön alles aus bis auf das Problem
wenn der Mitarbeiter nur einen Tag Urlaub nimmt müssen wir in C19 das Datum eintragen und in E19 dreimal X
besteht da die Möglichkeit in I19 eine 1 an zu zeigen.
das wäre supi Jungs und Mädelz
Tips waren
Das alles mit dem benutzerdefinierten Zahlenformat
[Grün][>-30000]1111;[Zyan]"zu klein!";;[Rot]\?
und
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iSpalte As Integer, iZeile As Integer, iLimit As Integer
iSpalte = 1
iZeile = 1
iLimit = -30000
If Cells(iZeile, iSpalte).Value < iLimit Then
Cells(iZeile, iSpalte).Value = "Kreditlimit überschritten!"
End If
End Sub
ich habe paar Tips von euch bekommen die funktionieren auch jeder einzeln aber leider dann nicht so in meinem Blatt was ich zur Verfügung habe.
bastel auch schon seid 3 Tagen dran und verzweifle mal wieder
folgendes Problem noch detailliert
in C19 tragen wir den ersten Urlaubstag ein, in E19 müssen wir den letzten eintragen.
in I19 sollen wir dann die Tage an Urlaub eintragen die der Mitarbeiter nimmt.
da habe ich in I19 eingetragen ( =NETTOARBEITSTAGE.INTL(C19;E19;1;Feiertage!B4:B14) )
er rechnet auch schön alles aus bis auf das Problem
wenn der Mitarbeiter nur einen Tag Urlaub nimmt müssen wir in C19 das Datum eintragen und in E19 dreimal X
besteht da die Möglichkeit in I19 eine 1 an zu zeigen.
das wäre supi Jungs und Mädelz
Tips waren
Das alles mit dem benutzerdefinierten Zahlenformat
[Grün][>-30000]1111;[Zyan]"zu klein!";;[Rot]\?
und
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iSpalte As Integer, iZeile As Integer, iLimit As Integer
iSpalte = 1
iZeile = 1
iLimit = -30000
If Cells(iZeile, iSpalte).Value < iLimit Then
Cells(iZeile, iSpalte).Value = "Kreditlimit überschritten!"
End If
End Sub