Hallo...mal wieder ;-)
ich seh mal wieder nur gelbe Zeilen :-/
C13 bzw. Z13 sind Formelergebnisse und deren Werte sollen in ein anderes Blatt
kopiert werden. In diesem Fall links neben die erste freie Zelle der Spalte D bzw. in dieselbe Spalte und 24 Zeilen tiefer.
Range("C13").Copy
Sheets("Daten Summe").Select
[D:D].SpecialCells(xlBlanks).Cells(1).Offset(0, -1).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
und
Range("Z13").Copy
Sheets("Daten Summe").Select
[D:D].SpecialCells(xlBlanks).Cells(1).Offset(24, -1).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Habe auch schon mit rows.count etc. rumgekaspert, bekomme aber immer die Fehlermeldung Die activate bzw select Methode der Range-Objekt konnte nicht ausgeführt werden.
Wie bekomme ich diese Nachbarzellen ?
Gruß
Harald