Ich möchte den Wert aus einer Zelle kopieren und nicht die Formel. In der Zelle "B1" soll der Inhalt der Zelle "A1" stehen und nicht die Summenformel.
Hier ein Beispiel:
Spoiler anzeigen
#include "Excel.au3"
$oExcel = _ExcelBookNew(1) ;Create new book, make it visible
[/autoit] [autoit][/autoit] [autoit]; Werte eintragen und Zellen farbig markieren
For $i = 2 To 56
_ExcelWriteCell($oExcel, "1234", $i-1)
$oExcel.Cells($i, 1).Interior.ColorIndex = $i
Next
_ExcelWriteCell($oExcel, "=Summe(A2:A4)", 1)
; Fenster fixieren
$oExcel.Activesheet.Range("A2").Select
$oExcel.ActiveWindow.FreezePanes = True
; Bereich kopieren
[/autoit] [autoit][/autoit] [autoit];~ $oExcel.ActiveSheet.Range("A1").CurrentRegion.SpecialCells('xlCellTypeVisible').Copy
$oExcel.ActiveSheet.Range("A1:A3").Copy
$oExcel.ActiveSheet.Range("B1").PasteSpecial('xlPasteValues')
$oExcel.CutCopyMode = False
; === letzte Zeile Danke BugFix
ConsoleWrite('Anzahl Zeilen: ' & $oExcel.ActiveSheet.UsedRange.Rows.Count & @CRLF)
; === letzte Spalte
ConsoleWrite('Anzahl Spalten: ' & $oExcel.ActiveSheet.UsedRange.Columns.Count & @CRLF)
;~ _ExcelBookSaveAs($oExcel, @ScriptDir & "\testTest.xls", "xls", 0, 1)
MsgBox(0, "Z=" & $oExcel.ActiveSheet.UsedRange.Rows.Count & " S=" & $oExcel.ActiveSheet.UsedRange.Columns.Count, "ich habe fertig!")
_ExcelBookClose($oExcel)
Gruß Paule