Addieren nach Doppelklick

Hallo,
mit einer Userform kann ich Stunden zu bestimmten Aufträgen notieren. Diese Stunden werden auch in einer Tabelle addiert.
In manchen fällen wird für ein Auftrag verschiedene Tätigkeiten ausgeführt wodurch man hiermit verschiedene Stunden hat die man notieren und die auch zusammen addiert werden sollen. Ich habe also in der Userform ein Textbox um meine Stunden einzutragen. Durch die Eigenschaften EnterKeyBahvior, Multiline und Wordwrap konnte ich ein Zeilenumbruch in der Textbox erstellen lassen. Die Zahlen mit den Zeilenumbrüchen lassen sich mit einer Formel (sehr lang) addieren. Soweit so gut, alles wie ich es haben will.
Mein Problem: Die Stunden, die mit einem einem Zeilenumbruch aufgeschrieben wurden werden ERST DANN addiert, wenn ich auf die Zelle ein Doppelklick mache. So;
2 + 3 = 3 . Erst wenn ich die Zelle mit den 2en anklicke bekomme ich das Ergebnis = 5, woran liegt es ?
2
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
1) Wenn ich dort eine Lösung bekommen würde, würde ich das hier Mitteilen. Aber Ok, wusste nicht dass es von Anfang an mitgeteilt soll :)
2) Okay, jetzt habe ich das verstanden was Rudi also sagen wollte. Aber wenn es so ist, warum wird dann EINE Zahl, also ohne ein Zeilenumbruch, als Zahl angesehen bzw addiert ? Also wenn ich 1 + 1 + 2 stehen hätte würde = 4 raus kommen. Aber eine Zelle mi einem Zeilenumbruch erst nach DP..
3) Hierbei geht es nur um die Stunden. Und wie gesagt, in der Userform habe ich Textbox mit EnterKeyBahvior, Multiline, Wordwrap Zeilenumbrüche ermöglichen können.


Private Sub Projekt_eintragen(Projekt As String, Kontierung As String, Stunden As String, Tatigkeit As String, ifound As Integer)
Dim j As Integer
Dim jfound As Integer
Dim Tabellenname As String
Tabellenname = ActiveSheet.Name
jfound = 0
j = 14
'Suche nach richtiger Spalte
Do
If Left(CStr(Sheets(Tabellenname).Cells(3, j)), 6) = Left(Projekt, 6) Then
jfound = j
End If
j = j + 3
Loop Until Sheets(Tabellenname).Cells(3, j) = "" Or jfound  0
If ifound  0 And jfound  0 Then
Sheets(Tabellenname).Cells(ifound, jfound).Value = Kontierung
Sheets(Tabellenname).Cells(ifound, jfound + 1).Value = Stunden
Sheets(Tabellenname).Cells(ifound, jfound + 2).Value = Tatigkeit
End If
End Sub

Gruß

Private Sub Eingabe_Click() Dim i As Integer Dim ifound As Integer Dim Tabellenname As String Tabellenname = ActiveSheet.Name Projekt_eintragen Me.Projekt1.Value, Me.Kontierung1.Value, Me.Stunden1.Value, Me.Tatigkeit1.Value, ifound End Sub

stunden = Replace(stunden, vbCrLf, "+") If Right(stunden, 1) = "+" Then stunden = Mid(stunden, 1, Len(stunden) - 1) stunden = "=" & Replace(stunden, "++", "+") Sheets(Tabellenname).Cells(ifound, jfound + 1).Value = stunden

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Addieren nach Doppelklick

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread