nächste "nicht-leere" Zelle in Matrix

Liebe Forumsmitglieder,
Ich habe das Problem, dass ich an verschiedenen Stellen innerhalb einer Matrix (hellgrün im Testfile) die nächstgelegene befüllte Stelle innerhalb der Matrix suche. Dabei darf die gefundene Zelle nie eine Zeilen- oder Spaltenüberschrift(blauer Hintergrund) sein und MUSS einen weißen Hintergrund haben. (auch zuvor befüllte grüne Zellen dürfen nicht gefunden werden)
Sobald diese Zelle gefunden wurde, sollten im Optimalfall die korrespondierenden Zeilen- und Spaltenüberschriften(blauer Hintergrund) übergeben werden.
Um das ganze zusätzlich kompliziert zu machen, ist die Matrixgröße ebenfalls völlig flexibel. Die befüllten Zellen sind immer woanders und die grünen Stellen ebenfalls.
Das heißt der Code muss zunächst die (variable) Matrix nach einer grünen Stelle durchsuchen und anschließend die nächstgelegene weiße befüllte Zelle finden.
Eventuell lassen sich auch Abstände für Schrittfolgen definieren, aber da liege ich weit über meinem mathematischen und VBA-technischen Niveau. Die genaue Abfragereihenfolge ist mir nicht allzu wichtig. Wichtig ist nur einen möglichst nahe gelegenen Wert zu finden.
Testfile:
https://www.herber.de/bbs/user/136928.xlsx
Ich hoffe, das war verständlich erklärt. Vielen Dank im Voraus für eure Hilfe und beste Grüße
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
probier mal folgenden Code, passend für deine Beispieldatei.
dort wo die farben zugewiesen werden, musst du jeweils eine Zelle angeben, die die passende Farbe hat,
Farbe1: die grünen Zellen
Farbe2: die weißen Zellen
diese Zellen können auch standardisierte Zellen außerhalb des Bereichs sein oder du gibst falls bekannt den RGB-Wert direkt an.
die Bereichsauswahl erfolgt über die Angabe der linken oberen Zelle, die Größenermittlung automatsich anhand der Ausdehnung der Überschirften.
das Ergebnis wird unterhalb der Tabelle ausgebeben, in der ersten Spalte die Koordinaten der grünen Zellen, in der zweiten Spalte die Koordinaten mit den Zellen mit dem geringsten Abstand (Schrittweite mit Cursortasten, bei gleichem Abstand werden beide Zellen angegeben.

Sub test()
Dim Bereich As Range
Dim Zelle1 As Range, Zelle2 As Range
Dim K1 As String, K2 As String
Dim Farbe1 As Long, Farbe2 As Long
Dim Ab As Long
Dim Min As Long
Dim zErg As Long
Dim erg As String
Farbe1 = Range("B2").Interior.Color
Farbe2 = Range("A1").Interior.Color
Set Bereich = Cells(1, 1).CurrentRegion
zErg = Bereich.Row + Bereich.Rows.Count + 2
For Each Zelle1 In Bereich
If Zelle1.Interior.Color = Farbe1 Then
zErg = zErg + 1
Cells(zErg, Bereich.Column) = Intersect(Bereich.Rows(1), Zelle1.EntireColumn) & _
"\" & Intersect(Bereich.Columns(1), Zelle1.EntireRow)
Min = 9 ^ 9
For Each Zelle2 In Bereich.SpecialCells(xlCellTypeConstants)
If Zelle2.Row  Bereich.Row And Zelle2.Column  Bereich.Column Then
If Zelle2.Interior.Color = Farbe2 Then
Ab = Abs(Zelle1.Row - Zelle2.Row) + Abs(Zelle1.Column - Zelle2.Column)
If Ab

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

nächste "nicht-leere" Zelle in Matrix

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nächste "nicht-leere" Zelle in Matrix

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread