Microsoft Excel

Herbers Excel/VBA-Archiv

Kopieren bestimmter Zeilen | Herbers Excel-Forum


Betrifft: Kopieren bestimmter Zeilen von: Dave
Geschrieben am: 13.01.2010 11:07:02

hallo zusammen,

ich versuche spezielle Zeilen (jede 4.Zeile des wks6 auf die wks2 zu kopieren), leider wird mit diesem Befehl nur die Formatierung (Hintergrundfarbe etc.) kopiert und nicht die Zahlenwerte?!

Kennt jemand den Fehler?

Grüße, Dave


Dim wks2 As Worksheet, wks6 As Worksheet
Dim Zeile As Long
 Set wks2 = Worksheets("Tabelle2")
 Set wks6 = Worksheets("Tabelle6")
   For Zeile = 15 To 39 
  wks6.Range(wks6.Cells((19 + 4 * (Zeile - 14)), 3), wks6.Cells((19 + 4 * (Zeile - 14)), 12)). _
Copy wks2.Range(wks2.Cells(Zeile, 3), wks2.Cells(Zeile, 12))
   Next Zeile

  

Betrifft: AW: Kopieren bestimmter Zeilen von: Hajo_Zi
Geschrieben am: 13.01.2010 11:10:42

Hallo Dave,

sind da Formlndrin, die werden kopiert.

Sub Werte()
'   Formeln ersetzen durch Werte ohne Formate
    Columns("B:C").Copy
    Columns("B:C").PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False         'Zwischenspeicher löschen
End Sub
GrußformelHomepage


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Dave
Geschrieben am: 13.01.2010 12:55:26

Danke Hajo,

wie sieht es denn jetzt mit den zeilen aus?

Ich möchte die Daten der Wks6 erst ab Zeile 23 kopieren und dann auf wks2 erst ab Zeile 15 einfügen!

Grüße, Dave


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Hajo_Zi
Geschrieben am: 13.01.2010 12:59:33

Hallo Dave,

mein Code war nur dazu da Dir zu zeigen das es 3 Zeilen sein müssen
1. Zeile Copy
2. Zeile ").PasteSpecial Paste:=xlValues
3. Zeile Application.CutCopyMode = False

das mußt Du jetzt nur in Deinen Code einpassen.

Gruß Hajo


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Dave
Geschrieben am: 13.01.2010 13:17:01

Danke Hajo,

wie sieht es denn jetzt mit den zeilen aus?

Ich möchte die Daten der Wks6 erst ab Zeile 23 kopieren und dann auf wks2 erst ab Zeile 15 einfügen!

Grüße, Dave


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Hajo_Zi
Geschrieben am: 13.01.2010 13:20:49

Hallo Dave,

das habe ich schon beantwortet, durch eine Wiederholung wird es auch nicht besser. Ersetze mein Columns("B:C") dutch Deinen Teil. Das dürfte ja nicht das Problem sein.

Gruß Hajo


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Dave
Geschrieben am: 13.01.2010 14:40:19

Hi hajo,

hatte den beitrag noch mal ausgelöst, sorry!

habe jetzt den mittleren Teil so ausgeführt:

   
wks6.Range(wks6.Cells((19 + 4 * (Zeile - 14)), 3), wks6.Cells((19 + 4 * (Zeile - 14)), 12)). _
Copy
   wks2.Range(wks2.Cells(Zeile, 3), wks2.Cells(Zeile, 12)).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False

Leider wird mir jetzt ein objektdefinierter Fehler angezeige?


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Dave
Geschrieben am: 13.01.2010 15:10:48

Hi hajo,

hatte den beitrag noch mal ausgelöst, sorry!

habe jetzt den mittleren Teil so ausgeführt:

   
wks6.Range(wks6.Cells((19 + 4 * (Zeile - 14)), 3), wks6.Cells((19 + 4 * (Zeile - 14)), 12)). _
Copy
   wks2.Range(wks2.Cells(Zeile, 3), wks2.Cells(Zeile, 12)).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False

Leider wird mir jetzt ein objektdefinierter Fehler angezeige?


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Dave
Geschrieben am: 13.01.2010 15:34:32

hat geklappt, vielen Dank!


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Dave
Geschrieben am: 13.01.2010 15:43:34

Ich bin es noch mal, ich habe jetzt das Problem,

das Excel beim Kopieren der 25 Zeilen zwischen den Tabellenblättern hin und herspringt. Kann man das irgendwie unterdrücken mit Hilfe einer Sanduhr?

Schöne Grüße, Dave


  

Betrifft: AW: Kopieren bestimmter Zeilen von: Daniel
Geschrieben am: 13.01.2010 23:49:28

Hi

wenn du beim Kopieren und Einfügen ohne Select arbeitest und vollständig refrenzierst, dann springt Excel nicht zwischen den Tabellenblättern hin und her.

also statt

Sheets(1).select
Rows(1).Select
Selection.Copy
Sheets(2).Select
Rows(10).Select
Activesheet.Paste

schreibst du einfach:

Sheets(1).Row(1).Copy Destination:=Sheets(2).Rows(10)

Gruß, Daniel


Beiträge aus den Excel-Beispielen zum Thema "Kopieren bestimmter Zeilen "