Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler im Berechnungsprogramm!?

Forumthread: Fehler im Berechnungsprogramm!?

Fehler im Berechnungsprogramm!?
02.12.2004 12:11:39
Christian
https://www.herber.de/bbs/user/14236.xls
Hallo,
ich hab ein Beispielprogramm geschrieben, in dem das Problem auftritt.
Das Problem ist folgendes:
Ich möchte eine Berechnung in der Userform starten. Wenn ich Daten eingebe , und die Berechnung starte funktioniert alles super. Wenn ich aber keine Daten eingebe und die Berechnung aus versehen starte, dann gibt es einen Laufzeitfehler. Wie kann ich diesen Fehler beheben, oder noch besser wie kann ich machen, das der CommandButton "Berechnung" nur gedrückt werden kann wenn die beiden Eigabefelder ausgefüllt werden.
Danke
Christian
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler im Berechnungsprogramm!?
Jan
Hi Christian,
Lasse es überprüfen vor der Initialisierung des Dialogs.

Private Sub Eingabe_Click()
Set rl = Sheets("Tabelle1").Range("Länge")
Set rb = Sheets("Tabelle1").Range("Breite")
If rl <> "" And rl <> "" Then
Berechnung.Show
Else
MsgBox "Keine Werte für Länge und Breite eingetragen!"
End If
End Sub

Jan
Anzeige
AW: Fehler im Berechnungsprogramm!?
02.12.2004 12:41:41
Christian
Hallo,
diese Lösung bringt mir leider nichts, da das Programm nur ein Ausschnitt aus einer großen Eingabemaske ist. Man gibt erst in der Userform die Daten ein und kann optional die Berechnung ausführen, oder wenn man das Ergebnis weis, gibt das Ergbnis ohne Berechnung ein. Mein Problem ist, wenn jemand aus versehen die Berechnung ausführt ohne das er Daten eingibt, dann gibt es eine Fehlermeldung und alle anderen Daten sind auch weg, und das will ich vermeiden.
Vielleicht kennst Du eine andere Möglichkeit
Gruß
Christian
Anzeige
AW: Fehler im Berechnungsprogramm!?
Uduuh
Hallo,
in den Code der UF:

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub



Private Sub TextBox2_Change()
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub



Private Sub userform_Initialize()
Set frm = Berechnung
With frm
.CommandButton1.Enabled = False
.TextBox1.Value = Sheets("Tabelle1").Range("Länge").Value
.TextBox2.Value = Sheets("Tabelle1").Range("Breite").Value
End With
End Sub

Gruß aus'm Pott
Udo

Anzeige
AW: Fehler im Berechnungsprogramm!?
Christian
Danke!!!!
Das funktioniert ja genau so wie gewünscht
Gruß
Christian
;

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