Live-Forum - Die aktuellen Beiträge
Datum
Titel
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.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Typen unverträglich --> warum ?

Typen unverträglich --> warum ?
10.04.2008 10:51:31
FM
Hallo,
ich habe ein kleines Problem mit einer worksheet function.
Ich möchte von einem Skript aus bestimmte Werte summieren wenn 2 Kritieren erfüllt sind ("22" und das jeweilige Land das ausgelesen wird). Als Fehlermeldung bekomme ich "Typen unverträgelich".
Ich komme allerdings nicht darauf wie ich die Variablen sonst deklarieren sollte...
Wäre für jegliche Hilfe dankbar.
Gruss
FM
(P.S. anzzeilen ist als public deklariert und dort als Integer)

Sub countries()
Dim cells_country As Integer
Dim v_country, total_country As Long
Dim country_name As String
AnzZeilen = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row - 1
For cells_country = 2 To 14 Step 1
country_name = ThisWorkbook.Worksheets("data").Cells(cells_country, 7).Value
v_country = WorksheetFunction.SumProduct((ThisWorkbook.Worksheets("data").Range("a2:a500") = "  _
_
22") * _
(ThisWorkbook.Worksheets("data").Range("d2:d500") = country_name) * _
ThisWorkbook.Worksheets("data").Range("b2:b500"))
Next cells_country
End Sub


19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 11:04:00
Renee
Hi FM,
Na da ist so fast alles verkehrt, was man verkehrt machen kann.
z.B.
anzzeilen ist als public deklariert und dort als Integer Rows müssen als DOUBLE deklariert sein.
v_country As String SumProduct gibt einen DOUBLE Wert zurück
Warum du das mit VBA machst, ist mir ebenfalls schleierhaft. Warum nicht gleich die SUMMENPRODUKT Formel in die Zellen der Tabelle schreiben ?
GreetZ Renée

AW: Typen unverträglich --> warum ?
10.04.2008 11:11:16
Andi
Hi,
Rows müssen als DOUBLE deklariert sein
Warum?
Klar, sobald ich mehr als 32.767 Zeilen habe, schon, aber bis dahin geht doch Integer ohne Probleme, oder?
Und wenn ich die 32.767 überschreite, dann bekomme ich doch keine Typ-Unverträglichkeit, sondern einen Überlauf.
Schönen Gruß,
Andi

Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 11:13:08
FM
Danke erstmal für die Antwort. Ich mache das per VBA weil das nur ein Codeteil von mehreren ist und das ganze einen output in einer Userform hat (Spreadsheet und zudem noch ein Chartspace in der Userform)
Wenn ich es richtig verstanden habe muss dann :
Anzzeilen double sein
und v_country auch double ?
Ich habe das nun mal geändert aber leider bekomme ich immer noch die gleiche Meldung. Wäre es evtl. möglich mir noch einen weiteren Tip zu geben :) ?
Danke im voraus
Florian

Sub countries()
Dim cells_country As Integer
Dim v_country As Double
Dim country_name As String
Dim anzzeilen As Double
anzzeilen = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row - 1
For cells_country = 2 To 14 Step 1
country_name = ThisWorkbook.Worksheets("data").Cells(cells_country, 7).Value
v_country = WorksheetFunction.SumProduct((ThisWorkbook.Worksheets("data").Range("a2:a" &  _
anzzeilen) = "22") * _
(ThisWorkbook.Worksheets("data").Range("d2:d" & anzzeilen) = country_name) * _
ThisWorkbook.Worksheets("data").Range("b2:b" & anzzeilen))
Next cells_country
End Sub


Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 11:29:16
Beverly
Hi Reneé,
weshalb müssen Rows als DOUBLE deklariert werden? Long (2.147.483.648) ist doch selbst bei Excel2007 für die Zeilenanzahl ausreichend! Double (E hoch 300 und noch was) ist für Gleitkommazahlen doppelter Genauigkeit erforderlich.
Ich hatte Double für die betreffende Variable nur deshalb vorgeschlagen, weil ich die Ausgangsdaten nicht kenne und das Ergebnis möglicherweise eine Kommazahl sein könnte.

AW: Typen unverträglich --> warum ?
10.04.2008 11:32:00
Renee
Hi Karin,
Sorry, hab mich vertan. Meinte LONG !
GreetZ Renée

Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 11:46:26
Andi
Hi,
trotzdem halte ich meinen Einwand aufrecht, dass bei Integer-Deklaration bis 32.000 Zeilen nichts passiert, und darüberhinaus eine Typ-Unverträglichkeit, sondern ein Überlauf auftritt.
Schönen Gruß,
Andi

AW: Typen unverträglich --> warum ?
10.04.2008 11:56:52
Reinhard
Hallo Andi,
jain, liegt doch wohl daran was zuerst im Code benutzt wird *Korinthen auspack*
Ansonsten sehe ich das genauso :-)
Gruß
Reinhard

AW: Typen unverträglich --> warum ?
10.04.2008 12:24:00
FM
nun gut aber nur um das zu verstehen. Es liegt definitiv daran dass eine Variable falsch deklariert ist oder? Weil dann kann ich ja dementsprechend testen.

AW: Typen unverträglich --> warum ?
10.04.2008 12:59:22
Renee
Hi FM,
Es liegt definitiv daran, dass die Parameter für die SUMPRODUCT Function falsch sind!
Ich werd mich in ungefähr 1h melden.
Aber warum du 12 mal einen Loop durchläufst und immer wieder die gleiche Variable überschreibst, bedarf vielleicht doch noch einer Erklärung!
GreetZ Renée

Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 13:09:32
Reinhard
Hi FM,
leider nein.
Die Variable die das Ergebnis von Sumproduct bekommt muß als Double deklariert/definiert werden.
(Liegt an SumProduct, bei einer anderen Worksheetfunction kann/wird das anders sein)
Diesen Fehler hast du ja korrigiert. Ich auch.
Leider ist da noch etwas anderes nicht korrekt und ich weiß nicht was sonst hätte ich (Andere) dir das sicher schon geschrieben)
Und, beim Antworten auf einen Beitrag ist oben rechts ein Kästchen "Frage noch offen", hake dieses bitte an wenn die Frage noch ffen ist oder du eine Nachfrage hast. Brauchst du jetzt nicht zu machen, mache ich gerade. Noch offene Beiträge erkennt man am Ausrufungszeichen und sie erscheinen wenn du oben aus "offene Fragen" klickst.
Es ist für dich vorteilhaft wenn du dir gleich grundsätzlich angewöhnst in Blättern für die Spalten immer Integer zu benutzen und für die Zeilen immer long.
Um den Fehler der entstehen KÖNNTE wenn man sich nicht daranhält drehte sich ein Teil dieser Diskussion, sorry wenn dich das verständlicherweise verwirrt hat :-(
Weil es mir gerade einfällt, in deiner Ausgangsfrage stand im Code sinngemäß
Dim a,b as long
Falls du dann denkst a wäre auch als Long deklariert irrst du, es bleibt Variant, korrekt müßte es so aussehen:
Dim a as Long, b as Long
Ich hoffe ich habe dich jetzt nicht zu sehr zugetextet *gg*
Zusammengefasst, dein Problem ist weiterhin ungelöst.
Gruß
Reinhard

Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 13:32:00
Rudi
Hallo,

für die Spalten immer Integer zu benutzen


funktioniert, formal aber falsch, da auch die Column-Eigenschaft des Range-Objekts als Long definiert ist.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Typen unverträglich --> warum ?
10.04.2008 13:49:41
Renee
Hi FM,
Das einzige, was ich anstelle der WS-Function anbieten kann, ist:

v_country = Evaluate("=SUMPRODUCT((data!A2:A500=22)*" & _
"(data!D2:D500)=""" & country_name & """)*" & _
"(data!B2:B500))")


GreetZ Renée

Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 13:58:22
FM
danke für die vielen Tips bis jetzt. Werde ich gleich alles ausprobieren.
Zur Frage warum ich 12 mal dieselbe Varaible überschreibe.
Das wird natürlich im Endeffekt nicht so sein. Bis jetzt wollte ich nur mal testen ob es überhaupt funsktioniert und danach wird bevor das nächste NEXT kommt die Variable im Spreadsheet der Userform "verewigt".

AW: Typen unverträglich --> warum ?
10.04.2008 11:09:21
Beverly
Hi,
sind es immer ganzzahlige Werte die sich ergeben, oder können sie auch mit Kommastellen sein? Dann hilft vielleicht Double für v_country anstelle von integer.

Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 11:14:00
FM
@Beverly:
v_country wir ein $ Wert sein der schon Kommastellen haben kann/wird, welche ich dann später per FORMAT kürze.

AW: Typen unverträglich --> warum ?
10.04.2008 14:48:00
FM
Hallo,
so ich habe das mit dem Evaluate nun getestet. Dabei habe ich herausgefunden dass, wenn ich v_country also Variant deklariere (oder gar nicht. Habe kein option explicit verwendet) es durchläuft. Wenn ich den Wert dann in einer Zelle im Worksheet ausgeben will bekomme ich dort ein #Wert!. 

Sub countries()
Dim cells_country As Integer
Dim v_country
Dim country_name As String
Dim anzzeilen As Double
anzzeilen = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row - 1
For cells_country = 2 To 14 Step 1
country_name = ThisWorkbook.Worksheets("data").Cells(cells_country, 7).Value
v_country = Evaluate("=SUMPRODUCT((data!A2:A500=""" & PD & """)*" & _
"(data!D2:D500)=""" & country_name & """)*" & _
"(data!B2:B500))")
ThisWorkbook.Sheets(1).Range("d2").Value = v_country 'diese line nur zum testen ob  _
der Wert der rauskommt richtig ist
Next cells_country
End Sub


Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 14:58:27
Renee
Hi FM,
wieso eigentlich Level VBA gut ?
also Variant deklariere (oder gar nicht. Habe kein option explicit verwendet) es durchläuft
1. Wer Option Explicit nicht verwendet, handelt fahrlässig!
2. Als Variant das ist das gleiche wie nix & option explicit!
3. Es wurde x-mal erwähnt, das SUMPRODUCT einen DOUBLE Wert zurückgibt!
4. Wo und wie ist PD deklariert, was ist der Inhalt von Spalte A, was ist der Inhalt von PD ?
5. Niemand kann deine Tabelle sehen, ausser dir. Dürften wir mal einen Blick drauf werfen ?
GreetZ Renée

Anzeige
AW: Typen unverträglich --> warum ?
10.04.2008 15:14:57
FM
So ich hab jetzt mal eine Beispielstabelle aufgemacht.
Zum Hintergrund warum in VBA: Weil es ein relativ großen Programm ist und diese "Abfrage" nur ein kleiner Teil davon. Allerdings habe ich ein eigenes Sub dafür der Übersicht halber.
PD ist eine Variable vom Typ String. Diese enthält den Wert der aktuellen Periode. Und dieser ändert sich dann logischerweise nach einer Periode.
Vielleicht kann ich ja dann anhand dieser Beispieltabelle ableiten wie es bei mir funktionieren kann. Ansonsten mache ich das evtl. ganz anders.
Zur Frage warum VBA gut. Naja weil mir bescheiden dann doch zu weit unten war. Es ist natürlich immer eine Definitionssache. Ich kann sicher einiges bewältigen im VBA aber sehr vieles auch nicht. Ich bin nun mal kein gelernter Programmierer sondern mache das eher privat und zur Arbeitserleichterung wegen :).
So hier zum Tabellenbeispiel:
https://www.herber.de/bbs/user/51414.xls
Danke !
Gruss
Florian

AW: Typen unverträglich --> warum ?
10.04.2008 15:30:00
Renee
Hi FM,
Da war ne Klammer am falschen Ort:

v_country = Evaluate("=SUMPRODUCT((data!A2:A8=""" & PD & """)*" & _
"(data!B2:B8=""" & country_name & """)*" & _
"(data!D2:C8))")


GreetZ Renée

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

Links zu Excel-Dialogen

UserForm

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