Herbers Excel-Forum - das Archiv

Code umbauen

Bild

Betrifft: Code umbauen
von: Jürgen

Geschrieben am: 07.01.2007 14:42:46
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
Bild

Betrifft: AW: Code umbauen
von: chris b

Geschrieben am: 07.01.2007 14:51:14
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
Bild

Betrifft: AW: Code umbauen
von: Jürgen
Geschrieben am: 07.01.2007 16:31:40
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
Bild

Betrifft: AW: Code umbauen
von: chris b

Geschrieben am: 07.01.2007 16:41:37
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

Bild

Betrifft: AW: Code umbauen
von: Jürgen
Geschrieben am: 07.01.2007 16:58:48
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
Bild

Betrifft: AW: Code umbauen
von: chris b

Geschrieben am: 07.01.2007 17:03:37
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
Bild

Betrifft: Jetztz hats geklappert - Danke - O.T.
von: Jürgen
Geschrieben am: 07.01.2007 17:17:16
.
 Bild