Hallo zusammen
habe ein Problem mit der Variablenzuweisung str to cur.
bei dieser Zeile bringt er eine Typenunveträglichkeit:
curMonMarktmiete = strTextMarktmiete
obwohl ich zuvor alle Textmerkmale replaced habe.
Habe es dann mit curMonMarktmiete = CCur (strTextMarktmiete) versucht - geht aber auch nicht.
Kann mir da jemand weiterhelfen?
Besten Dank,
Thomas
_________________________________________________________
' Marktmiete auslesen, Perioden- und Jahreswert berechnen und abfüllen
For iCol = 1 To iLastCol
If theRange.Cells(1, iCol).Value = strColName Then
For iRow = 2 To theRange.Rows.Count
If theRange.Cells(iRow, iCol).Value "" Then
strTextMarktmiete = theRange.Cells(iRow, iCol).Value
' "Text-Merkmale" entfernen
strTextMarktmiete = Replace(strTextMarktmiete, "'", "")
strTextMarktmiete = Replace(strTextMarktmiete, ",", "")
' Werte berechnen
curMonMarktmiete = strTextMarktmiete
curJhrMarktmiete = curMonMarktmiete * 12
curPerMarktmiete = curMonMarktmiete * lngAnzahlMonate
End If