Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zahl aus Spalte kopieren

Forumthread: letzte Zahl aus Spalte kopieren

letzte Zahl aus Spalte kopieren
27.07.2016 07:55:11
Berndt
Hallo Freunde,
folgende Frage:
Ich benötige ein Makro, welches mir aus Tabelle2/Spalte E die letzte Zahl (das ist die Summe) kopiert und in Tabelle1/A1 einfügt.
Kann mir wer helfen?
VG Berndt
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte Zahl aus Spalte kopieren
27.07.2016 08:17:46
Bernd
Hi,
könntest Du das etwas genauer beschreiben?
Denn, warum benötigst Du dafür ein Makro und nicht z.B.: eine Formel in A1?
Was meinst Du genau mit der letzten Zahl? Ist die "Summe" immer in der gleichen Zelle?
mfg Bernd
AW: letzte Zahl aus Spalte kopieren
27.07.2016 08:57:32
Berndt
Vielen Dank für deine Antwort.
Nein die Summe ist nicht immer in der gleichen Zeile.
Ein Makro bildet mir vorher die Summe.
Problem: Die summe wird in Tabelle2 als letzte Zeile geschrieben und nicht in Tabelle 1/A1
Vll kann man ja einfach das bestehende Makro umschreiben und Summe gleich in TAbelle1/A1 schreiben.
Sub Summieren() 
Dim lLetzte  As Long
With ThisWorkbook.Worksheets("Tabelle2")
lLetzte = Application.Max(5, .Cells(.Rows.Count, 5).End(xlUp).Row)
.Range("E" & lLetzte + 1).Value = WorksheetFunction.Sum(Range("E2:E" & lLetzte))
.Range("E" & lLetzte + 1).Interior.ColorIndex = 15
End With
End Sub

Anzeige
AW: letzte Zahl aus Spalte kopieren
27.07.2016 09:02:00
Werner
Hallo Berndt,
Dim lLetzte  As Long
With ThisWorkbook.Worksheets("Tabelle2")
lLetzte = Application.Max(5, .Cells(.Rows.Count, 5).End(xlUp).Row)
Sheets("Tabelle1").Range("A1") = WorksheetFunction.Sum(Range("E2:E" & lLetzte))
Sheets("Tabelle1").Range("A1").Interior.ColorIndex = 15
End With
End Sub
Gruß Werner
Anzeige
AW: letzte Zahl aus Spalte kopieren
27.07.2016 09:22:04
Berndt
Danke. Funktioniert wenn ich das Makro von Tabelle2 aus starte.
Wenn ich aber, wie geplant, dass makro von Tabelle1 aus starten möchte, bekommt es Probleme mit "With ThisWorkbook.Worksheets("Tabelle2")" würde ich behaupten.
Es möchte immer die Summe aus der aktuell selektierten Tabelle ziehen. Es soll aber explizit zu Tabelle 2 gehen und dort die Summe ziehen.
Anzeige
AW: letzte Zahl aus Spalte kopieren
27.07.2016 09:40:25
Werner
Hallo Berndt,
hier muss vor das Range ein Punkt: 
Sheets("Tabelle1").Range("A1") = WorksheetFunction.Sum(.Range("E2:E" & lLetzte))
Gruß Werner
AW: letzte Zahl aus Spalte kopieren
27.07.2016 10:57:23
Berndt
Danke. :-)
AW: letzte Zahl aus Spalte kopieren
27.07.2016 10:57:24
Berndt
Danke. :-)
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.07.2016 11:02:10
Werner

Forumthreads zu verwandten Themen

Statt Zahl "Textausgabe" in 3D Formel
Lorenz

Guten Morgen!
Mit folgender 3D-Formel wird aus mehreren Blättern(In diesem Fall "1."."2."."3.")nach dynamischen Suchkriterien ein Wert "ZAHL" ausgegeben. Funktioniert wunderbar!!!. Leider gelingt es mir nicht einen anderen Wert (den Zellinhalt als "Text") auszugeben
=SUMME(SUMMEWENN(IND...
14.08.2009 07:14:45
Thread-ID: 1095457
2 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo, für euch ist das sicher einfach, aber ich bekomme folgenden Schritt nicht hin. Ich habe über Makro aufnehmen eine einfache Funktion. Es sollen 4 aufeinanderfolgende Werte in einer Zeile addiert werden. Nun soll sich aber in dem Makro diese Formel selbstständig über alle Zeilen kopieren,...
14.10.2009 17:23:17
Thread-ID: 1109648
5 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo Leute, hab da mal eine Verständnisfrage:
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Wert...
02.02.2010 12:32:34
Thread-ID: 1135057
3 Beiträge
Anzeige
VBA- formel ausfüllen > anzahl2
Benjamin

Hallo zusammen,
ich hoffe ihr könnt mir bei einem Problem helfen.
Ich habe eine Tabelle, in der in Zeile 9 per Makro Formeln eingepflegt werden sollen.
Diese Formeln sollen dann X Zeilen nach unten kopiert werden.
X soll sich errechnen aus ANZAHL2 Spalte A eines anderen Tabellen...
23.02.2010 10:03:42
Thread-ID: 1140580
3 Beiträge
Text von Zahlen ausschneiden und nach D kopieren
Zahlen

Hallo und Guten Abend,
habe ein Problem mit dem trennen bzw. ausschneiden Text von Zahl.
An dem hochgeladenen Muster, kann man besser erkennen was ich meine.
https://www.herber.de/bbs/user/72575.xls
Wäre Super, wenn mir jemand helfen würde.
Danke, Josef
03.12.2010 21:41:52
Thread-ID: 1190013
3 Beiträge
VBA statt Formel kopieren
Mandy

Hi guys,
ich habe gerade erst angefangen, mich mit VBA anzufreunden, daher für Euch wahrscheinlich ne ganz simple Frage...: ;-)

Momentan habe ich eine Tabelle in der in J3 folgende Formel steht, die dann für den Rest der Spalte (soweit benötigt) nach unten kopiert wird:
=WE...
01.01.1970 00:00:00
Thread-ID: 1199255
36 Beiträge
Formel bis Ende
gerhard

Hallo bitte um Makro Hilfe,
wie kann ich ab der aktiven Zellposition die Spalte bis zum Ende der links davon
liegenden Spalte mit einer Formel auffüllen?
Ich möchte die Berechnung starten ab der aktiven Zellpositon z.B C10
In der links liegende B Spallte sind Werte bis z.B B2000...
24.03.2011 14:24:07
Thread-ID: 1207409
4 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
Daten / Gültigkeit bei Auswahl Formel kopieren
Stefan

Guten Tag
Ich habe in einem File einige Daten - Gültigkeits dropdown Felder eingefügt. Nun möchte ich diese "überwachen". Wenn ein Wert in einem dropdown Fled ausgewält wird, möchte ich gerne in dieser Zeile die Formeln (Matrix) aus der oberen Zellen kopieren und Einfügen. Ich habe einige i...
01.07.2011 13:19:31
Thread-ID: 1220478
3 Beiträge
Markiere Felder (für Kopieren) nach Formelauswahl
JAT

Hallo liebes Forum,
aus einer Tabelle mit verschiedenen Datensätzen (ja Spalte) wird per Formel festgelegt, wie viele der Datensätze bestimmte Vorgaben erfüllen. Dies als Voraussetzung.
Meine Frage:
Ich möchte diejenigen Datensätze, welche lt. Formel die Vorgaben erfüllen gern derar...
30.12.2012 19:45:09
Thread-ID: 1292426
6 Beiträge
variable anzahl an zeilen inkl. formel kopieren
Jomo

Hallo,
ich habe folgendes Problem und hoffe mir kann hier jemand weiter helfen. Ich müsste einige Berechnungen mit Mieteinheiten durchführen. Nun ist die Anzahl der Mieteinheiten aber jedes mal unterschiedlich könnten also einmal 5stück sein und das nächsten mal 30....
Ich hatte mir da...
25.06.2013 14:36:40
Thread-ID: 1319614
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige