Ingen værdi ingen tekst!!
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1095
Udskrevet den: 06.Mar.2025 kl. 13:55
Emne: Ingen værdi ingen tekst!!
Besked fra: filipen
Emne: Ingen værdi ingen tekst!!
Posteringsdato: 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???
|
Svar:
Besked fra: EXCELGAARD
Posteringsdato: 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. |
Besked fra: filipen
Posteringsdato: 13.Feb.2013 kl. 10:34
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? |
EXCELGAARD skrev:Besked fra: filipen
Posteringsdato: 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 |