---
title: "Excel och om inget värde i inputbox.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/148309-excel-och-om-inget-värde-i-inputbox"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "Kalle M"
published: "2006-06-21T22:29:53.000Z"
updated: "2006-06-29T22:35:42.000Z"
replies: 2
views: 786
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/148309-excel-och-om-inget-värde-i-inputbox"
---

# Excel och om inget värde i inputbox..

## #1 — Kalle M, 2006-06-21T22:29Z

Har skrivit denna lilla enkla kodsnutt i excel:
Om man ej skriver något i en inputbox så kommer man in i VBA-editorn..
Hur får man till det där på ett vettigt sätt? :-) 
IF tomt så avbryt eller något..

Sub ber()
intäkt = InputBox("Ange intäkt")
kostnad = InputBox("Ange kostnad")
Resultat = intäkt - kostnad
MsgBox (Resultat)

End Sub

Permalänk: https://www.webforum.nu/p/148309

## #2 — MindreVetande, 2006-06-22T11:42Z

Några allmänna varianter

```
Sub ber()
Dim intäkt, kostnad, Resultat

intäkt = InputBox("Ange intäkt")
    If intäkt = "" Then Exit Sub
' inputboxen returnerar "" om någon trycker avbryt, 
' men det fångar även tomma input

kostnad = InputBox("Ange kostnad")
    If kostnad = "" Then Exit Sub

' Kolla om det är tal som matats in...
If (IsNumeric(intäkt) And IsNumeric(kostnad)) Then
' ... Gör i sånna fall det du vill.
    Resultat = intäkt - kostnad
    MsgBox (Resultat)
' Om det inte är tal, visa vad du matat in...
Else: MsgBox ("Du har matat in data som inte är tal:" & Chr(13) _
    & "Intäkt= " & intäkt & Chr(13) _
    & "kostnad= " & kostnad)
' ... och hoppa tillbaks till början
    ber
End If
End Sub
```

Permalänk: https://www.webforum.nu/p/1833997

## #3 — Kalle M, 2006-06-29T22:35Z

Kanon!
Tack för hjälpen! :-)

Mvh

Permalänk: https://www.webforum.nu/p/1835798

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/148309-excel-och-om-inget-värde-i-inputbox