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!
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
Hallo Reinhard,
Vielen Dank für deine schnelle Antwort, und dem fertigen Code.
Funzt wie gedacht, Prima. Hätte ich nicht hingekriegt.
Gruß Skaletti!