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

Problem "SUMME WENN" in VBA-Code

Forumthread: Problem "SUMME WENN" in VBA-Code

Problem "SUMME WENN" in VBA-Code
18.05.2008 19:24:25
andre
Hallo,
ich habe ein Problem mit folgendem Code:

For d = 18 To 26
If Len(Cells(d, 6)) > 0 Then
Range(Cells(d, 7)) = WorksheetFunction.SumIf(Range("F6:F14"), Range(Cells(d, 7)), Range( _
"G6:G14"))
End If
Next d


Beim Kompilieren erhalte ich keinen Fehler, jedoch bei der Ausführung unterbricht das Programm mit der Meldung
"Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen"
Kann mir jemand helfen?
Vielen Dank!
Gruß Andre

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem "SUMME WENN" in VBA-Code
18.05.2008 19:34:41
Daniel
Hi
Problem ist das "Range(Cells(d,7))"
die Frage ist, wo der Wert reingeschrieben werden soll:
- endweder in die Zelle mit der Addresse, die in Cells(d, 7) hinterlegt ist, dann muss da aber auch ein Text in Form einer Zelladdresse stehen, dh sowas wie "X12".
steht in dieser Zelle ein Text, der nicht einer Zelladdresse entspricht, kommt es zu der Fehlermeldung.
- oder direkt in Cells(d, 7), dann ist das Range überflüssig und der Code lautet nur:

Cells(d, 7) = Worksheetfunction.SumIF(...)


gruß, Daniel

Anzeige
AW: Problem "SUMME WENN" in VBA-Code
18.05.2008 19:47:00
andre
Hallo,
der Code ist daraus entstanden:

If Range("F18")  "" Then
Range("G18") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F18"), Range("G6:G14"))
End If
If Range("F19")  "" Then
Range("G19") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F19"), Range("G6:G14"))
End If
If Range("F20")  "" Then
Range("G20") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F20"), Range("G6:G14"))
End If
If Range("F21")  "" Then
Range("G21") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F21"), Range("G6:G14"))
End If
If Range("F22")  "" Then
Range("G22") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F22"), Range("G6:G14"))
End If
If Range("F23")  "" Then
Range("G23") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F23"), Range("G6:G14"))
End If
If Range("F24")  "" Then
Range("G24") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F24"), Range("G6:G14"))
End If
If Range("F25")  "" Then
Range("G25") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F25"), Range("G6:G14"))
End If
If Range("F26")  "" Then
Range("G26") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F26"), Range("G6:G14"))
End If


Ich wollte ihn vereinfachen und nebenher etwas dazulernen und habe eine Schleife probiert.
Dabei ist dann mein Problem entstanden.
Gruß Andre

Anzeige
AW: Problem "SUMME WENN" in VBA-Code
18.05.2008 20:00:47
Daniel
HI
wozu?
dein Ansatz mit der Schleife war ja schon richtig, du hast nur RANGE und CELLS falsch kombiniert.
solange du nur eine Zelle ansprechen willst, kannst du sowohl Range("A1") als auch Cells(1, 1) wahlweise verwenden.
Bei Cells(1,1) ist es eben wesentlich einfacher, Variablen einzubauen.
Gruß, Daniel

Anzeige
AW: Problem "SUMME WENN" in VBA-Code
18.05.2008 19:56:03
andre
Hallo Daniel,
Danke für die Hinweise!
Das Zweite war die Lösung!
Gruß Andre
;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
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
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Fehler in VBA-Code?
David

Und nochmal Hallo.
Und schon wieder mit einem sehr "mysteriösen" Fehler:
Option Explicit Sub test() Dim zeile, i As Long Dim wks As Worksheet Dim wkb As Workbook Dim quelle As String For Each wkb In Workbooks If Right(wkb.Name, 4) = ".csv" And InStr(wkb.Name, "Pliste") > 0 Then que...
22.09.2008 12:14:00
Thread-ID: 1011440
5 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 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
Anzeige
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Anzeige
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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