Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zur Addition mit Fehler 1004

Makro zur Addition mit Fehler 1004
05.09.2007 15:51:41
Peter
Hallo Leute,
ich möchte in der Zeile 115 einer Tabelle automatisch Summen erstellen und habe dazu ein Makro gebastelt. Es sollen z.B. bei i=2 die Zellen H10 bis H13 addiert werden, bei i = 3 die Zellen H14 bis H17, bei i=4 die Zellen H18 bis H21 usw.
Leider zeigt mir Excel nach Start des Makros immer "Laufzeitfehler 1004: Anwendungs- oder objektorientierter Fehler" an. Und ich weiss nicht, woran es liegt. Könnt Ihr mir helfen?
Gruß, Peter

Sub AöR_Jahre()
For i = 2 To 25
Cells(115, i).FormulaR1C1 = "=SUM(R[(4*i)+2]C[8]:R[(4*i)+5]C[8])"
Next i
End Sub


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zur Addition mit Fehler 1004
05.09.2007 16:08:59
Renee
Hi Peter,
Wenn die Formeln ab der ZelleI2 (nicht index i=2) in die Spalte abgefüllt werden soll, macht der Code einigermassen Sinn, allerdings ohne runde Klammern und die Berechung des Offsets müsste ausserhalb des Strings sein.
Wenn die Formeln, in die Zeile 115 waagrecht abgefültt werden soll, macher er keinen Sinn, weil dann die Berechung falsch wäre.
Also bitt welche Formeln, mit welcher Regeln in welche Zellen ?
Greetz Renee

AW: Makro zur Addition mit Fehler 1004
05.09.2007 16:18:38
Peter
Hallo Renee,
ich möchte in der Tat in der Zeile 115 einer Tabelle die Spalten B (=2) bis Y (=25) mit einer Formel befüllen.
Diese Formel soll jeweils 4 aufeinanderfolgende Werte aus der Spalte H addieren. Die Zelle B115 soll z.B. die Summe der Zellen H10: H13 enthalten, die Zelle C115 die Summe der Zellen H14:H17 usw...
Für diesen Zweck hatte ich das Makro entworfen, aber es funzt wie gesagt nicht. Eine Lösung über Formeln wäre mir sogar noch lieber, aber da ist mir gar nichts eingefallen...
Gruß, Peter

Anzeige
AW: Makro zur Addition mit Fehler 1004
05.09.2007 16:33:00
Renee
Hi Peter,
Eine Formel ? Nix leichter als das, in B115 und nach rechts kopieren...

=SUMME(BEREICH.VERSCHIEBEN($H$10;SPALTE()*4-8;0;4;1))


Greetz Renee

Super, das läuft! DANKE! owT
05.09.2007 16:35:43
Peter
...

AW: Makro zur Addition mit Fehler 1004
05.09.2007 16:39:00
Luschi
Hallo Peter,
schreibe die Prozedur so: 

Sub AoeR_Jahre()
Dim s As String
For i = 2 To 25
s = "=SUM(R[" & (4 * i) + 2 & "]C[8]:R[" & (4 * i) + 5 & "]C[8])"
ActiveSheet.Cells(2, i).FormulaR1C1 = s
Next i
End Sub


Die Zahlenwerte für Zeile bzw. Spalte müssen vorher berechnet werden, so daß dann so eine Formel
für FormulaRC1 herauskommt:
=SUM(R[10]C[8]:R[13]C[8])
bzw. steht dann in der Tabellenzelle:
=SUM(Z(10)S(8):Z(13)S(8))
Was nicht geht ist Folgendes:
=SUM(R[8+2]C[8]:R[8+5]C[8]) bzw. =SUM(Z(8+2)S(8):Z(8+5)S(8))
Gruß von Luschi
aus klein-Paris

Anzeige

188 Forumthreads zu ähnlichen Themen

Makro-Fehlermeldung (Laufzeitfehler '1004')
Patrick

Guten Abend
Ich arbeite derzeit an einem Excel-Sheet und benötige dafür einige Makros. Obwohl ich keine Ahnung von Makros habe, konnte ich über die Such-Funktionen in verschiedenen Foren meine Probleme bisher selbst lösen. Nun stosse ich jedoch an meine Grenzen und konnte auch im Internet k...
01.03.2009 23:45:37
Thread-ID: 1055392
4 Beiträge
Anzeige
Laufzeitfehler 1004 - Select-Methode bei Range
Steffen

Hi zusammen,
habe ein minder wichtiges Problem mit einer Sortierung, die ich im Anschluss an das Füllen einer Liste vornehmen möchte.
Habe schon ein paar Forenbeiträge durchforstet und bei mir scheint es nicht nur das übliche Problem zu sein, dass der Pfad nicht genau angegeben wird.
17.04.2009 13:12:05
Thread-ID: 1069307
4 Beiträge
Fenster mit dem VBA-Laufzeitfehler ‚1004’
Matthias

Ich habe Tabellen einer Arbeitsmappe mit einem Blattschutz versehen und dafür auch ein Passwort vergeben.
In einem VBA-Skript verwende ich den Befehl ActiveSheet.Unprotect um den Blattschutz aufzuheben. Wird beim Ausführen des Skripts nun jedoch ein falsches Passwort eingegeben oder der Vo...
16.03.2010 16:24:06
Thread-ID: 1146325
9 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
Hyperlink mit VBA = Laufzeitfehler 1004
grexx123

Hallo,
ich habe folgendes Problem:
Ich generiere einen Hyperlink mit
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="" & ActiveWorkbook.Path & link & ".xls", SubAddress:="", ScreenTip:="Zu den Detaildaten von " & link & "", TextToDisplay:=">> Details...
14.04.2011 19:18:04
Thread-ID: 1210475
6 Beiträge
Laufzeitfehler 1004 - Die Methode "Range" für das
Pietro

Hei
Ich schnall es nicht! Wenn ich den folgenden Code auf Tabelle 2 ausführe funktioniert es einwandfrei. Starte ich den Code jedoch von einem anderen Blatt (z.B. Tabelle 1) kommt die Fehlermeldung "Laufzeitfehler 1004 - Die Methode "Range" für das Objekt Global ist fehlgeschlagen". Was mac...
13.01.2012 15:17:31
Thread-ID: 1246047
6 Beiträge
VBA - Laufzeitfehler 1004
Golem

Hallo Excel-Fachleute,
folgenden VBA Code verwende ich, um mehrere Zellbereiche neu zu berechnen.
Private Sub CommandButton1_Click() CommandButton1.BackColor = RGB(255, 215, 0) CommandButton1.Caption = "Manuelle" & Chr(10) & "Berechnung" 'Die Zahlen neu berechnen. Range("B29:T29...
06.08.2012 21:42:52
Thread-ID: 1274002
10 Beiträge
(ActiveSheet.UsedRange.Rows.Count) zählt falsch
Marc

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet...
31.05.2013 11:10:38
Thread-ID: 1315676
10 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
3
2
3
8
4
5
5
5
9
9
3
5
1
1
4
6
8
2
4
9
4
11
5
6
1