Thema Datum  Von Nutzer Rating
Antwort
22.07.2009 14:48:22 karin
NotSolved
23.07.2009 13:48:25 Holger
NotSolved
Rot Aw:Aw:Fehler bei paste funktion
 23.07.2009 15:23:13 Karin
NotSolved
23.07.2009 22:00:51 Holger
NotSolved

Ansicht des Beitrags:
Von:
Karin		 Datum:
23.07.2009 15:23:13		 Views:
981		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Fehler bei paste funktion
Hallo Holger, danke für die Antwort.

Mein Makro bleibt an dieser Stelle stehen:

Sub Schleife_Kopieren()

'Variablen deklaration
Dim Zelle As Integer, Spalte As Integer
Dim Zelle2 As Integer
Dim Zelle3 As Integer, Spalte3 As Integer
Dim wksBlattNeu As Worksheet

Set wksBlattNeu = Worksheets.Add(Before:=Sheets(3))

wksBlattNeu.Name = Sheets("Grenzmaßformblatt").Range("B1").Value


Application.ScreenUpdating = False


Zelle = 1
Spalte = 1

Zelle2 = 6

Spalte3 = 1
Zelle3 = 1

'Solange Spalte Q kleiner gleich 31 ist
Do While Zelle2 <= 31

'verändert die Tabelle je nach Messwerttabelle

'ActiveSheet.Cells(16, Zelle2).Select

'Tabellenblatt Grenzformblatt aktivieren und Zelle Q 6-31 auswählen
Sheets("Grenzmaßformblatt").Activate
Sheets("Grenzmaßformblatt").Cells(17, Zelle2).Select

'Sheets("Grenzmaßformblatt").Cells(Zelle, Spalte).Select
'Kopieren und in B2 einfügen
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


'

'Kopiert die Spalten der Tabelle in ein Neues Tabellenblatt
Columns("B:O").Select 'wählt die zu kopierenden Spalten aus
Application.CutCopyMode = False
Selection.Copy

Sheets(wksBlattNeu.Name).Select
Sheets(wksBlattNeu.Name).Cells(Zelle3, Spalte3).Select 'Blatt in das eingefügt werden soll

'Sheets("Grenzmaßformblatt").Select
' Range("A1").Select

'einfügen
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<<<<<<<<<<<
:=False, Transpose:=False<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Genau diese
2 Zeilen werden gelb hinterlegt.
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'

'Kopiert die Zeilen der Tabelle in ein Neues Tabellenblatt
Rows("1:38").Select 'wählt die zu kopierenden Zeilen aus
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(wksBlattNeu.Name).Cells(Zelle3, Spalte3).Select 'Blatt in das eingefügt werden soll

'einfügen
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'

Sheets("Grenzmaßformblatt").Activate
Sheets("Grenzmaßformblatt").Cells(Zelle, Spalte).Select
'Selection.Copy

'Worksheets("Tabelle2").Cells(Zelle, Spalte + 1).Insert
'End If

'Zelle = Zelle + 1
Zelle3 = Zelle3 + 39
Zelle2 = Zelle2 + 1
Loop

Application.ScreenUpdating = True

End Sub

Gruß Karin

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:



  • 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.07.2009 14:48:22 karin
NotSolved
23.07.2009 13:48:25 Holger
NotSolved
Rot Aw:Aw:Fehler bei paste funktion
 23.07.2009 15:23:13 Karin
NotSolved
23.07.2009 22:00:51 Holger
NotSolved