title image


Smiley SummeWenn-Funktion per VBA in eine Zelle einbringen
Hallo Excel-Experten,

die letzte Zeile folgenden VBA-Code produziert mir beim Ausführen die Fehlermeldung "Laufzeitfehler 13 Typen unverträglich".



LetzteZeile = ActiveSheet.UsedRange.Rows.Count

AuswertungsZeile = LetzteZeile + 2



ActiveSheet.Cells(AuswertungsZeile, 2).Value = "Heimpflege Volljährige"



Set Bereich = ActiveSheet.Range(Cells(3, 2), Cells(LetzteZeile, 2))

Set Suchkriterium = ActiveSheet.Cells(AuswertungsZeile, 2)

Set Summe_Bereich = ActiveSheet.Range(Cells(3, 3), Cells(LetzteZeile, 3))

ActiveSheet.Cells(AuswertungsZeile, 3).Select





ActiveSheet.Cells(AuswertungsZeile, 3).Formula = "=SUMIF(" & Bereich & ";" & Suchkriterium & ";" & Summe_Bereich & ")"



Kann mir jemand sagen, welchen VBA-Fehler ich da eingebaut habe?

Bereich, Suchkriterium und Summe_Bereich sind Variablen vom Typ Range.



Bin für jeden Tipp dankbar.

Gruß aus dem Bergischen Land

Toni





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: