VBA: Speichern des Werts auf variable
Sub test() '' test Makro '
'
Dim aRange As Range
Dim i As IntegerSet 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 StringSet 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
Du musst angemeldet sein, um einen Kommentar abzugeben.
genderAndDiscipline
ist deklariert als string.Den richtigen Weg zu weisen, um eine Zeichenfolge mit
Let
stattSet
(die ist für die Zuordnung der Objekte).Um loszuwerden, die Fehler, entfernen Sie das Wort
Set
von der Leitung den Fehler verursacht, oder ersetzenSet
mitLet
.Ist, verwenden Sie eine der beiden folgenden alternativen (äquivalent):
oder
Den
Set
Schlüsselwort funktioniert mitObjects
. Da Sie nur um den Wert zu speichern, lassen Sie diese aus. d.h.:zu:
Entfernen
Set
ausSet genderAndDiscipline = ActiveCell.Offset(-1, 0).Value