Code umbauen

Forumthread: Code umbauen

Code umbauen

07.01.2007 14:42:46

Jürgen

Hallo Forum
Nutze untenstehenden Auszug aus meinen Code um Spalten zu kopieren und in einen neuen Blatt einzufügen
Möchte jetzt den Code aber umändern so das der Inhalt Spalte d im neuen Blatt in spalte a kopiert wird(macht der Code ja), nun soll Inhalt der spalte C nicht in Spalte B kopiert werden sondern auch in Spalte A unter dem bereits vorhandenen Inhalt.


Sub DBSNRSuche()
Sheets.Add after:=Sheets("Bestellung")
ActiveSheet.Name = "DBSNRSuche"
Sheets("Bestellung").Range("D:D").Copy
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Bestellung").Range("C:C").Copy
Range("B1").Select
ActiveSheet.Paste
End Sub

Kann mir jemand den Code umbauen
Danke und Gruss
Jürgen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code umbauen

07.01.2007 14:51:14

chris
AW: Code umbauen

07.01.2007 16:31:40

Jürgen
AW: Code umbauen

07.01.2007 16:41:37

chris
AW: Code umbauen

07.01.2007 16:58:48

Jürgen
AW: Code umbauen

07.01.2007 17:03:37

chris
Jetztz hats geklappert - Danke - O.T.

07.01.2007 17:17:16

Jürgen

AW: Code umbauen

07.01.2007 14:51:14

chris

Hallo Jürgen, das erreichst du so.
Option Explicit


Sub DBSNRSuche()
Dim lz As Integer
Dim lzinc As Integer
Sheets.Add after:=Sheets("Bestellung")
ActiveSheet.Name = "DBSNRSuche"
Sheets("Bestellung").Range("D:D").Copy
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
lzinc = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1
Sheets("Bestellung").Range("C1:C" & lzinc).Copy
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & lz).Select
ActiveSheet.Paste
End Sub

gruß Chris

AW: Code umbauen

07.01.2007 16:31:40

Jürgen

Hi Chris
Kleiner Fehler ist noch drin, kopiert mir nur ein Wert aus Spalte C ,nicht kompletten Inhalt.
Anbei mal Beispielmappe:
https://www.herber.de/bbs/user/39451.xls
Gruss
Jürgen

AW: Code umbauen

07.01.2007 16:41:37

chris

Also ich hab mir gerade mal deine Mappe geladen.
Versuchs mal mit dem code.
Option Explicit


Sub DBSNRSuche()
Dim lz As Integer
Dim lzinc As Integer
Sheets.Add after:=Sheets("Bestellung")
ActiveSheet.Name = "DBSNRSuche"
Sheets("Bestellung").Range("D:D").Copy
Sheets("Bestellung").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
lzinc = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
Sheets("Bestellung").Range("C2:C" & lzinc).Copy
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & lz).Select
ActiveSheet.Paste
End Sub

AW: Code umbauen

07.01.2007 16:58:48

Jürgen

Hi Chris
noch ein kleiner Fehler drin.
Kopierfunction klappt jetzt,nur er kopiert es im selben Blatt Bestellung nicht in das Blatt DBSSuche.
mfg
Juergen

AW: Code umbauen

07.01.2007 17:03:37

chris

Sags doch gleich...
Nimm diesen Code
Option Explicit


Sub DBSNRSuche()
Dim lz As Integer
Dim lzinc As Integer
Sheets.Add after:=Sheets("Bestellung")
ActiveSheet.Name = "DBSNRSuche"
Sheets("Bestellung").Range("D:D").Copy
Sheets("DBSNRSuche").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
lzinc = Sheets("Bestellung").Cells(Rows.Count, 3).End(xlUp).Row
Sheets("Bestellung").Range("C2:C" & lzinc).Copy
lz = Worksheets("DBSNRSuche").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & lz).Select
ActiveSheet.Paste
Cells(1, 1).Select
End Sub

Rückmeldung wäre nett
gruß Chris

Jetztz hats geklappert - Danke - O.T.

07.01.2007 17:17:16

Jürgen

Beliebteste Forumthreads (12 Monate)

Forumthread: Code umbauen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread