Button

Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As String
Dim i As Integer
Dim S As Long
Dim Summe As Long
Dim leftCol As Long, tarCol As Long
Select Case Target.Address(0, 0)
Case "A10", "A11", "A12", "A13", "A14", "A15", "A16", "A17", "A18"
With ActiveSheet
For i = 1 To Len(.Cells(Target.Row, 1))
B = Mid(.Cells(Target.Row, 1), i, 1)
For S = 1 To 50
If UCase(B) = UCase(.Cells(2, S)) Then
Summe = Summe + .Cells(3, S)
Exit For
End If
Next S
For S = 1 To 11
If UCase(B) = UCase(.Cells(5, S)) Then Summe = Summe + .Cells(6, S)
Next S
Next i
leftCol = .Cells(Target.Row, 254).End(xlToLeft).Column
'Definiere hier ab welcher Spalte geschrieben werden soll
If leftCol < 5 Then
tarCol = 2
Else
tarCol = leftCol - 3
End If
'... oder hier ab Spalte 2 das Ergebnis schreiben
If leftCol < 2 Then
'   tarCol = 2
Else
tarCol = leftCol + 1
End If
.Cells(Target.Row, tarCol) = Summe
End With
End Select
End Sub