VBA falscher Bereich wird ausgewählt, wo Fehler?
29.06.2016 14:30:11
Zoe
ich möchte gerade über VBA erst ein diagramm und dann noch eine Tabelle in Word einfügen.
Klappt im großen und ganzen auch, aber irgendwie wählt es mir immer den falschen Tabellenbereich aus, er kopiert was ganz falsches, woran lieg das?
An der Stelle die ich fett gedruckt habe, stimmt was nicht.
Ich möchte das er in "Tabelle6 (2)" ab "AD1" anfäng (meiner Meinung nach Cells(1,30)) und wo er aufhören soll ist abhängig von zwei Werten in Zellen daneben.
Sub CPChart()
Dim wkb As Workbook
Dim wordApp As Object
Dim WordObj As Object
Dim WordDoc As Object
Set wkb = ActiveWorkbook
Sheets("Tabelle6 (2)").Unprotect ("abcde")
Sheets("Tabelle6 (2)").ChartObjects("EMA_Auswertung").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Set wordApp = CreateObject("word.application")
With wordApp
.Visible = True
.Documents.Add
.ActiveDocument.PageSetup.Orientation = 1
.Selection.Paste
'Größe des eingefügten Diagramm-Bildes anpassen
With .ActiveDocument.InlineShapes(1) 'evtl. .Shapes(1)
.LockAspectRatio = msoTrue
.Width = Application.CentimetersToPoints(26) 'Breite = 26 cm
End With
'Absatzschaltung einfügen
.Selection.TypeParagraph
'Seitenumbruch einfügen
.Selection.InsertBreak Type:=3 '3 = dwSectionBreakContinuous
.Selection.PageSetup.Orientation = 1
'Excel-Zellbereich kopieren und in Word als Tabelle einfügen
wkb.Sheets("Tabelle6 (2)").Range(Cells(1, 30), Cells(Sheets("Tabelle6 (2)"). _
Range("AB2").Value + 2, Application.RoundDown(wSheets("Tabelle6 (2)").Range("AA2").Value / 2, 0) _
+ 2)).Copy
.Selection.PasteSpecial Link:=True
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordDoc = Nothing
End With
Sheets("Tabelle6 (2)").Protect ("abcde")
End Sub
Is eine ziemlich Lange Zeile und ich weiss einfach nciht ob ich irgendwo einen Bezugsfehler habe?