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
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Summenprodukt-Wochentag Typen unverträglich

VBA Summenprodukt-Wochentag Typen unverträglich
Alfons
Hallo,
in Spalte A stehen die Tage: 01.02.2010, 02.02.2010 usw.
Zellformat ist Standard.
Mit VBA will ich davon die Anzahl der Montage ermitteln.
Dim rng As Range
Set rng = Range("A2:A65000")
MsgBox WorksheetFunction.SumProduct((Weekday(rng, 2) = 1) * 1)
Warum kommt da der Fehler Typen unverträglich?
Gruß
Alfons
http://vba1.de
AW: VBA Summenprodukt-Wochentag Typen unverträglich
29.03.2010 07:12:46
Hajo_Zi
Hallo Alfons,
mache es nach diesem Prinzip
Evaluate("=SumProduct((Tabelle2!A40:A46 =""Geiger"")*((Tabelle2!B40:B46)))")

AW: VBA Summenprodukt-Wochentag Typen unverträglic
29.03.2010 07:37:15
Alfons
Moin Hajo,
hatte ich auch schon erfolglos versucht:
Set rng = Range("A2:A65000")
MsgBox Evaluate("=WorksheetFunction.SumProduct((Weekday(rng, 2) = 1) * 1)")
= Typen unverträglich
Vorschläge?
Gruß
Alfons
http://vba1.de
AW: VBA Summenprodukt-Wochentag Typen unverträglic
29.03.2010 08:14:12
Tino
Hallo,
versuche es mal so.
Dim rngBereich As Range
With Tabelle1
Set rngBereich = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
End With
MsgBox Evaluate("=SUMPRODUCT((WEEKDAY(" & rngBereich.Address & ",2)=1)*1)")
Gruß Tino
Anzeige
so ist besser ...Address(External:=True)
29.03.2010 08:16:07
Tino
Hallo,
MsgBox Evaluate("=SUMPRODUCT((WEEKDAY(" & rngBereich.Address(External:=True) & ",2)=1)*1)")
Gruß Tino
auch nicht besser
29.03.2010 08:24:43
Alfons
Hallo,
Typen unverträglich. *Puh*
nächste Versuch?
Alfons
http://vba1.de
Typen unverträglich
29.03.2010 08:22:03
Alfons
leider...
und funktioniert
29.03.2010 08:53:43
Alfons
Hallo Tino,
deine Lösung fluppt wunderbar (hatte zuerst was übersehen).
besten Dank und Gruß
Alfons
http://vba1.de
Datum = Text ?!
29.03.2010 08:55:46
Matthias
Hallo
mind. eine Zelle Deiner Daten enthält dann kein gültiges Datum !
Evtl. sind die Daten als Text eingelesen worden.
deshalb Laufzeitfehler 13 - Typ unverträglich.
Multipliziere die Daten mit 1, dann klappts auch mit Tinos Codebeispiel.
Userbild
Gruß Matthias
Anzeige
AW: Datum = Text ?! Ja leider
29.03.2010 09:46:21
Alfons
Hallo Matthias,
stimmt, alle Daten wurden als Text importiert und zwar mit zweistelliger Jahreszahl.
Deshalb wird das mit dem multiplizieren nicht gehen.
Muss ich nochmal testen...
Jedenfalls habe ich jetzt einen Teil der Daten/eine Tabelle mit CDate bearbeitet
und die Lösung von Tino funktioniert einwandfrei.
Danke nochmal
Alfons
http://vba1.de

301 Forumthreads zu ähnlichen Themen

Laufzeitfehler "13": Typen unverträglich
Jochen

Hallo Freunde,
habe folgendes Makro aufgezeichnet:
Sheets("Auftrag 1").Select
Range("O1").Select
Selection.EntireColumn.Hidden = False
Range("O11:O310").Select
Selection.Copy
Range("P11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Skip...
01.12.2009 09:55:30
Thread-ID: 1121131
13 Beiträge
Anzeige
Laufzeitfehler 13 Typen unverträglich
Michael


Hallo Forum,
ich habe folgendes Problem. Ich möchte mit einem Makro in Excel 2010 die Daten eines Tabellenblattes in eine txt-Datei schreiben. Leider kommt der Laufzeitfehler 13 Typen unverträglich.
folgendes Makro:
Sheets("Transfer").Select
Open "C:\temp\Stammdaten.txt" Fo...
06.12.2012 14:42:13
Thread-ID: 1289623
6 Beiträge
VBA-Fehler Typen unverträglich
Alexander

Hallo Forum,
ich stehe vor dem Problem, dass ich auf Arbeit einen Report erstellen muss. Dazu werden per Makro Daten von einer Tabelle in eine Tabelle mit mehreren Tabellenblättern gelesen.
Das Makro hat mein Vorgänger erstellt, ich habe versucht es anzupassen, erhalte aber eine Fehlerm...
07.05.2013 09:43:35
Thread-ID: 1311957
2 Beiträge
Anzeige
Laufzeitfehler 13 Typen unverträglich
Kleofaas

Hallo liebes Herbers-Team,
nachdem ich von Euch hervorragende Hilfe bei meiner letzten Anfrage erhalten habe, habe ich diesen (modifizierten) Code eingebaut:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$6" And Target = "VWNF" Then If MsgBox("Verkauf mit S...
09.12.2013 17:48:11
Thread-ID: 1341903
4 Beiträge
Typen unverträglich Laufzeitfehler 13
matthias

Hallo,
ich versuche einen String an zwei Stellen zu vergleichen. Dabei erhalte ich immer den Laufzeitfehler 13 unverträgliche Typen. Habe ich den falschen Variablen-Typen gewählt (Mit Variant ging es auch nicht)? Dim artikelnummer As String artikelnummer = Sheets("Lagerplatz Verwaltung").Ce...
30.01.2014 14:00:57
Thread-ID: 1347363
3 Beiträge
Fehler Nr. 13 - Typen unverträglich
Tobias

Hallo, ich habe folgendes Problem ..
ich habe eine Datei bei der die Bestellungen für einen Tag zusammengezählt werden
Bislang funkioniert alles wunderbar.
Nur wenn die Bestellnummern nicht nur aus Zahlen sondern aus einer Kombination von Buchstaben und Zahlen sind kommt der Fehle...
23.03.2014 18:32:24
Thread-ID: 1354571
13 Beiträge
Laufzeitfehler 13 - Typen unverträglich
Erwin

Hallo Forum,
ich habe eine Auswahlliste (Userform1) aus einer anderen Anwendung übernommen, auf die neuen Namen angepasst und möchte diese aufrufen.
Leider erscheint Laufzeitfehler 13 - Typen unverträglich.
Ich glaube, ich habe den Fehler auch gefunden (s. Kommentar), weis aber nich...
06.08.2014 20:56:55
Thread-ID: 1374835
16 Beiträge
Laufzeitfehler typen unverträglich
Henry

Guten Morgen,
ich prüfe die spalte mittels vba
For Each Zelle In Bereich If Zelle = "" Then 'nix unternehmen ElseIf Zelle = Date Then ... In der Zelle wurde steht entweder ein Datum oder keins....
Das Datum wird durch eine Formel bzw. Zellbezug erzeugt.
Diese Formel hatte ich...
12.11.2014 08:40:35
Thread-ID: 1391778
7 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
12
2
5
1
5
3
2
12
15
6
4
6
5
3
4
8
8
2
8
3
2
3
16
2
10