Zelle finden
01.12.2018 13:01:56
Henner
Ich habe eine Tabelle, in der in Spalte A untereinander ganze Zahlen und in Zeile 1 nebeneinander Begriffe stehen. In jeder Zelle befindet sich nur 1 Wert und jeder Wert ist einmalig. Zelle A1 ist leer. Der Aufbau ist also sehr ähnlich wie bei "Schiffe versenken" (Koordinaten sind Zahlen und Buchstaben), darum geht es aber nicht.
Ich möchte nun, dass ich dem Code eine Zahl und ein Begriff angebe, in die Zelle mit den Koordinaten (bspw. 77 und EE) soll dann ein X geschrieben wird. Befindet sich in der Zelle bereits ein "X", soll ein weiteres "X" dahinter geschrieben werden.
Folgender Code von mir führt genau das aus was ich möchte, meine Frage ist nur ob sich diese Anforderung "sauberer" (schneller/besser) realisieren lässt.
Besten Dank für Eure Vorschläge, Gruss Henner
Option Explicit
Sub SucheZelle()
Dim iLCol As Integer
Dim lLRow As Long
Dim ic As Integer
Dim lr As Long
iLCol = Sheets(1).Cells(1, 256).End(xlToLeft).Column
lLRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For lr = 1 To lLRow
If Sheets(1).Cells(lr, 1).Value = 77 Then Exit For
Next
For ic = 1 To iLCol
If Sheets(1).Cells(1, ic).Value = "EE" Then Exit For
Next
Sheets(1).Cells(lr, ic).Value = Sheets(1).Cells(lr, ic).Value & "X"
End Sub
Anzeige