Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textfelder berechnen und automatisch aktualisieren
Autor: Alex
Datum: 11.10.01 12:40
Hi, Mal überlegen... Ich glaub so ist das gemeint: (zum ausprobieren 3 textfelder erstellen) 'das erste Feld: Private Sub Text1_LostFocus() Dim Zahl1 As Long, Zahl2 As Long 'wenn im zweiten Feld etwas steht If Len(Text2.Text) Then 'falls im feld ein text steht: fehler On Error GoTo fehler: Zahl2 = Text1.Text Zahl2 = Text2.Text 'berechnen: Text3.Text = Text1.Text + Text2.Text End If Exit Sub fehler: MsgBox ("Bitte geben sie im Zweiten Feld eine Zahl ein") End Sub 'das zweite Feld: Private Sub Text2_LostFocus() Dim Zahl1 As Long, Zahl2 As Long 'wenn im zweiten Feld etwas steht If Len(Text1.Text) Then 'falls im feld ein text steht: fehler On Error GoTo fehler: Zahl2 = Text1.Text Zahl2 = Text2.Text 'berechnen: Text3.Text = Text1.Text * Text2.Text End If Exit Sub fehler: MsgBox ("Bitte geben sie im Zweiten Feld eine Zahl ein") End Sub Alex

Textfelder berechnen und automatisch aktualisieren	53	Tim	11.10.01 12:29
Re: Textfelder berechnen und automatisch aktualisieren	51	Alex	11.10.01 12:40
Re: Textfelder berechnen und automatisch aktualisieren	40	Tim	11.10.01 13:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen