.copy kopiert nicht ?
24.10.2012 14:43:29
Fettertiger
es gibt so Momente da verstehe ich einfach nix mehr. Offensichtlich ist jetzt wieder so ein "Brett-vorm-Kopf" Zeitpunkt gekommen.
Mit dem Pasteinword macro kopiere ich kleine Tabellen von Excel nach Word. Das "echte" Macro is deutlich länger, da verschiedenste Daten an verschiedene Bookmarks gepastet werden. Für alle Bookmarks funktioniert das auch einwandfrei, aber komischerweise funktioniert es bei dem "XYZ" Bookmark bei vielen Usern (aber nicht bei allen!) nicht. Statt dem Tabellenbereich B5-g207 wird entweder nix kopiert (die Zwischenablage ist also wirklich leer, denn auch ein "manueller Paste" geht nicht, bzw es wird eine leere Tabelle kopiert. Ich habe schon alles mögliche probiert, von Screen updating vor dem Copy, bis hin die tbl_DG sichtbar zu machen. Wo stehe ich auf dem Schlauch?
Sub PasteInWord()
Application.CutCopyMode = False
doc.Bookmarks("XYZ").Select
If Err.Number = 0 Then
Application.Calculate
tbl_DG.cmdHideEmpty
tbl_DG.Range("B5:g207").Copy
With doc.Windows(1)
.Selection.PasteSpecial Placement:=wdInLine
End With
End If
End Sub Sub cmdHideEmpty()
Dim fSU As Boolean
fSU = Application.ScreenUpdating
Application.ScreenUpdating = False
prepareRange tbl_DG.Range("B9:g206"), 2
Application.ScreenUpdating = fSU
End Sub
Public Sub prepareRange(rng As Excel.Range, Optional intCol As Integer = 1)
'versteckt alle Zeilen mit leeren Zellen im Bereich
Dim rng1 As Excel.Range
For Each rng1 In rng.Rows
If Len(rng1.Cells(1, intCol)) = 0 Then
rng1.EntireRow.Hidden = True
Else
rng1.EntireRow.Hidden = False
End If
Next
End Sub
Gruss
Theo