Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in VBA mit absoluter zellangabe

Formel in VBA mit absoluter zellangabe
17.04.2004 00:48:59
Daniel
hey Leute,
hab folgendes Problem. Möchte in VBA eine Summenformel erstellen welche aus zwei teilen besteht. Zunächst sollen die Zellen oberhalb der Formelzelle addiert werden, dann soll diese Summe mit der Summe aller Zellen links davon ab der E Spalte addiert werden. Das Problem ist das ich nicht weiss wie ich das in VBA machen kann...
Vielen Dank für jegliche Hilfe

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in VBA mit absoluter zellangabe
17.04.2004 07:41:55
Oberschlumpf
Hi Daniel
Benutz doch den Makrorecorder.
1. Wähle die Zelle aus, in der das Ergebnis der Summenberechnung stehen soll.
2. Klick auf Extra/Makro/Aufzeichnen
3. Gib über die Tastatur dies ein:
=Summe(
4. Markiere genau DIE Zellen, deren Summe berechnet werden sollen
Zuerst den ersten Bereich, dann STRG-Taste drücken und den zweiten Zellenbereich markieren
5. Gib als Abschluss die schließende Klammer ")" über die Tastatur ein.
6. Beende den Makrorecorder
Fertig
Den so erstellten Quellcode kannst Du Dir im VBA-Editor ansehen, den Du über Alt-F11 öffnen kannst.
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Formel in VBA mit absoluter zellangabe
17.04.2004 07:50:49
andre
hallo daniel,
probier's mal so:


Function SummeObenUndRechts()
Dim Zeile As Long, Spalte As Integer
Dim SummeOben, SummeRechts
  Application.Volatile
  Zeile = Application.Caller.Row
  Spalte = Application.Caller.Column
  If Zeile > 1 Then
    SummeOben = WorksheetFunction.Sum(Range(Cells(1, Spalte), Cells(Zeile - 1, Spalte)))
  End If
  If Spalte < 256 Then
    SummeRechts = WorksheetFunction.Sum(Range(Cells(Zeile, Spalte + 1), Cells(Zeile, 256)))
  End If
  SummeObenUndRechts = SummeOben + SummeRechts
End Function

     Code eingefügt mit Syntaxhighlighter 2.5

gruss andre
Anzeige
AW: Formel in VBA mit absoluter zellangabe
17.04.2004 14:11:32
Daniel
danke für deine Antwort,
leiter brauch ich dass eine eigenliche Formel in VBA erstellt wird, nicht nur die Summe gebildet. Den code des Macrorecorders kann ich nicht nehmen weil, dieser die FormelR1C1 benützt und mit dieser Formel keine absoluten Zellangaben möglich sind. Also um mich ein wenig klarer auszudrücken:
Bilde die Summe: 1) aller anliegenden Zellen oberhalb einer bestimmten Zelle
2) addiere dazu die Summe aller Zellen links von der bestimmten Zelle ab Spalte E (absolute angabe)

Und die Formel die das richtige Resultat liefert soll dann in der bestimmten Zelle wenn angeklickt erscheinen.
nochmals Danke :)
Daniel
Anzeige
AW: Formel in VBA mit absoluter zellangabe
17.04.2004 17:55:48
Josef Ehrensberger
Hallo Daniel!
Dieses Makro sollte es tun!
Option Explicit

Sub SummenFormelSpezial()
Dim rng As Range
Dim strTop As String
Dim strLeft As String
Dim strSemi As String
Set rng = ActiveCell
If rng.Row > 1 Then
strTop = Range(Cells(1, rng.Column), Cells(rng.Row - 1, rng.Column)).Address
End If
If rng.Column > 1 Then
strLeft = Range(Cells(rng.Row, 1), Cells(rng.Row, rng.Column - 1)).Address
End If
If strTop <> "" And strLeft <> "" Then strSemi = ";"
rng.FormulaLocal = "=SUMME(" & strTop & strSemi & strLeft & ")"
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
und so ab Spalte "E"
17.04.2004 18:23:10
Josef Ehrensberger
Hallo Daniel!
Du wolltest ja die Summe ab Spalte "E"!

Sub SummenFormelSpezialabSpalteE()
Dim rng As Range
Dim strTop As String
Dim strLeft As String
Dim strSemi As String
Set rng = ActiveCell
If rng.Column > 5 Then
strLeft = Range(Cells(rng.Row, 5), Cells(rng.Row, rng.Column - 1)).Address
Else
Exit Sub
End If
If rng.Row > 1 Then
strTop = Range(Cells(1, rng.Column), Cells(rng.Row - 1, rng.Column)).Address
End If
If strTop <> "" And strLeft <> "" Then strSemi = ";"
rng.FormulaLocal = "=SUMME(" & strTop & strSemi & strLeft & ")"
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
DANKE!! :)
18.04.2004 21:20:02
Daniel
danke!

306 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Formel in VBA
steffen

Hallo Leuts,
ich bekomme meine Formel, die in ein Tabellenblatt eingetragen werden soll, einfach nich hin:
ActiveSheet.Range("A4").Formula = "=Büromaterial!R?x?C?"
Wie stelle ich es jetzt an, dass R mit einer Zählvariablen x verbunden wird, sozusagen als Zähler, der bei jedem Durch...
17.09.2008 11:35:00
Thread-ID: 1010306
4 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Formel in VBA
balta

Hallo,
habe ein Problem mit meinem Code
Sub Testi() Dim lngZeile As Long For lngZeile = 2 To 100 Worksheets("Daten").Cells(lngZeile, 6).Formula = "=WENN($M2" & Chr(34) & ";ANZAHL2($M$ _ 2:$M2);"")" Next lngZeile End Sub
das Code soll Indexzahl ausgeben, also wenn Zelle M...
28.09.2008 00:15:02
Thread-ID: 1012872
5 Beiträge
Formel in VBA
steffen

Hallo,
ich komme mal wieder nicht mit meiner Formel in VBA zurecht.
Activesheet.Range("A4").Formula = "=INDIRECT(""Tabelle1!B"" &" & x + 1 & ")"; Formel gehört zu einem anderen Tabellenblatt
Das Problem besteht im Namen "Tabelle1". Da dieser Blattname steht's anders laut...
06.10.2008 11:46:00
Thread-ID: 1014389
9 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge

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
5
11
4
3
2
8
4
8
2
12
4
2
6
1
3
14
5
5
8
4
8
4
6
8
4