VBA: Speichern des Werts auf variable

Sub test() '' test Makro '

'
Dim aRange As Range
Dim i As Integer

Set aRange = Range("A1:A255")

Range("A1").Select
For i = 1 To aRange.Count - 1

    If InStr(ActiveCell.Value, "Last name") Then
        Call CopyContents
    End If
    ActiveCell.Offset(1, 0).Select



Next i

End Sub

Sub CopyContents()
Dim Als Range currentRange
Dim genderAndDiscipline Als String

Set currentRange = Range(ActiveCell.Address)


'get the gender and dicipline
Set genderAndDiscipline = ActiveCell.Offset(-1, 0).Value
'genderAndDiscipline = genderAndDiscipline.Split(" ")

End Sub

Hallo zusammen, ich bin versucht zu speichern, der Wert in einer Zelle in einer variable. Aber irgendwie ist es immer wieder geben mee ein compile-Fehler. "Objekt erforderlich"

Meiner Meinung nach ich sage die variable Aspekt, den string und die Zelle ist, die eine Zeichenkette enthalten, wie der debugger sagt.

Könntet Ihr mir helfen?

Den currentRange ist 'A7' hier die Zelle oben ist, mit einer Zeichenfolge mit '200m Männer'

Der Fehler tritt auf beim
Set genderAndDiscipline = ActiveCell.Offset(-1, 0).Value

  • Wo tritt der Fehler auf?
  • Bearbeitet meine post.
  • Versuchen Sie, die Set Schlüsselwort aus dieser Zeile
InformationsquelleAutor HerrWalter | 2013-05-28
Schreibe einen Kommentar