Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte von mehreren sheets auf einmal kopieren

Werte von mehreren sheets auf einmal kopieren
07.10.2004 13:05:27
mehreren
Hallo,
wie müsste ich den untenstehenden Code ändern, wenn ich mehrere Werte gleichzeitig kopieren und in einer anderen Exceldatei einfügen möchte? Zum Beispiel neben dem Wert aus [M9] noch [E9] aus dem gleichen sheet und [K36] aus einem folgenden sheet desgleichen workbooks? Die kopierten Werte möchte ich in das andere Workbook auf der gleichen Zeile in unterschiedlichen Spalten einfügen.
Danke.Eva
Sub Auslesen01()

Workbooks("Template_IFD_Standortziele_04_05.xls").Activate
ActiveWorkbook.Worksheets("Overview").Activate
'rot
If [M9] 'kleiner als' [M13] Then [M9].Copy
Workbooks("Risikoverfolgung07102004.xls").Activate
ActiveWorkbook.Worksheets("Auslesen BSC_Abt").Activate
Range("D6").Select
ActiveSheet.Paste
Selection.FormatConditions.Delete
Selection.Interior.ColorIndex = 3

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte von mehreren sheets auf einmal kopieren
mehreren
Hi Eva,
musst dir halt aussuchen mit welcher du besser klarkommst , dann noch anpassen: 

Sub Auslesen01()
Set wsQuelle = Workbooks("Template_IFD_Standortziele_04_05.xls").Worksheets("Overview")
Set wsZiel = Workbooks("Risikoverfolgung07102004.xls").Worksheets("Auslesen BSC_Abt")
Set wsQuelle2 = Workbooks("Template_IFD_Standortziele_04_05.xls").Worksheets("Banane")
With wsZiel
If wsQuelle.[M9] < wsQuelle.[M13] Then wsQuelle.[M9].Copy Destination:=.Range("D6")
.Range("D6").FormatConditions.Delete
.Range("D6").Interior.ColorIndex = 3
wsQuelle.[E9].Copy Destination:=.Range("A1")
wsQuelle2.Range("K36").Copy Destination:=.Range("b1")
End With
End Sub
Sub Auslesen02()
Set wsQuelle = Workbooks("Template_IFD_Standortziele_04_05.xls").Worksheets("Overview")
Set wsZiel = Workbooks("Risikoverfolgung07102004.xls").Worksheets("Auslesen BSC_Abt")
With wsZiel
If wsQuelle.[M9] < wsQuelle.[M13] Then wsQuelle.[M9].Copy Destination:=.Range("D6")
.Range("D6").FormatConditions.Delete
.Range("D6").Interior.ColorIndex = 3
wsQuelle.[E9].Copy Destination:=.Range("A1")
Workbooks(wsQuelle.Parent.Name).Worksheets("Banane").Range("K36").Copy Destination:=.Range("b1")
End With
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige