VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: jh	Datum: 09.01.2008 17:14:01	Views: 1101	Rating:	Antwort:
Thema: Aw:Zahlenformat
Hallo, den Fehlerwert an sich kannst du mit folgender Formel in der Zielzelle ausblenden (die Zelladressen musst du natürlich anpassen): =WENN(ISTFEHLER(MITTELWERT(A1:A3));0;MITTELWERT(A1:A3)) Er entsteht hier, wenn keine der Zellen, deren Mittelwert gebildet werden soll, numerischen Daten enthält, also auch wenn alle Zellen leer sind. Wenn du die Eingabe in der Textbox z. B. mit Worksheets(1).Cells(1, 1) = TextBox1.Value in die Tabelle überträgst, erkennt Visual Basic ggf. nicht, dass das eine Dezimalzahl sein soll, weil es unabhängig vom eingestellten Gebietsschema immer den Punkt als Dezimalseparator verwendet. Entweder du wandelst die Eingabe in eine Zahl um: If IsNumeric(TextBox1.Value) Then Worksheets(1).Cells(1, 1) = CDbl(TextBox1.Value) End If Oder du legst die Zielzellen gleich in der ControlSource- Eigenschaft der Textboxen ab. Dazu markierst du in der IDE die betreffende Textbox, drückst F4, um das Eigen- schaftsfenster anzuzeigen und trägst dort unter ControlSource z. B. ein Tabelle1!A1 Dann erscheinen die eingegebenen Werte gleich in der Zielzelle (genaugenommen mit dem AfteUpdate-Ereignis, also nach dem Verlassen der Textbox). Gruß

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen