Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe in Zeile und Spalte VBA

Summe in Zeile und Spalte VBA
18.11.2012 12:09:20
Alex
Hallo werte Excel Profis
ich bastle gerade an einem VBA Befehl das folgendes kann:
Sobald in Zeile 6 etwas steht wird ab Zeile 7 alle Werte in der jeweiligen Spalte summiert und in der Zeile 5 der Spalte ausgegeben.
Weiter soll wenn in Spalte A was steht (ab Zeile 8), die ganze Zeile summiert werden und in Spalte B der Zeile ausgegeben werden.
Ich habe dazu folgende Idee, jedoch funktioniert das nicht ganz oder ich müsste viel zu viele _
Parameter definieren: Dim Summe Summe = Application.WorksheetFunction.Sum(ActiveSheet.Range("C:C")) Range("C5").Value = Summe
Kann mir jemand weiter helfen?
Vielen Dank

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
und was wenn in (B) schon was steht ? kwT
18.11.2012 12:52:37
Matthias

AW: Summe in Zeile und Spalte VBA
18.11.2012 12:56:02
Matze,Matthias
Hallo Alex
das würde einen Zirkelbezug ergeben.
In D5=Summe(C:C) muss in einer anderen Zelle berechnet werden

AW: Summe in Zeile und Spalte VBA
18.11.2012 13:10:15
Alex
Hallo, danke für die Antwort! wen etwas steht soll überschrieben werden.
Er soll ab Zeile 7 Zusammenzählen, somit gibt es doch keinen Zirkelbezug.
Gruss

AW: Summe in Zeile und Spalte VBA
18.11.2012 13:11:38
Matze,Matthias
Hallo Alex,
Ergebnis in C5 berechnet Summe unterhalb bis letzte Zeile 
Sub Test ()
Dim LetzteZeile as Long
With Tabelle1
LetzteZeile = .Cells(Rows.Count, 3).End(xlUp).Row
Range("C5").Value = Application.WorksheetFunction.Sum(ActiveSheet.Range("C7:C" & LetzteZeile))
End With
End Sub
Matze

Anzeige
AW: Summe in Zeile und Spalte VBA
18.11.2012 13:32:35
Matze,Matthias
Hallo Alex,
ohne VBA so gemeint?
 ABCDE
5  13 12
6  100 Y
7x6123
839423
9x9423
1059423

Formeln der Tabelle
ZelleFormel
C5=WENN(C6="";"";SUMME(C7:C10))
D5=WENN(D6="";"";SUMME(D7:D10))
E5=WENN(E6="";"";SUMME(E7:E10))
B7=WENN(A7="";"";SUMME($C7:$E7))
B8=WENN(A8="";"";SUMME($C8:$E8))
B9=WENN(A9="";"";SUMME($C9:$E9))
B10=WENN(A10="";"";SUMME($C10:$E10))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Matze

Anzeige
AW: Summe in Zeile und Spalte VBA
18.11.2012 14:05:49
Gerd
Hallo Alex!
Sub teste()
Dim rngCell As Range
Range("C5:" & Cells(5, Columns.Count).Address).ClearContents
Range("B8:" & Cells(Rows.Count, 2).Address).ClearContents
If Not Intersect(Range("C6:" & Cells(6, Columns.Count).Address), Cells.SpecialCells( _
xlCellTypeConstants)) Is Nothing Then
For Each rngCell In Intersect(Range("C6:" & Cells(6, Columns.Count).Address), Cells. _
SpecialCells(xlCellTypeConstants)).Offset(-1)
rngCell.FormulaR1C1 = "=SUM(R7C:R" & Application.Max(7, Cells(Rows.Count, rngCell.Column). _
End(xlUp).Row) & "C)"
rngCell.Value = rngCell.Value
Next
End If
If Not Intersect(Range("A8:" & Cells(1, Columns.Count).Address), Cells.SpecialCells( _
xlCellTypeConstants)) Is Nothing Then
For Each rngCell In Intersect(Range("A8:" & Cells(Rows.Count, 1).Address), Cells.SpecialCells( _
xlCellTypeConstants)).Offset(, 1)
rngCell.FormulaR1C1 = "=SUM(RC3:RC" & Application.Max(3, Cells(rngCell.Row, Columns.Count) _
.End(xlToLeft).Column) & ")"
rngCell.Value = rngCell.Value
Next
End If
End Sub
Gruß Gerd

Anzeige
AW: Summe in Zeile und Spalte VBA
18.11.2012 14:28:31
Alex
Hey Gerd
Das Teil ist super, danke dir vielmals und noch einen schönen Sonntag!
Gruss Alex

AW: Summe in Zeile und Spalte VBA
18.11.2012 14:36:43
Matze,Matthias
Hallo Zusammen,
cool Gerd, gleich mal als Vorlage gespeichert, danke.
habs mal kurz überflogen, Alex du wolltest ab Zeile 7 Rechnen:
ändere B8 zu B7 (oben)
und (unten) A8 zu A7
Matze

AW: Summe in Zeile und Spalte VBA
18.11.2012 14:57:39
Gerd
Hallo Matthias!
Weiter soll wenn in Spalte A was steht (ab Zeile 8), die ganze Zeile summiert werden ...
So habe ich den 2. Teil gelesen.
Gruß Gerd

Ups, stimmt,... owT
18.11.2012 15:08:37
Matze,Matthias

314 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
16
6
10
3
2
4
7
2
2
4
8
4
3
13
1
5
7
1
11
12
6
11
6
10