'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

'Lösung des Königswegrätsels aus
'de.rec.denksport v. 28.12.2000
'mittels weniger Excelzeilen

'eventuelle Randzellen können den Wert -1 und
'gesperrte Zellen innerhalb des Bereiches
'muessen den Wert -1 enthalten.

'Selection waere beim Schachbrett der
'markierte Bereich A1:H8

Sub koenigswegraetselloesung()
Dim zelle As Range
  ActiveCell.Value = 1
  For Each zelle In Selection                         'beim Schachbrett A1:H8
  r = zelle.Row
  c = zelle.Column
  zelle.Interior.Color = 255
  If IsEmpty(zelle) Then zelle = 0
  If zelle.Value >= 0 Then
  a1 = 0: a2 = 0: a3 = 0
  On Error Resume Next                                'somit können Randzellen auch fehlen
  a1 = WorksheetFunction.Max(0, Cells(r, c - 1))      'addiere nur positive Werte
  a2 = WorksheetFunction.Max(0, Cells(r - 1, c - 1))  '
  a3 = WorksheetFunction.Max(0, Cells(r - 1, c))      '
  Cells(r, c) = Cells(r, c) + a1 + a2 + a3            'zum Wert in der Zielzelle
  End If
  Next
End Sub