Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketIngen værdi ingen tekst!!
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
filipen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 12.Nov.2012
Land: DK
Status: Offline
Point: 98 		Direkte link til dette indlæg Emne: Ingen værdi ingen tekst!!
    Sendt: 13.Feb.2013 kl. 09:53
Hej med jer.

Jeg har en udregning der hedder: ((C5-B5)-D5)

Når den er skrevet så skriver den 00:00. 

Er der en løsning på hvordan man kunne så den til at skrive "ingen ting" men når der er noget skal den så skrive resultatet.


Er der nogen der ved noget???
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5479 		Direkte link til dette indlæg Sendt: 13.Feb.2013 kl. 10:16
Umiddelbart vil jeg foreslå, at man formaterede cellen til at vise ingenting, hvis resultat giver nul, men ellers kan du bruge denne her:

=HVIS(((C5-B5)-D5)=0;"";((C5-B5)-D5))
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
filipen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 12.Nov.2012
Land: DK
Status: Offline
Point: 98 		Direkte link til dette indlæg Sendt: 13.Feb.2013 kl. 10:34
Citat: EXCELGAARD EXCELGAARD skrev:

Umiddelbart vil jeg foreslå, at man formaterede cellen til at vise ingenting, hvis resultat giver nul, men ellers kan du bruge denne her:

=HVIS(((C5-B5)-D5)=0;"";((C5-B5)-D5))

Den går ikke  jeg har en VBA kørende der ser således ud:
----------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String
On Error GoTo Endmacro
If Application.Intersect(Target, Range("B1:E1000")) Is Nothing Then
    Exit Sub
End If

If Target.Cells.Count > 1 Or Target.Interior.ColorIndex <> -4142 Then
        Exit Sub
    End If
    Application.EnableEvents = False
    With Target
    If .HasFormula = False Then
        Select Case Len(.Value)
            Case 1
                TimeStr = "00:0" & .Value
            Case 2
                TimeStr = "00:" & .Value
            Case 3
                TimeStr = Left(.Value, 1) & ":" & _
                Right(.Value, 2)
            Case 4
                TimeStr = Left(.Value, 2) & ":" & _
                Right(.Value, 2)
            Case 5
                TimeStr = Left(.Value, 1) & ":" & _
                Mid(.Value, 2, 2) & ":" & Right(.Value, 2)
            Case 6
                TimeStr = Left(.Value, 2) & ":" & _
                Mid(.Value, 3, 2) & ":" & Right(.Value, 2)
            Case Else
                Err.Raise 0
        End Select
       .Value = TimeValue(TimeStr)
    Target.Offset(0, 1).Activate
    End If
End With
Application.EnableEvents = True
Exit Sub
Endmacro:
Application.EnableEvents = True
End Sub
-----------------------------------------------------------------------------------

Det er for at skrive timetal fra 730 til 7:30 og 1600 til 16:00

Er det muligt at der er en anden løsning på det?
Til top
filipen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 12.Nov.2012
Land: DK
Status: Offline
Point: 98 		Direkte link til dette indlæg Sendt: 13.Feb.2013 kl. 10:39
Glem det!!!! 

Fandt ud af at j formateringen var går fra klokkeslæt til standard.

Det havde jeg ikke lige set
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2025 Dansk Regneark Forum - en del af Excel-regneark.dk