Die Auswahl einer Zelle mit VBA in excel

Ich versuche, wählen Sie eine Zelle in excel mit vba. Ich möchte in der Lage sein zu verwenden, um Variablen(i & e) auswählen einer Zelle. Wo i = 3 und e = 13 ich möchte in der Lage sein, um

ActiveCell(e, i).Activate

und wählen Sie die Zelle C13.

ActiveCell(e, i).Activate

funktioniert aber nur, wenn die ursprünglich aktive Zelle ist A1. Jede Hilfe wäre sehr geschätzt werden!

Herzlich willkommen auf StackOverflow. Eine einfache Suche hier von "vba excel markieren Sie die Zelle" soll sich buchstäblich Dutzende von Antworten auf diese Frage. Bitte zumindest versuchen eine Lösung zu finden, sich vor dem posten einer Frage hier, wie die Chancen Recht gut sind, hat jemand vorher gefragt und bekommen eine Antwort. Danke.
Blick in die R1C1-syntax wenn Sie möchten, um auf Spalten verweisen, die durch Ihren index.
Werfen Sie einen Blick auf diese: support.microsoft.com/kb/291308
Dank Emmad! Genau das, was ich suchte. Ken - habe ich die Suche und fand anderes info, aber nicht genau das, was ich suchte.
Dies ist, weil ActiveCell buchstäblich gibt eine Range Objekt, das für die aktive Zelle im aktiven Fenster. So ActiveCell(e,i) ist im Grunde gleich ActiveCell.Offset(e-1,i-1). Wenn Ihr orginale aktive Zelle ist A1 nicht, natürlich wird sich der code beziehen sich auf die falsche Zelle

InformationsquelleAutor samuraiY | 2013-09-26

Ich Kommentare in den code, so sollte es sein, wirklich einfach zu verstehen.

Führen Sie den code unten erste

Sub Main()

    Dim i As Long ' row variable
    Dim e As Long ' column variable

    i = 3 ' row 3
    e = 13 ' column 13 ("M")

    ' this will put: Cells(3,13) in Range "M3"
    Cells(i, e) = "Cells(" & i & ", " & e & ")"


    ' if you want to offset the current active cell then
    ' use Offset(x, y)

    '  use negative x to offset up
    Cells(i, e).Offset(-1, 0) = "1 up"

    '  use positive x to offset down
    Cells(i, e).Offset(1, 0) = "1 down"

    '  use negative y to offset left
    Cells(i, e).Offset(0, -1) = "1 left"

    '  use positive y to offset right
    Cells(i, e).Offset(0, 1) = "1 right"


    ' same principles apply when using range object
    Dim r As Range
    Set r = Cells(i, e)

    r.Offset(-2, 0) = "2 up"
    r.Offset(2, 0) = "2 down"
    r.Offset(0, -2) = "2 left"
    r.Offset(0, 2) = "2 right"

    Columns.AutoFit
End Sub