Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem Pastespecial-Methode

Problem Pastespecial-Methode
01.12.2002 17:08:34
Ralf
Hallo und guten Abend
Kann mir von euch jemand sagen warum beim ausführen dieses Makros eine Fehlermeldung 1004 ( Die Pastespecial-Methode des Range - objektes kann nicht ausgeführt werden ) Dies ist nur ein Außschnitt aus dem Makro.
Der Fehler erscheint in der 8 Zeile von unten
Next i
Worksheets("1").Activate
Worksheets("1").Shapes("autoform 81").Delete
Worksheets("1").Shapes("autoform 82").Delete
Range("h51").Formula = "=Sum(H19:H50)"
Range("H51").Borders.ColorIndex = 0
Range("I51").Borders.ColorIndex = 0
Range("f51").Formula = "Übertrag:"
With Selection
.Font.FontStyle = "fett"
.HorizontalAlignment = xlRight
End With

ActiveSheet.Name = Range("i19").Value
Set NewSheet = Sheets.Add(Type:="Folgeseiten.xls")

NewSheet.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Range("h5").Value = Sheets(Sheets.Count - 1).Range("i19").Value + 1
Range("H9").FormulaR1C1 = "=" & Sheets(Sheets.Count - 1).Name & "!R[42]C"
With Worksheets("2")
For i = 9 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
ActiveSheet.Name = Range("h5").Value
Exit Sub
End If
Next i

End With
End With

End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Problem Pastespecial-Methode
01.12.2002 17:37:54
N. Davidheimann
Hallo Ralf,

pastespecial ohne copy ??

Gruß
norbert

Re: Problem Pastespecial-Methode
01.12.2002 18:05:44
Ralf
Ich versteh nicht ganz was du willst hier ist das ganze makro villeicht hilt das ein bischen mein Problem zu lösen

Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If

With Worksheets("1")
For i = 23 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial Paste:=xlValues
Exit Sub
End If
Next i
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If
Worksheets("1").Activate
Worksheets("1").Shapes("autoform 81").Delete
Worksheets("1").Shapes("autoform 82").Delete
Range("h51").Formula = "=Sum(H19:H50)"
Range("H51").Borders.ColorIndex = 0
Range("I51").Borders.ColorIndex = 0
Range("f51").Formula = "Übertrag:"
With Selection
.Font.FontStyle = "fett"
.HorizontalAlignment = xlRight
End With
ActiveSheet.Name = Range("i19").Value
Set NewSheet = Sheets.Add(Type:="Folgeseiten.xls")

NewSheet.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Range("h5").Value = Sheets(Sheets.Count - 1).Range("i19").Value + 1
Range("H9").FormulaR1C1 = "=" & Sheets(Sheets.Count - 1).Name & "!R[42]C"
With Worksheets("2")
For i = 9 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
ActiveSheet.Name = Range("h5").Value
Exit Sub
End If
Next i
End With
End With

End Sub

Anzeige
Re: Problem Pastespecial-Methode
01.12.2002 19:36:11
Ramses
Hallo Ralf,

du musst dem Makro schon sagen was es einfügen soll.
Nur mit PasteSpecial ist leider nicht getan :-)


Sub dem()
With Worksheets("2")
    For i = 9 To 50
        If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
            'Formeln und Zahlenformate
            .Cells(i + 1, 3).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
            '---
            'Nur Werte
            '.Cells(i + 1, 3).PasteSpecialPaste:=xlPasteValues
            '---
            'Nur Formeln
            '.Cells(i + 1, 3).PasteSpecial Paste:=xlPasteFormulas
            '---
            'Nur Formate
            '.Cells(i + 1, 3).PasteSpecial Paste:=xlPasteFormats
            ActiveSheet.Name = Range("H5").Value
            Exit Sub
        End If
    Next i
End With
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Re: Problem Pastespecial-Methode
01.12.2002 20:09:53
klappt immer noch nicht
So sieht es jetzt aus und es kommt immer noch die Fehlermeldung


Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If

With Worksheets("1")
For i = 23 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
Next i
Worksheets("1").Activate
Worksheets("1").Shapes("autoform 81").Delete
Worksheets("1").Shapes("autoform 82").Delete
Range("h51").Formula = "=Sum(H19:H50)"
Range("H51").Borders.ColorIndex = 0
Range("I51").Borders.ColorIndex = 0
Range("f51").Formula = "Übertrag:"
With Selection
.Font.FontStyle = "fett"
.HorizontalAlignment = xlRight
End With

ActiveSheet.Name = Range("i19").Value
Set NewSheet = Sheets.Add(Type:="Folgeseiten.xls")


NewSheet.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Range("h5").Value = Sheets(Sheets.Count - 1).Range("i19").Value + 1
Range("H9").FormulaR1C1 = "=" & Sheets(Sheets.Count - 1).Name & "!R[42]C"
With Worksheets("2")
For i = 9 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then

.Cells(i + 1, 3).PasteSpecial

ActiveSheet.Name = Range("H5").Value
Exit Sub
End If
Next i
End With


End With

End Sub

Anzeige
Re: Problem Pastespecial-Methode
01.12.2002 20:30:59
N. Davidheimann
Hallo,

kann ja sein, daß ich falsch liege aber (ohne VBA) muß ich einen Bereich zunächst kopieren und dann (Werte) einfügen. In VBA habe ich in solchen Fällen den Code genauso aufgebaut, also erst copy dann pastespecial.

Gruß
Norbert

Re: Problem Pastespecial-Methode
01.12.2002 21:12:57
Ramses
Also ebenfalls ohne Anrede

Meine Codesequenz funktioniert

Wie Kollege N.Davidheimann schon bemerkt hat:
Ich weiss nicht, wie lange der kopierte Bereich in der Zwischenablage ist. Du machst sehr viel zwischen dem Copy-Befehl und dem Einfügen, z.B. Delete usw..
Prüfe doch einmal, ob zu diesem Zeitpunkt überhaupt noch was in der Zwischenablage ist. Wenn das Makro stoppt, wählst du anschliessend in der Tabelle einfach den Befehl: Bearbeiten-Inhalte einfügen.
Steht er nicht zur Verfügung, ist die Zwischenablage leer und der Fehler tritt deshalb auf. Dann solltest du den Copy-Befehl in deinem Makro vielleicht erst kurz vorher ausführen.
Vorher brauchst du ihn ja sowieso nicht.

Anzeige
Re: Problem Pastespecial-Methode
01.12.2002 21:28:05
M. Kuhn
Moin Ralf,

wie Dir in diesem Thread schon alle geraten haben:

vor PasteXXX muss erst etwas kopiert sein! Dein zuerst kopierter Bereich ist bereits beim ersten .Copy 'verbraucht'.

Ich mache nochmal einen Versuch, dass per Code klarzustellen.
Du solltest aber versuchen, Ordnung und Struktur in den Gesamtcode zu bringen, damit Du selbst das 'Gehen' lernst, das Forum kann es.

Code:

Sub AutoForm1_BeiKlick()
Dim i As Integer
Call BereichKopieren
With Worksheets(1)
For i = 23 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
Next i
Worksheets(1).Activate
Worksheets("1").Shapes("autoform 81").Delete
Worksheets("1").Shapes("autoform 82").Delete
Range("h51").Formula = "=Sum(H19:H50)"
Range("H51").Borders.ColorIndex = 0
Range("I51").Borders.ColorIndex = 0
Range("f51").Formula = "Übertrag:"
With Selection
.Font.FontStyle = "fett"
.HorizontalAlignment = xlRight
End With
ActiveSheet.Name = Range("i19").Value
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(Sheets.Count).Name = "Folgeseiten"
Sheets(Sheets.Count).Range("h5").Value = Sheets(Sheets.Count - 1).Range("i19").Value + 1
Range("H9").FormulaR1C1 = "=" & Sheets(Sheets.Count - 1).Name & "!R[42]C"
Call BereichKopieren 'hier wird neu kopiert
With Worksheets(2)
For i = 9 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
ActiveSheet.Name = Range("H5").Value
Exit Sub
End If
Next i
End With
End With
End Sub


Sub BereichKopieren()

With 'Quellblatt
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If
End With
End Sub

Nicht schön, aber selten und noch gemäß Deinen Vorgaben.

MfG Mario

Anzeige

10 Forumthreads zu ähnlichen Themen

VBA - paste special
Doro

Hallo Zusammen,
weiß jemand, ob es eine Möglichkeit gibt, per VBA in EINEM Schritt Inhalte und Formate einzufügen? Also statt
...
Formelbereich.Copy
.Cells(Zielzeile, Zielspalte).PasteSpecial Paste:=xlPasteValues
.Cells(Zielzeile, Zielspalte).PasteSpecial Paste:=xlPasteFor...
10.12.2009 12:16:11
Thread-ID: 1122882
3 Beiträge
Anzeige
Probleme mit PasteSpecial in VBA 2010 -VBA 2003 ok
Florian

Hallo liebe Excelfreunde,
habe ein Problem mit Pastespecial in Excel 2010. Wenn die gleiche Makro in Excel 2003 aufgerufen wird läuft alles ohne Probleme durch, in 2010 kommt die Fehlermeldung "PasteSpecial Method of Range class failed" - Error type 1004.
Bei der Makro handelt es sich d...
22.05.2013 10:55:26
Thread-ID: 1314251
6 Beiträge
VBA PasteSpecial - Titel verschiebt sich
Marcus

Hallo Zusammen!
Ich möchte Diagramme einer Excel-Datei per Makro in eine vorgefertigte PPT-Präsentation als Metadatei einfügen. Funktioniert soweit auch alles ganz gut, nur ein Problem bekomm ich einfach nich in den Griff. Es verschiebt sich der Titel der Folie, bzw. das Textfeld vergrößert...
19.08.2014 14:02:28
Thread-ID: 1377224
6 Beiträge
Anzeige
"Special Paste" einfügen in VBA Code
andi

Hallo zusammen !!
Wie kann ich folgendes makro in ein makro mit WITH Funktion än´dern ?
Range("B53:I65").Select
Selection.Copy
Range("B67").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
29.07.2004 12:23:45
Thread-ID: 462199
2 Beiträge
VBA immer special Paste
MISTERWENN

Hallo,
Bei uns im Unternehmen nutzen wir ein Excel File, welches ausgefüllt und an eine Abteilung gesandt werden soll.
Allerdings wird fast schon Grundsätzlich und mit Vorsatz, diese Vorlage durch Formatierungen so verunstaltet, dass dann sogar oftmals meine Makros nicht mehr greifen un...
03.12.2019 10:53:14
Thread-ID: 1726883
13 Beiträge
VBA - PasteSpecial und selektierte Spalt
Phillip

Hallo liebes Forum,
ich habe eine wahrscheinlich sehr einfache Frage.
Folgenden Code habe ich bereits zusammengesucht und dieser funktioniert auch soweit:
Private Sub CommandButton1_Click() Dim ende As Long Dim zelle As Range If IsError(Evaluate("Tabelle1!A1")) Then Worksheets.Add...
10.02.2021 11:36:27
Thread-ID: 1812111
4 Beiträge
VBA - PasteSpecial und selektierte Spalt
Phillip

Hallo liebes Forum,
ich habe eine wahrscheinlich sehr einfache Frage.
Folgenden Code habe ich bereits zusammengesucht und dieser funktioniert auch soweit:
Private Sub CommandButton1_Click() Dim ende As Long Dim zelle As Range If IsError(Evaluate("Tabelle1!A1")) Then Worksheets.Add...
10.02.2021 11:40:47
Thread-ID: 1812114
19 Beiträge
VBA Copy and Paste Values To Next Empt
Raimund
Hi All

Ich habe mir folgenden Code gebastelt und es funktioniert eigentlich ganz gut.
Beispiel:
In Spalte Q have ich eine Reihe von Name oder was auch immer.
Wenn ich eine Zelle in der Spalte Q auswähle, dann wird diese kopiert und am Ende der gefüllten Spalte Q eingefügt.
<...
17.07.2023 10:42:29
Thread-ID: 1936452
6 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
5
5
1
1
12
3
18
5