VBA: Objekt erforderlich?
Hallo allerseits.
Ich scheitere mit einer Fehlermeldung die beim Debuggen auftaucht:
"OBJEKT ERFORDERLICH"
bei der Zuweisung in Zeile 8 [AktiveSheet ......]
Es soll eine Spalte (ziel_splte=14) von 1 bis Zeile (letzt_zle=58) mit einen Zeichen (delte_kez="X") gefüllt werden.
Ich habe bereits diese Zeile mit Set und mit .Value ergänzt gehabt, aber immer dieselbe Fehlermeldung bekommen.
' Zielspalte mit "X" füllen
ziel_splt = Worksheets("Statistik").Cells(15, 2)
letzt_zle = Worksheets("Statistik").Cells(20, 2)
delte_kez = Worksheets("Statistik").Cells(25, 2)
For I = 1 To letzt_zle
AktiveSheet.Cells(I, ziel_splt) = delte_kez ' Zeile 8
Next I
Ich frage mich, welches Objekt hier fehlt?
Aber vielleicht ist es nur eine Kleinigkeit, die ich mit und ohne Brille mangels Erfahrung nur nicht erkenne!
Vielen Dank für eure Hilfe!
-Hermann-
3 Antworten
Hallo, es heißt ActiveSheet und nicht AktiveSheet
Hallo Hermann, keine Sorge, ich hab auch eine Weile gebraucht :)
Leider ist nicht sichtbar wie deine Variblen deklariert sind.
"Worksheets("Statistik").Cells(25, 2)" ist zunächst mal ein "RANGE" Objekt.
Andere Antworten sind hier bereits hilfreich und haben die ".Value Ergänzung.
Auch auf die korrekte Rechtschreibung des Objektes achten.
Cells sind Objekte. Wenn Du nur Werte übertragen willst und nicht gleich ganze Zellen im Sinne von Objekten mit Format etc., dann schreibe hinter Cells(x,y) immer noch value, also
' Zielspalte mit "X" füllen
ziel_splt = Worksheets("Statistik").Cells(15, 2).value
letzt_zle = Worksheets("Statistik").Cells(20, 2).value
delte_kez = Worksheets("Statistik").Cells(25, 2).value
For I = 1 To letzt_zle
AktiveSheet.Cells(I, ziel_splt).value = delte_kez
Next I
Hallo nobytree2
Leider hat das keinen Effekt. Die Fehlermeldung erscheint immer noch genau so
;-(
-Hermann-
Hallo Hannes!
Vielen Dank. Das sind die Fehler auf die (Her-)mann stundenlang schauen kann, ohne dass ich sie sehe!
DANKE!
-H-