Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textbox und Zelle addieren
zurück: Werte in neue Datei kopieren weiter: Arbeitswoche fehlendes Datum finden und makieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
jonzi2903
Neuling


Verfasst am:
22. Jan 2013, 12:49
Rufname:

Textbox und Zelle addieren - Textbox und Zelle addieren

Nach oben
       Version: Office 2003

Hallo,

du Sufu konnte mir leider nicht weiter helfen, also schreibe ich hier mein Problem nieder.

Ich würde gerne den Inhalt einer Textbox mit dem Inhalt einer Zelle addieren.

So sieht mein derzeitiges Programm aus:

Code:
Private Sub CommandButton1_Click()

 

    x = Cells(Rows.Count, 1).End(xlUp).Row
       

    Dim Ergebnis As Double


    For i = 1 To x
        Dim a

        a = 0
        If Cells(i, 2) = "Server" Then
            a = Cells(i, 3)
           
            Ergebnis = CDbl(TextBox1.Value) + CDbl(Cells(1, 3))

           
               
            TextBox1.Value = a
           
           
        End If
    Next i

End Sub


Kurze Erklärung:

Das Programm zählt die Zellen, welche mit einem Inhalt versehen sind.

Eine vorschleife, welche so oft ausgeführt wird, wie es beschriftete Zellen gibt, kontrolliert jede Zelle, ob der Inhalt = "Server" ist.

Falls diese Bedingung eintrifft, soll der Inhalt der Zelle, die HINTER der Zelle mit dem Inhalt "Server" steht, mit dem Inhalt der TextBox1 addiert werden.

Die Summ soll auf die Variable Ergebnis geschrieben werden und die Variabel Ergebnis soll den Inhalt der Textbox1 darstellen.

Problem: Laufzeit Fehler '13': Typen unverträglich

Danke für jede Hilfe

Jonzi2903
Piti
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2013, 13:52
Rufname: Piti


AW: Textbox und Zelle addieren - AW: Textbox und Zelle addieren

Nach oben
       Version: Office 2003

Hallo jonzi,

so sollte es gehen.

Code:
Private Sub CommandButton1_Click()
Dim Ergebnis As Double
Dim x As Long


    x = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To x
        Dim a

        a = 0
        If Cells(i, 2) = "Server" Then
            a = Cells(i, 3)
           
            Ergebnis = CDbl(TextBox1.Value) + CDbl(Cells(1, 3))

           
               
            Me.TextBox1.Value = Ergebnis
           
           
        End If
    Next i


End Sub


Gruß Piti
R udi M.
Gast


Verfasst am:
22. Jan 2013, 13:53
Rufname:

AW: Textbox und Zelle addieren - AW: Textbox und Zelle addieren

Nach oben
       Version: Office 2003

Hallo,
Zitat:
Ergebnis = CDbl(TextBox1.Value) + CDbl(Cells(1, 3))

soll doch wohl

Ergebnis = CDbl(TextBox1.Value) + CDbl(Cells(i, 3))

heißen.

Gruß
Rudi
jonzi2903
Neuling


Verfasst am:
22. Jan 2013, 14:09
Rufname:

AW: Textbox und Zelle addieren - AW: Textbox und Zelle addieren

Nach oben
       Version: Office 2003

Hallo,

danke schon mal für eure schnellen Antworten.

Leider gibt mir das veränderte Programm immer noch den Laufzeit Fehler '13' aus.

Markiert wird folgende Zeile:
Ergebnis = CDbl(TextBox1.Value) + CDbl(Cells(i, 3))

Gruß
Rolf-H
Gast


Verfasst am:
22. Jan 2013, 18:10
Rufname:

AW: Textbox und Zelle addieren - AW: Textbox und Zelle addieren

Nach oben
       Version: Office 2003

Hallo,
dann befindet sich in TextBox1.Value oder in Cells(i, 3) ein Wert, der nicht in eine Zahl verwandelt werden kann.
Stell mal im Debugger den Curser auf diese Werte und kontrolliere sie.

Gruss Rolf
Piti
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Jan 2013, 08:07
Rufname: Piti


AW: Textbox und Zelle addieren - AW: Textbox und Zelle addieren

Nach oben
       Version: Office 2003

Hallo jonzi,

hier eine neue Version

Code:
Private Sub CommandButton1_Click()
Dim Ergebnis As Double
Dim x As Long
Dim a





    x = Cells(Rows.Count, 1).End(xlUp).Row
    If Me.TextBox1 = "" Then
    MsgBox "Bitte geben Sie eine Zahl in die Textbox ein, Danke"
    Exit Sub
    End If
   
    For i = 1 To x
       

        a = 0
        If Cells(i, 2) = "Server" Then
            a = Cells(i, 3)
           
            If IsNumeric(Me.TextBox1.Value) And IsNumeric(Cells(i, 3)) Then
           
            Ergebnis = CDbl(Me.TextBox1.Value) + CDbl(Cells(i, 3))
            Me.TextBox1.Value = Ergebnis
            Else
            MsgBox "Bitte prüfen Sie die Werte in der Textbox und/ oder in der Zelle"
           
            End If
           
           
           
        End If
    Next i

End Sub


Jetzt sollte es gehen.

Gruß Piti
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: wie kann ich in einem Bezug auf eine Zelle rechnen??? 3 Maik_25 944 03. Jan 2005, 12:45
Patrick G. wie kann ich in einem Bezug auf eine Zelle rechnen???
Keine neuen Beiträge Excel Formeln: Zelle Verschieben 2 Muran 628 02. Jan 2005, 23:04
Patrick G. Zelle Verschieben
Keine neuen Beiträge Excel Formeln: dateiname in eine zelle 6 natorius 1946 03. Dez 2004, 16:25
natorius dateiname in eine zelle
Keine neuen Beiträge Excel Formeln: Will Werte addieren, in Bezug zu zwei anderen Spalten 3 Hardy_K_888 1971 02. Dez 2004, 12:00
ae Will Werte addieren, in Bezug zu zwei anderen Spalten
Keine neuen Beiträge Excel Formeln: Nur subtrahieren wenn Zelle ausgefüllt 3 chaebebossh 2684 26. Nov 2004, 11:40
fridgenep Nur subtrahieren wenn Zelle ausgefüllt
Keine neuen Beiträge Excel Formeln: Bezug auf Zelle -Ausgabe Formel 12 Patrick0705 2568 26. Nov 2004, 11:36
Arnim Bezug auf Zelle -Ausgabe Formel
Keine neuen Beiträge Excel Formeln: Teile aus einer Zelle übernehmen 5 Yakima 1980 23. Nov 2004, 17:06
Yakima Teile aus einer Zelle übernehmen
Keine neuen Beiträge Excel Formeln: Werte aus Liste mit Validation in Zelle 1 Gast 2516 18. Okt 2004, 15:20
icke Werte aus Liste mit Validation in Zelle
Keine neuen Beiträge Excel Formeln: Zelle markieren 11 GAST 2377 07. Okt 2004, 07:50
fridgenep Zelle markieren
Keine neuen Beiträge Excel Formeln: inhalt einer zelle suchen und wiedergeben 2 winni 5568 23. Sep 2004, 16:47
winni inhalt einer zelle suchen und wiedergeben
Keine neuen Beiträge Excel Formeln: Letzten drei Ziffern aus einer Zelle filtern?? 7 Ben 3398 23. Sep 2004, 13:39
Gast Letzten drei Ziffern aus einer Zelle filtern??
Keine neuen Beiträge Excel Formeln: Formatierung einer anderen Zelle wenn in der einen ein Text 2 Gast 5007 01. Sep 2004, 11:04
Gast Formatierung einer anderen Zelle wenn in der einen ein Text
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA