Zellen vergleichen

Hallo zusammen!

Mein bisher programmiertes Makro:
Do While ActiveCell.Value „“
Zwischenspeicher = ActiveCell.Value
Zahl = 0
Sheets(„Zahlenquelle“).Select
Range(„A2“).Select
Do While ActiveCell.Text „“
If ActiveCell.Value = Zwischenspeicher Then
Zahl = Zahl + ActiveCell.Range(„A1“).Offset(0, 4).Value
End If
ActiveCell.Range(„A1“).Offset(1, 0).Select
Loop
Sheets(„liste“).Select
ActiveCell.Range(„A1“).Offset(0, 4).Formula = Zahl
ActiveCell.Range(„A1“).Offset(1, 0).Select
Loop

Das Problem ist, häufig wird der Zwischenspeicher anders geschrieben z. B. ten und Ten; das Makro meint somit also, daß es nicht gleich ist und erfaßt es nicht.

Frage: Ist es möglich Groß- und Kleinschreibung zu ignorieren?

Gruß Thorsten

Hi Thorsten,

If ucase(ActiveCell.Value) = ucase(Zwischenspeicher) Then

Gruß
Reinhard

Hallo Reinhard,

danke, genau die Funktion die brauchte!!

Gruß
Thorsten