Text in Zahlen umwandeln uns addieren

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich hoffe das dies möglich ist.
Ich möchte gerne in eine Zelle einer Tabelle ein „Kürzel“ eingeben,
z.B. FD1 oder S oder F oder SP3 usw., dann soll ein bestimmter Wert,
z.B 7,7 oder 7 oder 9 usw., in der Spalte AI addiert werden.
Habe die Mappe beigefügt:

http://www.hostarea.de/server-07/Juli-0fc9b46469.xls

Ich habe die Zellen in die die "Kürzel eingegeben werden gelb markiert,Range: („B6 : AF 93“). Die Spalte AI, in der dann die Werte einer Zeile addiert werden sollen habe ich rot markiert.
Die „Kürzel“ mit den dazugehörenden Werten habe ich rechts neben die Tabelle geschrieben.
In den obersten Zeilen habe ich mal ein Beispiel reingeschrieben:
3mal FD1= 3mal 7,7=23,1 - und 2mal SP3= 2mal 4 =8, ergibt 31,1.
Ich hoffe es ist so verständlich erklärt.
Wer kann mir dabei helfen?
Mit Dank im voraus.
Gruß Skaletti!

#2

Ich möchte gerne in eine Zelle einer Tabelle ein „Kürzel“
eingeben,
z.B. FD1 oder S oder F oder SP3 usw., dann soll ein bestimmter
Wert,
z.B 7,7 oder 7 oder 9 usw., in der Spalte AI addiert werden.

Hallo Skaletti,

in das Modul „Tabelle1“

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zei As Long, Spa As Long, Summe As Double
If Application.Intersect(Target, Range("B6:AF93")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Zei = 6 To 93
 Summe = 0
 For Spa = 2 To 32
 If Application.CountIf(Range("AM6:AM17"), Cells(Zei, Spa).Value) \> 0 Then
 Summe = Summe + Application.VLookup(Cells(Zei, Spa).Value, Range("AM6:AN17"), 2, 0)
 End If
 Next Spa
 Range("AI" & Zei).Value = IIf(Summe 0, Summe, "")
Next Zei
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,
Vielen Dank für deine schnelle Antwort, und dem fertigen Code.
Funzt wie gedacht, Prima. Hätte ich nicht hingekriegt.

Gruß Skaletti!