Exakt und korrekt wäre:
1 2 3 | With ActiveSheet
zeilennummer = .Cells(.Rows.Count, 28). End (xlUp).Row
End With
|
(da alle Blätter jedoch die gleiche max. Anzahl an Zeilen haben, fällt der Fehler bei dir nicht auf)
Zu deinem Anliegen:
Nun möchte ich die ausgelesene Variable "wert" in die Spalte "G" mit der Zeilennummer "zeilennummer", die zuvor bestimmt wurde, einfügen.
Meinst du wirklich einen Wert einfügen (Insert Value), oder meinst du einen Zellwert (Value) zuweisen?
Es ist mir übrigens unklar wie nun der Wert mit dem Zeilenindex zusammengehört.
Grundstäzlich ist die addressierung kein Problem in Excel (es ist ehern immer ein logisches Problem, dass es zu lösen gilt).
Range oder Cells(rowIdx,columnIdx) genügt um aller Dinge Herr zu werden (= Zellen nach Wunsch und Bedarf zu addressieren).
Im einfachsten, von mir hineininterpretierten, Falle wäre das die Lösung:
1 | Sheets( "2015" ).Cells(zeilennummer, "G" ).Value = wert
|
PS: Warum arbeitest du einmal mit ActiveSheet und einmal mit Sheets("2015")?
(im übrigen wäre für letzteres Worksheets("2015") die exaktere Variante, da ein Sheet auch ein Diagrammblatt sein kann und diese bekanntlich nicht über Zellen verfügen -> Laufzeitfehlergefahr bei schludriger Hantierung)
Gruß
|