✔ Zellenwert fuer in String speichern

[Lex219]

Hi,

ich habe ein tabelle folgender Art von unbestimmter laenge

3Mabc 456
3Mbge 157
3Mdkl 278
5Msdf 457
V23gg 456
...

Ich moechte jetzt alles Zahlen der zweiten spalte summieren wenn sie vom gleichen typ (sprich 3M..., 5M..., ... sind)

Das muesste ja eigentlich in der Form:

Sheets(1).Cells(2, 6).Value = 0

For i = 2 To 9000
If InStr(Sheets(1).Cells(i, 2).Value, "3M") > 0 Then
Sheets(1).Cells(2, 6).Value = Sheets(1).Cells(2, 6).Value + Sheets(1).Cells(i, 2).Value
End If
Next i

Aber irgendwie geht es nicht.Ich denke es liegt an InStr(Sheets(1).Cells(i, 2).Value, "3M") ? Habt ihr ne Idee?

Danke Gruss

 

[DrSoong]

Die Strings ala 3Mabc stehen doch in der ersten Spalte (die Werte in der zweiten), also müsste die Suchzeile so lauten:

If InStr(Sheets(1).Cells(i, 1).Value, "3M") > 0 Then

Wenns nicht so ist (3Mabc 456 ist der Inhalt der Spalte, String und Wert sind nicht in verschiedenen Spalten), dann müsstest du den Inhalt am Leerzeichen trennen.


Der Doc!