Fehler falscher Datentyp

Forumthread: Fehler falscher Datentyp

28.02.2017 14:01:45

Basti

Hallo zusammen,
im Bereich "S1:WF2" steht in jeder Zelle die Formel "Farbenzaehlen" (z.B. in S1: "=Farbenzaehlen(S8:S2095;65535)"):

Public Function Farbenzaehlen(ZellBereich As Range, lngColor As Long) As Long
'Funktion zählt Zellen im Zellbereich mit dem angegebenen Colorindex
Dim Zelle As Range
For Each Zelle In ZellBereich
If Zelle.Interior.Color = lngColor Then
Farbenzaehlen = Farbenzaehlen + 1
End If
Next Zelle
End Function

Die Funktion funktioniert im gesamten Bereich und zeigt jeweils die Anzahl der gelb bzw. rot markierten Felder der jeweiligen Spalte in den Zeilen 8 bis 2095 an.
Hab nun ein anderes Makro in diesem Arbeitsblatt, welche meine ToDo-Liste sortiert:

Sub Sortieren2()
'Dieses Makro sortiert mit den aktuellen Werten,
'blendet dann alle negativen Werte "

Nachdem ich dieses Makro ausführe, steht in den Zellen "S1:WF2" jeweils #WERT und als Info "Ein in der Formel verwendeter Wert ist vom falschen Datentyp." Geh ich mit F2 in eine der Zellen rein und drück dann Enter, erscheint wieder ganz normal das Ergebnis der Formel.
Hat jemand eine Idee, wo das Problem liegen könnte?
LG Basti

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Am Sortieren! Gruß owT

28.02.2017 21:34:24

Luc:-?
AW: Am Sortieren! Gruß owT

01.03.2017 09:17:03

Basti
AW: Fehler falscher Datentyp

01.03.2017 18:17:54

onur

Am Sortieren! Gruß owT

28.02.2017 21:34:24

Luc:-?

:-?

AW: Am Sortieren! Gruß owT

01.03.2017 09:17:03

Basti

Ok. Kann ich was tun, damit die Formeln danach wieder funktionieren? Also quasi das manuelle Vorgehen mit F2 in die Zelle reingehen und dann Enter drücken per Makro drüberlaufen lassen?

AW: Fehler falscher Datentyp

01.03.2017 18:17:54

onur

Hi,
Baue mal in deine Funktion:
Application.Volatile
ein.
Gruß
Onur

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Fehler "Ein in der Formel verwendeter Wert ist vom falschen Datentyp" in Excel zu beheben, kannst du folgende Schritte durchführen:

Öffne dein Arbeitsblatt mit der Formel, die den Fehler verursacht.
Überprüfe die Formel in den Zellen S1:WF2. Stelle sicher, dass alle verwendeten Werte in der Funktion Farbenzaehlen korrekt sind.

Füge Application.Volatile in die Funktion Farbenzaehlen ein, um sicherzustellen, dass die Funktion bei Änderungen im Arbeitsblatt neu berechnet wird. Deine Funktion könnte dann folgendermaßen aussehen:

Public Function Farbenzaehlen(ZellBereich As Range, lngColor As Long) As Long
   Application.Volatile
   Dim Zelle As Range
   For Each Zelle In ZellBereich
       If Zelle.Interior.Color = lngColor Then
           Farbenzaehlen = Farbenzaehlen + 1
       End If
   Next Zelle
End Function

Führe das Sortieren-Makro erneut aus und überprüfe, ob der Fehler weiterhin auftritt.
Teste die Zellen, indem du in eine Zelle gehst und die Eingabetaste drückst, um zu sehen, ob das Ergebnis der Formel zurückkehrt.

Häufige Fehler und Lösungen

Fehler: #WERT!
- Ursache: Dies geschieht oft, wenn die Formel auf einen falschen Datentyp zugreift.
- Lösung: Überprüfe, ob die verwendeten Werte in der Formel vom richtigen Typ sind. In unserem Beispiel müssen die Zellfarben korrekt definiert sein.
Fehler nach Sortieren
- Ursache: Nach dem Ausführen eines Sortier-Makros kann Excel den Bezug zur Farbenzaehlen-Funktion verlieren.
- Lösung: Verwende Application.Volatile in deiner Funktion, um sicherzustellen, dass die Berechnungen bei Bedarf aktualisiert werden.

Alternative Methoden

Wenn die oben genannten Schritte nicht helfen, kannst du auch folgende alternative Methoden ausprobieren:

Manuelles Aktualisieren: Du kannst die Zellen manuell durch Drücken von F2 und Enter aktualisieren, was jedoch zeitaufwendig ist.
Verwenden eines anderen Makros: Erstelle ein weiteres Makro, das alle Zellen in S1:WF2 durchläuft und sie aktualisiert. Ein Beispiel könnte so aussehen:
```
Sub AktualisiereZellen()
   Dim Zelle As Range
   For Each Zelle In Range("S1:WF2")
       Zelle.Value = Zelle.Value
   Next Zelle
End Sub
```

Praktische Beispiele

Hier ist ein praktisches Beispiel, wie du den Fehler "ein in der Formel verwendeter Wert ist vom falschen Datentyp" beheben kannst:

Beispiel für die Funktion:

Public Function Farbenzaehlen(ZellBereich As Range, lngColor As Long) As Long
   Application.Volatile
   Dim Zelle As Range
   Farbenzaehlen = 0
   For Each Zelle In ZellBereich
       If Zelle.Interior.Color = lngColor Then
           Farbenzaehlen = Farbenzaehlen + 1
       End If
   Next Zelle
End Function

Beispiel für das Sortieren:

Sub SortierenBeispiel()
   Range("A1:B10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub

Tipps für Profis

Code optimieren: Überlege, ob du die Anzahl der Berechnungen minimieren kannst, indem du nur die benötigten Zellen aktualisierst.
Verwendung von Named Ranges: Verwende benannte Bereiche, um die Lesbarkeit deiner Formeln zu erhöhen und mögliche Fehlerquellen zu reduzieren.
Regelmäßige Überprüfung: Überprüfe regelmäßig deine Makros, um sicherzustellen, dass sie mit den neuesten Excel-Versionen kompatibel sind.

FAQ: Häufige Fragen

1. Warum erhalte ich den Fehler "Ein in der Formel verwendeter Wert ist vom falschen Datentyp"? Dieser Fehler tritt auf, wenn eine Formel auf einen Wert zugreift, der nicht dem erwarteten Datentyp entspricht. Überprüfe die Eingabewerte und die verwendete Funktion.

2. Wie kann ich sicherstellen, dass die Farbenzaehlen-Funktion korrekt arbeitet? Füge Application.Volatile in die Funktion ein, um sicherzustellen, dass die Berechnung bei Änderungen im Arbeitsblatt aktualisiert wird.

Beliebteste Forumthreads (12 Monate)