Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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

Anzeige
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
Anzeige
Jetztz hats geklappert - Danke - O.T.
07.01.2007 17:17:16
Jürgen
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige