Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 13 in der InputBox

Forumthread: Laufzeitfehler 13 in der InputBox

Laufzeitfehler 13 in der InputBox
03.06.2022 08:45:53
Andreas
https://www.herber.de/bbs/user/153406.txt
Brauche Hilfe beim erstellen einer Aufgabe.
Funktioniert soweit bis es zu keiner Eingabe kommt. Bei nicht ausfüllen der Textzeile in der InputBox kommt es zu einem Laufzeitfehler 13.
Wie kann ich diesen vermeiden
Bitte um Hilfe
Lg Andreas
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 13 in der InputBox
03.06.2022 09:07:24
GerdL
Auch einen guten Morgen!
..oder hier. Die Application.Inputbox ist ja nicht angesagt.

Private Sub btn_Provision_Click()
Dim Eingabe As Variant, berechneterWert As Double
Eingabe = InputBox("Bitte eine Zahl eingeben.")
If StrPtr(Eingabe) = 0 Then Exit Sub 'bei Abbrechen
If IsNumeric(Eingabe) Then
If chk_commission = True Then
berechneterWert = Eingabe * (1 + commission)
MsgBox "Der Wert " & Eingabe & " +5% Provision lautet " & Format(berechneterWert, "#,#00.00 €") _
, vbInformation, "Nicht alles auf einmal ausgeben."
ElseIf IsNumeric(Eingabe) And chk_commission = False Then
MsgBox "Es wurde keine Provision ausgegeben.", vbInformation, "Arbeiten Sie weiter hart, vielleicht wirds ja noch"
End If
ElseIf Eingabe = "" Then
MsgBox "Bitte einen gültigen Wert eingeben."
Else
MsgBox "Falsche Eingabe", vbCritical, "Bitte auf die Eingabe achten"
End If
End Sub
Gruß Gerd
Anzeige
AW: Laufzeitfehler 13 in der InputBox
03.06.2022 10:55:20
Andreas
Hallo könntest du mir die Funktion "StrPtr" erklären?
lg Andreas
AW: Laufzeitfehler 13 in der InputBox
03.06.2022 10:26:41
Andreas
Vielen Dank, für die schnelle Antwort.
lg Andreas
AW: Laufzeitfehler 13 in der InputBox
03.06.2022 09:03:29
Rudi
Hallo,

eingabe = InputBox("Bitte eine Zahl eingeben.")
if eingabe "" Then
'Code
End If
Gruß
Rudi
Anzeige
AW: Laufzeitfehler 13 in der InputBox
03.06.2022 09:46:13
Daniel
Hi
Du führst die Berechnung mit dem Eingabewerte direkt nach der Eingabe durch.
Dies funktioniert aber nur, wenn VBA die Eingabe in eine Zahl wandeln kann.
Den Text "" bzw Leerstring kann VBA aber nicht in eine Zahl wandeln.
Du müsstest daher auch die Berechnung des Ergebnisses mit einem If IsNumeric absichern.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Fehler in der Formel
Baywatch

Hi
ich habe eine Formel und die tut es leider nicht. Wenn ich MIN durch Max ersetze klappt es, aber warum bei min NIcht?
Vielleicht findet jemand den Denkfehler?
{=(BEREICH.VERSCHIEBEN(Daten!$A$1;SUMME(WENN(Daten!D1:D5002=MIN(WENN(Daten!F1:F5002="M"; Daten!D1:D5002;0));ZEILE(Date...
15.08.2008 15:59:00
Thread-ID: 1002235
8 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bei Fehler schließen verhindern
Wolfgang

Einen guten abend an alle
Ich suche eine Lösung für folgendes Problem:
Ich habe eine Monatstabelle (Tab1 bis31) hier sind Spalten vorgegeben, bzw. werden
durch sverweis gefüllt, in den Tabellen sind nur einige Eingabefelder frei, ansonsten sind
die Tabellen geschützt.
Mein P...
17.12.2008 19:38:53
Thread-ID: 1033686
12 Beiträge
Anzeige
Fehler in der Verkettung der Formel ?
Selma

Hallo Leute,
ich habe in Spalte E und F mit Formeln die Zelleninhalte verkettet. Mit einem Makro markiere ich ab Zeile 3 die Zellen in Spalte E und F und erzeugte eine Datei move.bat die danach ausgeführt wird.
In Spalte E stehen die Ordnername die erstellt werden und in Spalte F die D...
21.12.2008 13:20:00
Thread-ID: 1034590
2 Beiträge
wo ist mein fehler in der wenn-funktion?
Caro

=WENN(UND(H3="A";K3="A";N3="A");"Top 01";WENN(UND(H3="A";K3="A";N3="B");"Top 02";WENN(UND("h3"="a"; "k3"="a";"n3"="A");"Top 03";WENN(UND("h3"="a";"k3"="b";"n3"="A");"Top 04";WENN(UND("h3"="a"; "k3"="c"; "n3"="A");"Top 05";WENN(UND("h3"="a";"k3"="b";"n3"="b");"Top 06";WENN(UND("h3"="a"; "k3"="c...
26.03.2009 00:16:05
Thread-ID: 1064042
6 Beiträge
Anwendungs- oder objektdefinierter Fehler
Josef

Hallo!
Ich bekomme nach dem Start des Makros immer den Fehler Anwendungs- oder objektdefinierter Fehler.
Das Makro hatte bereits funktioniert . Ich hatte nur den Pfad geändert:
Im Ordner mit der Variable dokname3 befinden sich csv Dateien, welche dann eingelsen werden.
Wo könnte...
07.07.2009 10:00:05
Thread-ID: 1086825
6 Beiträge
Anwendungs- oder objektdefinierter Fehler
Josef

Hallo!
Ich bekomme nach dem Start des Makros immer den Fehler Anwendungs- oder objektdefinierter Fehler.
Das Makro hatte bereits funktioniert . Ich hatte nur den Pfad geändert:
Im Ordner mit der Variable dokname3 befinden sich csv Dateien, welche dann eingelsen werden.
Wo könnte...
07.07.2009 08:08:22
Thread-ID: 1086829
3 Beiträge
"Anwendungs- oder objektdefinierter Fehler"
eres

Hallo Excel-Freunde,
habe mir in die Standard-Symbolleiste eine benutzerdefinierte Schaltfläche eingebaut und dieser ein Makro aus der personl.xls zugewiesen. Diese Makro besteht nur aus einer Zeile, in der ich eine Datei öffne (also Workbooks.Open Filename:= ...)
In der zu öffnenden...
28.07.2009 13:18:05
Thread-ID: 1091892
7 Beiträge
Fehler in der Matrix
westcasio

Hallo Leute,
ich habe hier ein Makro indem ich den Bereich von A1:A100 auf A1:A10000 erhöhen möchte, leider zeigt er mir immer einen Fehler an, wenn ich es ausführe. Könnt ihr mir helfen, bitte?
Sub DelDups_OneList() Dim iListCount As Integer Dim iCtr As Integer ' Turn off screen updati...
05.11.2009 16:21:00
Thread-ID: 1114764
8 Beiträge
Fehler in der Formel
Roger

Hallo zusammen
Ich habe folgende Formel:
=SUMMENPRODUKT((ANZAHL2(SU!F$4:F34)*(MONAT(SU!C$4:C34)=D27)*(SU!C$4:C34>0)))
Damit will ich im Blatt SU die Einträge in Spalte F zählen, in Spalte C ist jeweils ein Datum, in Zelle D27 der Monat 1.
Das ganze zählt aber nicht richtig....
27.01.2010 10:14:32
Thread-ID: 1133294
3 Beiträge
suche code um Inhalt der Zwischenablage einfügen
ray

Hallo,
ich habe jetzt schon eine halbe stunden via google ber www.herber.de gesucht und finde nur code um die Zwischenablage zu leeren.
ich möchte code, der mir den Inhalt der zwischenablage dort einfügt, wo der curser grad (in einer Textbox" steht.
WEr kann helfen
Viele Grüße...
11.02.2010 12:40:20
Thread-ID: 1137722
6 Beiträge
Anwendungs- oder Objektdefinierter Fehler
Werner

Hallo zusammen
Beim öffnen der Datei möchte ich Daten aus einer anderen Datei vom Sheets("Datensammler") und vom Sheets("Datensalle") kopieren und in die geöffnete Datei einfügen. Das klappt auch beim ersten Sheets. Wenn ich dann das 2. kopieren will, bekomme ich bei Sheets("Datensalle").S...
10.08.2010 07:15:00
Thread-ID: 1171349
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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