PasteSpecial Fehler!

Bild

Betrifft: PasteSpecial Fehler!
von: marc
Geschrieben am: 15.04.2005 09:00:31
hallo zusammen,
bei Einsatz der PasteSpecial-Methode Fehlermeldung .
ich kann die Methode Paste nicht ausfuehren ?
If [B9] = "kw" Then
Worksheets("Tag").Activate
For Each c In Range("G5:G16")
If c.Value = "" Then c.Offset(0, 1).ClearContents
Next c
Range("C7:H16").Copy
Workbooks.Open ("C:\Gera\TB\Day_R.xls")
Worksheets("KW").Range("B65536").End(xlUp).Offset(1, 0).Activate
ActiveCell.PasteSpecial Paste:=xlValues
Range("I26").Activate
End If
marc....

Bild

Betrifft: AW: PasteSpecial Fehler!
von: Hajo_Zi
Geschrieben am: 15.04.2005 09:27:51
Hallo Marc,
in VBA kann zu 99% auf select, Activate verzichtet werden.
Ich habe jetzt Dein Beispiel nicht komplett nachgebaut. Also ohne Testung.
Option Explicit

Sub Test()
    Dim c As Range
    If [B9] = "kw" Then
        With Worksheets("Tag")
            For Each c In .Range("G5:G16")
                If c.Value = "" Then c.Offset(0, 1).ClearContents
            Next c
            Workbooks.Open ("C:\Gera\TB\Day_R.xls")
            .Range("C7:H16").Copy
            Worksheets("KW").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
        End With
    End If
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: PasteSpecial Fehler!
von: marc
Geschrieben am: 15.04.2005 09:48:53
hallo Hajo,
ich moechte mich bei Dir bedanken.
marc :o)
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formel bis zum Tabellenende automatisch kopieren"