VBA: Zellwert im Variablenbereich kopieren

Question

Im folgenden Code habe ich die schwierigste Zeit, eine bestimmte Zelle im Variablenbereich "rngCell" zu identifizieren. In der "If" -Anweisung möchte ich eine bestimmte Zelle in der Spalte oder Zeile, in der die rngCell (die aktive Zelle ist), anstelle des Werts von rngCell kopieren. Ich habe versucht, Offset zu verwenden, aber habe versagt. Beispiel: Wenn rngCell auf e42 steht, benötige ich möglicherweise einen Wert von e2 oder a42.

Vielen Dank.

Dim rngCell As Range 
Dim lngLstRow As Long 
Dim ws As Worksheet, resultsWS As Worksheet 

lngLstRow = ws.UsedRange.Rows.Count 
Worksheets("FileShares").Select 

j = 4 
p = 1 
q = 4 
g = 6 

Dim k&      
For k = 9 To 50 
With ws 
    For Each rngCell In .Range(.Cells(8, k), .Cells(lngLstRow, k)) 

     For i = LBound(maxKeywords) To UBound(maxKeywords) 
      If rngCell.Value = maxKeywords(i) And rngCell.Interior.ColorIndex = 3 Then 
       resultsWS.Cells(g, 2).Offset(j + p, 0) = rngCell.Value 

      g = g + 1 

      j = q + p - 5 'Used to start at row 8 and every row after 
      End If 
     Next i 
    Next rngCell 

End With 
Next k 

Answer 1

Wenn rngCell ist E42 dann:

rngCell.EntireRow.Cells(1) '>>A42 
rngCell.EntireColumn.Cells(2) '>>E2 

oder

ws.Cells(rngCell.Row, 1)  '>>A42 
ws.Cells(2, rngCell.Column) '>>E2