VBA/Excel So speichern Sie ActiveCell als Objekt

Question

Ich muss Login-Text aus einer Liste in Excel erstellen. Ich probiere mich mit Makro und schreibe ein kleines Skript. Grundsätzlich habe ich 2 Zellen nebeneinander. Der erste erhält einen SSH-Schlüsselnamen und der zweite die Passphrase. Dieser 2-Wert hängt vom Betriebssystem der Maschine ab, das in einem anderen Feld angegeben ist. Schließlich habe ich eine Tabelle mit dem Betriebssystemnamen und dem SSH-Schlüssel neben der Passphrase.

das, was i schrieb:

haben

Function FindKey(FirstCell As Range) As String 
' 
' FindKey Macro 
' Find the ssh key in function of the OS 
' 
Dim Find As Boolean 
Dim Cell As Range 
Dim OS As String 


Cell = ActiveCell.Address 
ActiveCell.Offset(0, 4).Value = OS 
Find = False 
While Not Find 
    ActiveCell = FirstCell.Address 
    If ActiveCell.Value = OS Then 
     FindKey = ActiveCell.Offset(0, 1).Value 
     Cell.Offset(0, 1).Value = ActiveCell.Offset(0, 2).Value 
     Cell.Select 
     Find = True 
    Else 
     ActiveCell.Offset(1, 0).Select 
     If IsEmpty(ActiveCell) Then 
      Cell.Select 
      FindKey = CVErr(xlErrNull) 
      Find = True 
     End If 
    End If 

Wend 
' 
End Function 

ich wirklich keine Ahnung, wie ich das schreiben nehme ich. Kann ich die Adresse einer Zelle nur in einer Variablen speichern? kann ich es als ein Objekt verwenden?

Vielen Dank für Ihre Zeit und haben einen schönen Tag

Answer 1

dim yourCell as Range 
set yourCell = ActiveCell 

und

set yourCell = FirstCell 

Sie müssen das Schlüsselwort Satz verwenden, wenn eine Objektreferenz