Texboxen addieren, Ausdruck

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim gesamt As Double Dim lastcell As Long Dim Tb1 As Worksheet Dim i As Long Dim Zahl As Double Set Tb1 = ThisWorkbook.Worksheets("Tabelle1") With Tb1 lastcell = .Cells(.Rows.Count, "B").End(xlUp).Row + 1 For i = 2 To 13 If Controls("Textbox" & i).Text = "" Then Zahl = 0 Else Zahl = Controls("Textbox" & i).Text gesamt = gesamt + Zahl .Cells(lastcell, i) = Zahl Next .Cells(lastcell, i + 1) = gesamt Me.TextBox14 = gesamt End With

Guten Morgen zusammen
Guten Morgen Werner,
im Anhang habe ich meine gestrickte Datei, wie von Werner gewünscht hochgeladen.
In dieser Maske soll in der orangenen TextBox immer die Gesamtsumme aus Tabelle1 aus Spalte U stehen, diese Summe möchte ich auch gerne, wenn ich einen Ausdruck tätige zu sehen sein.
Weiterhin versuche ich verzweifelt in der TextBox21 gelb (bei einer negativ Summe, diese Rot erscheinen zu lassen und bei Positiv grün).
Bei den beiden gelben TextBoxen (%) möchte ich die Zahl unter 100 in rot erscheinen lassen und über 100 in grün.
Ich hoffe dass ich mein Problem mit eurer Hilfe gelöst werden kann.
Da ich kein Profi bin, denke ich hätte der ein und andere möglicherweise die Code´s anderes eingesetzt.
Aber für mein Gebrauch reicht dies aus.
Vielen lieben Dank im Voraus
Andreas
https://www.herber.de/bbs/user/108724.xlsm

Hallo Andreas,
ich lade dir die Mappe mal wieder hoch. Deine Wünsche habe ich teilweise eingebaut, zu mehr bin ich heute noch nicht gekommen.
Was ich geändert habe:
1. Beim Abspeichern deiner Daten hast du nur Textzahlen und keine echten Zahlen in die Tabelle
übertragen. Das habe ich angepasst, jetzt stehen echte Zahlen in deiner Tabelle.
2. Hintergrundfarben der Textboxen sind jetzt, so hoffe ich, nach deinen Wünschen.
3. Gesamtsumme aus der Spalte U wird in die Textbox22 eingetragen.
Was ich noch machen muss, ist die Gesamtsumme in die Tabelle zu übernehmen, ob da heute noch dazu komme, weiß ich nicht.
Außerdem habe ich noch gesehen, dass du bei den Textboxen (16,19,21) glaube ich, Locked auf True stehen hattest (habe ich geändert). Mit den Werten in diesen Textboxen rechnest du aber im Code. Bei der Neuanlage eines Datensatzes sind diese Textboxen aber leer (zumindes in der Version die ich von dir habe). Wenn du da dann auf Berechnen klickst, dann crasht dein Code und du bekommst eine Typenuverträglichkeit.
Also müssen dort Daten rein, entweder durch Eingabe (das beist sich dann aber mit Locked = True) oder sie werden von irgendwoher eingelesen. Sollten die Daten in die Userform händisch eingegeben werden/müssen, dann müsste vor der Berechnung noch eine Prüfung rein, dass die entsprechenden Textboxen auch tatsächlich mit Daten gefüllt sind. Das müsste ich dann auch noch machen.
Weiterhin ist noch ein Fehler drin und zwar, dass in die Tabelle eine neue Zeile eingefügt wird, sobald man auf den Button zum Anlegen eines neuen Datensatzes klickt. Wird dann aber die weitere Eingabe durch beenden abgebrochen, dann werden keine Daten in die Tabelle geschrieben (soll ja auch so sein), du hast dann aber eine Leere neue Zeile in deiner Tabelle.
Du kannst ja mal in der Zwischenzeit mal ein wenig mit der Datei spielen und die Unklarheiten noch beseitigen.
https://www.herber.de/bbs/user/108742.xlsm
Gruß Werner

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Texboxen addieren, Ausdruck

14 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)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread