Thema Datum  Von Nutzer Rating
Antwort
22.02.2014 17:57:55 Nils
Solved
Blau VBA PasteSpecial funktioniert nicht - Laufzeitfehler 1004
 22.02.2014 20:14:27 Gast21431
Solved
23.02.2014 13:03:38 Nils
NotSolved

Ansicht des Beitrags:
Von:
Gast21431		 Datum:
22.02.2014 20:14:27		 Views:
1781		 Rating:
     
Antwort:
 Nein
Thema:
VBA PasteSpecial funktioniert nicht - Laufzeitfehler 1004
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Sub Makro_1()
  
Dim letzteZeile As Integer
  
Dim Quelltabelle As Worksheet 'zum testen
Dim Zieltabelle As Worksheet
Set Quelltabelle = Sheets(1)
Set Zieltabelle = Sheets(2)
  
letzteZeile = Zieltabelle.Cells(Rows.Count, 2).End(xlUp).Row + 1
  
      
Quelltabelle.Range("A7").Copy
Zieltabelle.Range("B" & letzteZeile).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False
'oder
Quelltabelle.Range("B7").Copy
Zieltabelle.Range("C" & letzteZeile).PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
Quelltabelle.Range("C7").Copy
'auch
Zieltabelle.Range("D" & letzteZeile).PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone  'Rest ist Standardwert
Quelltabelle.Range("D7").Copy
Zieltabelle.Range("E" & letzteZeile).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone  'ditto
'ebenso
Zieltabelle.Range("F" & letzteZeile).Value = Quelltabelle.Range("E7").Value
'genauso
Sheets(1).Range("K7").Copy
Sheets(2).Range("G" & letzteZeile).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
'oderauchnoch
Sheets("Tabelle1").Range("G7").Copy
Sheets("Tabelle2").Range("H" & letzteZeile).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
'eh wurscht
Quelltabelle.[H7].Copy
Zieltabelle.[I1].Offset(letzteZeile - 1, 0).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
'usw.
Zieltabelle.[K1].Offset(letzteZeile - 1, 0).Value = Quelltabelle.[J7].Value
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.02.2014 17:57:55 Nils
Solved
Blau VBA PasteSpecial funktioniert nicht - Laufzeitfehler 1004
 22.02.2014 20:14:27 Gast21431
Solved
23.02.2014 13:03:38 Nils
NotSolved