Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige