Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit Wert der Inputbox arbeiten

Forumthread: Mit Wert der Inputbox arbeiten

Mit Wert der Inputbox arbeiten
14.06.2018 20:41:42
Mimi777
Hallo,
Ich frage in meiner Inputbox nach einer Zahl.
Ich möchte nun diesen Wert in eine Formel einbinden.
Also: x= 10* (Wert der Inputbox)
wie kann, dass funktionieren.
Ich habe versucht die Inputbox, als Variable zu definieren, hat aber leider nicht Funktioniert.
Habe auch versucht, den Wert der Inputbox in z.B. A1 zu schreiben und mit dieser Zelle zu arbeiten, aber die Formel funktioniert so nicht.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Wert der Inputbox arbeiten
14.06.2018 20:58:36
Sepp
Hallo Mimi,
das geht z.B. so.
Sub mimi777()
  Dim varRet As Variant

  varRet = Application.InputBox("Zahl?", "Zahl eingeben", Type:=1)

  If varRet <> False Then
    MsgBox 10 * varRet
  End If
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Mit Wert der Inputbox arbeiten
15.06.2018 09:17:32
Klaus

Sub test()
wertInput=InputBox("Wert eingeben")
Range(A1).Value=wertInput ' Wer der Inputbox in Zelle A1 geschrieben
'oder in einer Formel direkt verwenden
x=10*wertInput
MsgBox x
End Sub
fertig ganz easy
Anzeige
AW: Mit Wert der Inputbox arbeiten
15.06.2018 11:10:52
mimi777
Danke
AW: Mit Wert der Inputbox arbeiten
16.06.2018 23:48:40
mimi777
Danke
;
Anzeige
Anzeige

Infobox / Tutorial

Mit Wert der Inputbox arbeiten


Schritt-für-Schritt-Anleitung

Um mit dem Wert einer Inputbox in Excel zu arbeiten, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen. Diese Anleitung basiert auf VBA (Visual Basic for Applications) und ist in der Excel-Version 2016 getestet worden.

  1. Öffne den VBA-Editor mit ALT + F11.
  2. Erstelle ein neues Modul, indem Du mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" klickst und "Einfügen" > "Modul" auswählst.
  3. Füge den folgenden Code in das Modul ein:
Sub Beispiel()
    Dim wertInput As Variant
    wertInput = Application.InputBox("Zahl eingeben", "Zahl eingeben", Type:=1)

    If wertInput <> False Then
        Dim x As Double
        x = 10 * wertInput
        MsgBox "Das Ergebnis ist: " & x
    End If
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro über ALT + F8 aus und wähle "Beispiel".

Häufige Fehler und Lösungen

  • Fehler: Inputbox gibt einen Fehler zurück.

    • Lösung: Stelle sicher, dass Du den Typ der Inputbox korrekt angibst (Type:=1 für Zahlen).
  • Fehler: Der Wert wird nicht in Zelle A1 geschrieben.

    • Lösung: Verwende Range("A1").Value = wertInput, um den Wert korrekt in die Zelle zu schreiben.

Alternative Methoden

Eine alternative Methode, um mit Werten aus einer Inputbox zu arbeiten, ist die Verwendung der Standard-Inputbox ohne VBA. Hier ein Beispiel:

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Verwende diesen Code:
Sub AlternativeBeispiel()
    Dim wertInput As String
    wertInput = InputBox("Bitte eine Zahl eingeben")

    If IsNumeric(wertInput) Then
        Dim x As Double
        x = 10 * CDbl(wertInput)
        MsgBox "Das Ergebnis ist: " & x
    Else
        MsgBox "Bitte eine gültige Zahl eingeben."
    End If
End Sub

Praktische Beispiele

Hier sind zwei praktische Beispiele, wie Du die InputBox verwenden kannst:

  1. Einfaches Berechnungsbeispiel:

    Sub Berechnung()
       Dim zahl As Variant
       zahl = Application.InputBox("Gib eine Zahl ein:", "Berechnung")
       MsgBox "Das Ergebnis ist: " & (zahl * 2)
    End Sub
  2. Wert in Zelle speichern:

    Sub WertInZelle()
       Dim wert As Variant
       wert = Application.InputBox("Zahl eingeben", "Eingabe")
       If wert <> False Then
           Range("B1").Value = wert
           MsgBox "Wert in Zelle B1 gespeichert."
       End If
    End Sub

Tipps für Profis

  • Verwende Type:=1 in der Application.InputBox, um sicherzustellen, dass nur Zahlen eingegeben werden.
  • Prüfe immer, ob der Benutzer auf "Abbrechen" geklickt hat, um Fehler zu vermeiden.
  • Du kannst die Inputbox anpassen, indem Du verschiedene Parameter wie Titel oder Standardwert verwendest.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass nur Zahlen eingegeben werden?
Du kannst Type:=1 in der InputBox verwenden, um sicherzustellen, dass nur numerische Eingaben akzeptiert werden.

2. Was passiert, wenn der Benutzer auf "Abbrechen" klickt?
Wenn der Benutzer auf "Abbrechen" klickt, gibt die InputBox den Wert False zurück. Überprüfe dies in Deinem Code, um Fehler zu vermeiden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige