Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PasteSpecial Fehler!

PasteSpecial Fehler!
15.04.2005 09:00:31
marc
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....

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PasteSpecial Fehler!
15.04.2005 09:27:51
Hajo_Zi
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.


Anzeige
AW: PasteSpecial Fehler!
15.04.2005 09:48:53
marc
hallo Hajo,
ich moechte mich bei Dir bedanken.
marc :o)

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige