Kurzsichtiger Käfer Frisst Integer Zahlen !!!

[lisa.f.1988]

1. Hallo Leute .... tierisches problem!!!
   Ein Lurzsichtiger Käfer namens ActiveCekk krabbelt über das Arbeitsblatt und frisst Integerzahlen.Dabei bewegt er sich immer zu demjenigen seiner vier Nachbarfelder, auf dem die höchste Zahl steht. Ohne Futter bleibt er stehen!!!
2. -
   
   
   Ich hab das programm schriftlich probiert zu lösen und muss es jetzt verbessern!!!
   Kann jemand mir weiterhelfen und es so ändern das es mit wenig verändernung richtig läuft ?
   Ich muss das programm hier UMSCHREIBEN !!! nicht ganz neu schreiben !!!
   auf basis des folgenden programms umschreiben und die aufgabenstellung erfüllen!
   
   
   Option Explicit
   Sub ActiveCell() 'Beginn und Name des Programms
   
   Dim a As Integer, b As Integer, c As Integer, d As Integer 'Deklarierung
   Dim x As Integer, x2 As Integer, x3 As Integer, x4 As Integer
   
   a = Worksheets("Tabelle1").Cells(1, x) 'Angabe von Bereich Arbeitsblatt
   b = Worksheets("Tabelle1").Cells(1, x2) '
   c = Worksheets("Tabelle1").Cells(1, x3) '
   d = Worksheets("Tabelle1").Cells(1, x4) '
   
   Do ' Do Loop Schleife Beginnt
   
   If a > b And b > c And a > d Then 'Beginn der Schleife
   a = Cells(1, x).Select 'Löschen von Zelle wenn Bedingung gegeben
   Else
   If b > a And b > c And b > d Then
   b = Cells(1, x2).Select 'Löschen von Zelle wenn Bedingung gegeben
   Else
   If c > a And c > b And c > d Then
   c = Cells(1, x).Select 'Löschen von Zelle wenn Bedingung geg.
   Else
   If d > a And d > b And d > c Then
   d = Cells(1, x).Select 'Löschen von Zelle wenn Bedingung geg.
   End If
   End If
   End If
   End If
   Loop Until a And b And c And d = "" 'solange a,b,c,d integerzahl hat läuft das Programm weiter Ende der Schleife
   
   
   End Sub 'Ende des Programms
   
   
   
   Habe die Aufgabe ein wenig falsch verstanden !!! habe es so angenommen das die nachbarfelder jeweils rechts neben dem ursprungswert sind!!!
   also muss ich das auch ändern !!! befehl für rechts,links,hoch und runter ist glaube ich .....
   'ActiveCell.Offset(-1) hoch
   'ActiveCell.Offset(1) runter
   'ActiveCell.Offset(,-1) links
   'ActiveCell.Offset(,1) rechts
   
   brauch schnelle hilfe !!! bitte Smile

[Christian Marquardt]

Der Fragesteller hat hier im Forum kein Interesse

http://www.office-loesung.de/ftopic380636_0_0_asc.php