Excel-VBA: das schreiben der Formel in der aktuellen Auswahl

Will ich schreiben den aktuellen Monat auf Basis einer referenzierten Zelle in der aktuellen Auswahl. Das ist mein code, aber ich bekomme die Fehlermeldung: Objektvariable oder with-block variable nicht festgelegt. Ich weiß nicht, was das problem ist - jemand eine Ahnung?

Sub SelectionMonthNames()

Dim Currentrange As Range

For i = 1 To 3

    Currentrange = Selection.Address

    If i = 1 Then
        Currentrange.Formula = "=DATE(YEAR($B$5);MONTH($B$5);DAY($B$5))"
    Else
        Currentrange.Formula = "=DATE(YEAR($B$5);MONTH($B$5)+" & CStr(i - 1) & ";DAY($B$5))"
    End If

    Selection.Offset(0, 1).Select

Next i
End Sub
InformationsquelleAutor user366121 | 2011-08-25
  1. 2

    Versuchen 

    Set Currentrange = Selection.Address

    Statt

    Currentrange = Selection.Address

    EDIT:

    So, die endgültige version Ihrer makro sollte wie folgt Aussehen:

    Sub SelectionMonthNames()

Dim Currentrange As Range

For i = 1 To 3

Set Currentrange = Selection

If i = 1 Then
    Currentrange.Formula = "=DATE(YEAR($B$5),MONTH($B$5),DAY($B$5))"
Else
    Currentrange.Formula = "=DATE(YEAR($B$5),MONTH($B$5)+" & CStr(i - 1) &",DAY($B$5))"
End If

Selection.Offset(0, 1).Select

Next i
End Sub
    • +1 Range ist ein Objekt und erfordert, Setzen, im Gegensatz zu anderen Variablen.
    • Hi, jetzt hab ich ' Objekt erforderlich und es bricht an dieser Linie.
    • Okay, Auswahl.Adresse ist text, so verwenden Sie Auswahl.
    • Und auch, Sie verwendet ';' als Trennzeichen in der Formel und ich bin mir ziemlich sicher, dass Sie verwenden sollten ','
    InformationsquelleAutor Jandrejc
Schreibe einen Kommentar