Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Summe aus Tabellenspalte in TextBox

Forumthread: Summe aus Tabellenspalte in TextBox

Summe aus Tabellenspalte in TextBox
09.12.2002 18:02:29
Tobias
Liebes Forum,
bräuchte Eure Hilfe bei folgendem Problem:

Aus der Spalte F6 bis F?? (letzte belegte F-Zelle) sollen die Summe gebildet werden und dann in eine UserForm-TextBox übergeben werden ( UserForm_Initialize() ).
Habe es mit

TextBox7.Formula = "=Sum(F6:F??)"

probiert; aber das funktioniert nicht.
Habt Ihr einen besseren Vorschlag? Danke im voraus und

Gruss Tobias

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Summe aus Tabellenspalte in TextBox
09.12.2002 18:07:25
andre
hallo tobias,
ich hoffe mal, du hast irgendwo die letzte zelle festgestellt.
wenn es dann mit der formel nicht geht, dann hole die summe in eine variable und gebe die dann in die textbox.
gruss andre
Re: Summe aus Tabellenspalte in TextBox
09.12.2002 20:35:27
Tobias
Hi Andre,
vielen Dank für Deine Hilfe. Habe das Problem gelöst.
Der Code sieht folgendermaßen aus:

'Bildet in Projekte_gesamt die Projektwertsumme
Sub Summe_gesamt()
Dim Summe As Currency
Summe = 0
Worksheets("Projekte gesamt").Activate
Range("F6").Select

'Letzte belegte Zelle in Spalte ermitteln
Do While ActiveCell.Value <> ""
Summe = Summe + ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

'Variable an TextBox übergeben
With frm_Gesamtübersicht
TextBox7.Value = Summe
TextBox7.Value = Format(TextBox7.Value, "#,##0.00 €")
End With
End Sub

Vielen Dank + Gruss Tobias



Anzeige
Re: Summe aus Tabellenspalte in TextBox
09.12.2002 20:35:27
Tobias
Hi Andre,
vielen Dank für Deine Hilfe. Habe das Problem gelöst.
Der Code sieht folgendermaßen aus:

'Bildet in Projekte_gesamt die Projektwertsumme
Sub Summe_gesamt()
Dim Summe As Currency
Summe = 0
Worksheets("Projekte gesamt").Activate
Range("F6").Select

'Letzte belegte Zelle in Spalte ermitteln
Do While ActiveCell.Value <> ""
Summe = Summe + ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

'Variable an TextBox übergeben
With frm_Gesamtübersicht
TextBox7.Value = Summe
TextBox7.Value = Format(TextBox7.Value, "#,##0.00 €")
End With
End Sub

Vielen Dank + Gruss Tobias



Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige