Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Warum funktioniert das nicht...?

Warum funktioniert das nicht...?
18.03.2015 14:06:24
Jockel
hi zusammen,
kurze frage...
dieser codeschnipsel funktioniert super:
MsgBox WorksheetFunction.SumIfs(Sheets("E&A").Range(Cells(4, 16), Cells(1000, 16)), _
Sheets("E&A").Range("F:F"), "9960306131", Sheets("E&A").Range("G:G"), "1")
dieser bringt den laufzeitfehler '1004':
MsgBox WorksheetFunction.SumIfs(Sheets("E&A").Range("P:P"), _
Sheets("E&A").Range("F:F"), "9960306131", Sheets("E&A").Range("G:G"), "1")
kann mir jemand helfen wo der fehler liegt?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Warum funktioniert das nicht...?
18.03.2015 14:09:34
Rudi
Hallo,
Fehlerwert in P:P?
Gruß
Rudi

AW: Warum funktioniert das nicht...?
18.03.2015 14:13:35
Jockel
SORRY!
Kopierfehler - die Beispiele einfach umkehren!!! :)

AW: Warum funktioniert das nicht...?
18.03.2015 14:21:44
Rudi
Hallo,
die Bereich müssen gleich groß sein.
Gruß
Rudi

AW: Warum funktioniert das nicht...?
18.03.2015 14:33:41
Jockel
Und wie sieht dann der code aus, wenn ich die Zahlen in "Cells(zeile, spalte)" als variable bestücken will?

AW: Warum funktioniert das nicht...?
18.03.2015 14:39:04
Klaus
Hi Jockel,
da die Bereiche gleich groß sein müssen, muss jede Spalte die gleichen Zeilenvariablen bekommen. Zwei Möglichkeiten, such dir aus was dir besser gefällt:
Sub test()
var1 = 4
var2 = 1000
MsgBox WorksheetFunction.SumIfs(Sheets("E&A").Range(Cells(var1, 16), Cells(var2, 16)), _
Sheets("E&A").Range("F:" & var1 & "F" & var2), "9960306131", Sheets("E&A").Range("G:" & var1 &  _
"G" & var2), "1")
MsgBox WorksheetFunction.SumIfs(Sheets("E&A").Range(Cells(var1, 16), Cells(var2, 16)), _
Sheets("E&A").Range(Cells(var1, 6), Cells(var2, 6)), "9960306131", Sheets("E&A").Range(Cells( _
var1, 7), Cells(var2, 7)), "1")
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Warum funktioniert das nicht...?
18.03.2015 15:01:12
Jockel
Auch dir danke! auch wenn ich gern einen kürzeren code hätte... range("A:A") ist so kurz, warum man da nicht range("1:1!) o. ähnliches schreiben kann...?

AW: Warum funktioniert das nicht...?
18.03.2015 15:33:39
Klaus
Wenns dir zu lang = zu unleserlich wird, dann hol die RANGE-Angaben aus der Formel raus.
Sub test()
Dim var1 As Long, var2 As Long
Dim r1 As Range, r2 As Range, r3 As Range
var1 = 6
var2 = 1000
Set r1 = Range(Cells(var1, 16), Cells(var2, 16))
Set r2 = Range(Cells(var1, 6), Cells(var2, 6))
Set r3 = Range(Cells(var1, 7), Cells(var2, 7))
MsgBox WorksheetFunction.SumIfs(r1, r2, "9960306131", r3, "1")
End Sub
Das ist zwar, an der reinen Zeichenanzahl gemessen, länger ... aber dafür lesbarer.
Grüße,
Klaus M.vdT.

Anzeige
AW: Warum funktioniert das nicht...?
18.03.2015 14:43:03
Rudi
Hallo,
so? 
With Sheets("E&A")
MsgBox WorksheetFunction.SumIfs(.Range(.Cells(4, 16), .Cells(Zeile, 16)), _
.Range(.Cells(4, 6), .Cells(Zeile, 6)), "9960306131", .Range(.Cells(4, 7), .Cells(Zeile, 7)) _
, "1")
End With
Gruß
Rudi

AW: Warum funktioniert das nicht...?
18.03.2015 14:57:49
Jockel
Super, funtzt! Danke dir! ...wenn auch mächtig lang :)

302 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
SVERWEIS geht nicht
gio

Hallo Profis,
brauche Eure Hilfe.
Ich erstelle mir in einer Zelle über eine Formel eine 3stellige Zahl oder Buchstabenkombination.
=(LINKS(A1;3)) ergibt z.B. 123 oder abc
Das passt soweit.
Über Sverweis suche ich mir dann zu 123 oder abc dazugehörige Daten.
Das funzt nic...
29.10.2008 09:54:21
Thread-ID: 1020154
5 Beiträge
Anzeige
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
SVERWEIS geht nicht
Schmidt

Guten Tag
In der Tabelle komm ich mit der Funktion SVERWEIS nicht weiter.
Würde mir bitte jemand helfen.
Danke im Voraus
https://www.herber.de/bbs/user/56652.xls
10.11.2008 15:44:06
Thread-ID: 1023236
7 Beiträge
Filtern, Sverweis geht wohl nicht?
Angela

Hallo,
Habe im Tab 1 eine sehr lange Liste, ca von B5:C5000.
Nun möcht ich gern auf Tab 2 eine neue Liste erstellen, ausgehend von Tab 1 B5:B5000 über Combobox oder anders eben.
Es soll auf Tab 2 durch selektion Daten ausgewählt werden und in Tab2 geschrieben werden.
Angenommen...
17.01.2009 21:29:04
Thread-ID: 1041000
25 Beiträge
Warum funktioniert das Verknüpfen nicht ?
TomTom


Hallo,
also, ich möchte per Makro eine andere Datei in mein Excel Sheet als Symbol einbinden. Also das Gleiche, was man über EINFÜGEN / OBJEKT / AUS DATEI ERSTELLEN (als Symbol) macht :
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If D...
01.02.2009 22:58:20
Thread-ID: 1046037
3 Beiträge
warum funktioniert dieses makro nicht?
Emil

Hallo zusammen
Also, ich möchte, wenn der Togglebutton betätigt wird, dass alle Sheets welche mit Tag* beginnen, eingeblendet werden. Wenn ich ihn nochmals drücke, dann sollen alle ausgeblendet werden. Ist ganz einfach, aber ich kriegs irgendwie nicht hin..Hier mein bisheriges Makro:
...
03.04.2009 13:45:04
Thread-ID: 1066669
9 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
7
2
6
4
4
4
6
24
2
8
2
1
2
5
3
4
12
1
16
3
3
2
2
2
5