Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte von mehreren sheets auf einmal kopieren

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

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

Forumthreads zu verwandten Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
mehrere Makros in ein Makro kopieren
jenny

Hey, wie kann ich mehrere Makros in ein Makro kopieren?
Angenommen ich hab Makro 01 und 02 und will die in ein Makro kopieren, dass Update heisst. Funktioniert das:
Sub Update Sub01 End Sub
Sub02
..
End Sub
End Sub
Also kann ich einfach bei editieren das ganze...
01.10.2008 19:00:57
Thread-ID: 1013736
2 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Zellen auswählen und in andere Blatt kopieren
Maja

Hallo,
ich suche Hilfe für folgendes Problem:
Ich habe in einem Tabellenblatt über 5 Spalten Inhalte stehen. Nun sollen die in Spalte E stehenden Zahlen von oben nach unten laufend nach Werten größer "0" durchsucht werden.
Werden solche Werte gefunden, sollen die zu jeweils dieser...
10.12.2008 18:05:00
Thread-ID: 1031768
5 Beiträge
Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
Anzeige
mehrere Blätter in andere Mappe kopieren
Jakob

Hallo,
mit den unten angehängten Code kopiere ich das aktuelle Blatt in eine seperate Mappe. Den Code würde ich jetzt gerne so erweitern, daß mehrere Blätter auf einmal in die gleiche Mappe kopiert werden.
Wie müßte der Code aussehen der das bewerkstellig?
Ich Danke Euch schon mal.<...
27.02.2009 14:29:50
Thread-ID: 1054785
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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