Zellen Position einer Variable zuweisen

Hallo Excel-Tüftler,
ich habe eine wahrscheinlich recht simple Frage, welche schon wieder so simpel ist, dass ich über Google keine Antwort auf meine Frage finde und leider hängt mein
Konstrukt in VBA davon ab.
Ich habe ein Workbook in welchem ich von F292 bis Q292 überprüfen möchte, ob die jeweilige rechte Zelle der linken entspricht, wenn nicht,
soll der Wert aus der jeweiligen linken Zelle in die rechte übertragen werden.
Problem: Ich kann nicht die Position, also beispielsweise "G292" als Variable definieren, sondern es wird immer der Wert in dieser Zelle
übernommen (Value) zum Beipsiel der Wert "13". Das ist für meine Schleife jedoch nicht geeignet, da der VBA Code ja automatisch immer einen nach rechts rücken soll,
um zu überprüfen, ob der Wert mit dem aus der vorherhigen Zelle übereinstimmt.
Mein Code bis jetzt:

Sub Check()
Worksheets("Uebersicht").Activate
Start = Range("F292")
Ende = Range("P292")
Dim Cache As Integer
For i = Start To Ende
If i + 1  i Then   ' Hier nimmt er leider nicht die Zellenposition, sondern den Wert in der  _
Zelle
Position = i + 1
Cache = i
Position = Cache
End If
Next
End Sub

Wie programmiere ich ein, dass Excel die Zellenposition zu der Variable zuweist und nicht den Wert?
Wie kann ich mien bisheriges Konstrukt umstellen, damit es tut was ich will?
Beispiel:
Zelle F292 hat den Wert 13
Zelle G292 hat den Wert 14
Wenn F292 G292 dann
G292 = F292
Und dann zur nächsten einen weiter:
Wenn G292 H292 dann
H292 = G292
usw.
Ich hoffe, jemand weiß Rat.
Grüße,
Simo7

Hallo Simo,
Erst war es der Bereich von Spalte F bis Spalte Q, im Beispiel ist es dann der Bereich von Spalte E bis P.
Und jetzt nochmals!!!
Du brauchst keine Schleife über die einzelnen Spalten, da du ganz einfach den Wert aus der Spalte E in die restlichen Spalten überträgst und dazu ist keine Schleife notwendig.
Hier jetzt mal ein Makro, das über alle Zeilen deiner Beispieldatei läuft und jeweils die Werte aus E in die Spalten bis P übernimmt. Weil du ja unbedingt eine Schleife haben wolltest.

Public Sub Wert_übertragen()
Dim loLetzte As Long
Dim raBereich As Range
Dim raZelle As Range
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereich = .Range(.Cells(1, 5), .Cells(loLetzte, 5))
For Each raZelle In raBereich
raZelle.Resize(, 11).Value = raZelle.Value
Next raZelle
End With
Set raBereich = Nothing
End Sub

Keine Ahnung, weshalb du die ganze Zeit mit deiner Schleife herum machst.
Ich bin dann jetzt raus, weil probiert hast du meine seitherigen Vorschläge wohl nicht.
Gruß Werner

Zellen Position einer Variable zuweisen

Forumthread: Zellen Position einer Variable zuweisen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial