Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Von einem Sheet ins andere kopieren?

Forumthread: Von einem Sheet ins andere kopieren?

Von einem Sheet ins andere kopieren?
28.01.2005 11:25:36
Roman
Hallo,
habe ein problem,
möchte gern eine Auszug aus einem Sheet ins andere kopieren. DAs Problem ist jetzt folgendes:
Es sollen nur die kopiert werden, bei denen der Betrag größer null ist.
Ich sortiere absteigend die Daten vorher.
Wie kann man den einstellen, daß der Kopierbereich variabel jeweils sich anpasst. ES muß halt vorher überprüft werden, wann der BEtrag Null kommt.
Kann mir da jemand bitte helfen.
danke
Gruß
Roman
Anzeige
AW: Von einem Sheet ins andere kopieren?
Roland
Hallo Roman,
wenn du ohnehin sortiert hast, musst du mit dem Makro nur noch die Zelladresse ermitteln, in der der erste Wert größer Null ist und lässt ab dann kopieren. Konkret mit einem Code könnte das so aussehen:

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value >= 0 Then Exit For
Next
Range(Cells(1, 1), Cells(i, 3)).Copy Range("E1")
End Sub

Gruß
Roland
Anzeige
AW: Von einem Sheet ins andere kopieren?
28.01.2005 11:55:07
Roman
hallo Roland,
Application.Calculation = xlCalculationManual
Columns("A:E").Sort key1:=Range("D:D"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic

mit diesen DAten sortiere ich die ganze SAche,
wo kann ich denn da jetzt ein Makro was du angegeben hast einfügen.
Und zwar sollte die A2-D2 in die TAbelle1 A8-D8
und E2 sollte in Tabelle1 I8
Gruß
Roman
Anzeige
AW: Von einem Sheet ins andere kopieren?
Roland
Hallo Roman,
dann müsste es so klappen:

Sub test()
Dim i As Integer
Application.Calculation = xlCalculationManual
Columns("A:E").Sort key1:=Range("D:D"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value >= 0 Then Exit For
Next
Range(Cells(2, 1), Cells(i, 4)).Copy Sheets("Tabelle1").Range("A8")
Range(Cells(2, 5), Cells(i, 5)).Copy Sheets("Tabelle1").Range("I8")
End Sub

Feedback wäre nett :-)
Roland
Anzeige
AW: Von einem Sheet ins andere kopieren?
28.01.2005 12:07:08
Roman
Hallo Roland,
das funktioniert soweit, nur ich habe ein anderes Problem. Ich müsste den Inhalt der Zellen kopieren und nicht die Formeln.
Wie kann ich das denn einstellen?
danke
roman
AW: Von einem Sheet ins andere kopieren?
Roland
Hallo Roman,
so werden nur die Werte kopiert:

Sub test()
Dim i As Integer
Application.Calculation = xlCalculationManual
Columns("A:E").Sort key1:=Range("D:D"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value >= 0 Then Exit For
Next
Range(Cells(2, 1), Cells(i, 4)).Copy
Sheets("Tabelle1").Range("A8").PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(Cells(2, 5), Cells(i, 5)).Copy
Sheets("Tabelle1").Range("I8").PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Gruß Roland
Anzeige
Letzter Versuch
Roland
Hallo Roman,
das muss doch hinzukriegen sein . . . Ich vermute mal, dass unterhalb der sortierten Spalte noch Daten kommen und habe daher mal die Zählweise umgestellt:

Sub test()
Dim i As Integer
Application.Calculation = xlCalculationManual
Columns("A:E").Sort key1:=Range("D:D"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 4).Value <= 0 Then Exit For
Next
Range(Cells(2, 1), Cells(i, 4)).Copy
Sheets("Tabelle1").Range("A8").PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(Cells(2, 5), Cells(i, 5)).Copy
Sheets("Tabelle1").Range("I8").PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub

Wenn auch das Nicht funktioniert, melde dich noch mal.
Gruß
Roland
Anzeige
AW: Von einem Sheet ins andere kopieren?
28.01.2005 12:13:54
Roman
die Beträge stehen in D. Dort soll geschaut werden, daß der Null wird.
Wo muß ich denn was abändern?
Gruß
Roman
If Cells(i, 4).Value >= 0 Then . . . o.w.T.
Roland
AW: If Cells(i, 4).Value >= 0 Then . . . o.w.T.
28.01.2005 12:22:29
Roman
Hallo Roland,
erstmal dankeschön.
wie kann ich aber noch den Inhalt einfügen und nicht die Formeln?
gruß
roman
Anzeige
siehe 12:18:01 o.w.T.
Roland
AW: If Cells(i, 4).Value >= 0 Then . . . o.w.T.
28.01.2005 12:23:39
Roman
ups sorry habe nicht gesehen!
schönen Dank
echt genials Forum hier.
Präzise und schnelle Hilfe! echt super.
Gruß
Roman
Danke für die Rückmeldung o.w.T.
28.01.2005 12:26:21
Roland
Anzeige
Hilfe Roland!
28.01.2005 12:35:08
Roman
hallo Roland,
ich habe jetzt den Code eingefügt und ausprobiert.
Irgendwie macht er probleme. Er hat nicht abgeschnitten, sonder alles kopiert.
gruß
roman
AW: Hilfe Roland!
28.01.2005 12:40:39
Roman
Hallo Roland,
Der schnitt für den Kopiervorgang sollte für Zelle A-E gehen. In D steht der Betrag,
nach diesem wird sortiert, dann geschaut in welcher Zelle er Null wird. Ab da brauch man nicht mehr kopieren.
Es sollte dann z.B. der Bereich von A2-E70 kopiert werden, wenn D71 Betrag Null hat.
Was muß man noch an dem Code ändern?
gruß
roman
Anzeige
Code ist richtig, lad die Datei mal hoch
Roland
AW: Code ist richtig, lad die Datei mal hoch
28.01.2005 12:51:42
Roman
das geht nicht der Firmenserver läßt es nicht zu.
Die funktionsweise deines Codes ist perfekt. Er kopiert und sortiert einwandfrei, nur irgendwie will es nicht ab Null abschneiden.
gruß
roman
AW: Code ist richtig, lad die Datei mal hoch
28.01.2005 12:58:21
Roman
ich habe versucht Range("D65536) zu machen. macht das gleiche wie mit A.
?
gruß
roman
Anzeige
AW: Code ist richtig, lad die Datei mal hoch
28.01.2005 13:08:55
Roman
Hallo Roland,
ich habe mal ausprobiert, egal ob ich
Cells(i, 4).Value Cells(i, 4).Value >= 0
einstelle,
er macht immer das gleiche.(kopiert trotzdem alles.
?
Gruß
Roman
AW: Code ist richtig, lad die Datei mal hoch
28.01.2005 13:25:16
Roman
HAllo Roland,
kann ich dir die Datei zuschicken?
und du kannst dann diese einstellen in das Forum!
gruß
roman
Anzeige
AW: Code ist richtig, lad die Datei mal hoch
28.01.2005 13:38:53
Roman
Hallo Roland,
ich glaube ich habe es rausbekommen.
alt:
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 4).Value &gt=0 Then Exit For
Next
neu:
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 4).Value &gt0 Then Exit For
Next
größer Null war wichtig.
Gruß
Roman
Anzeige
Na dann Schönes Wochenende o.w.T.
Roland

Forumthreads zu verwandten Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 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
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Anzeige
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
Makro in eine/mehrere andere Dateien transportiere
Britta

Hallo zusammen,
ich habe nun mit dem von Hary erfundenen Makro eine gute Lösung für meine Daten gefunden. Leider weiß ich nicht wie ich das Makro in eine oder mehrere weitere Dateien übertragen kann. Ich habe es einfach naiv kopiert, dann aber festgestellt das, dass nur geht wenn ich die Qu...
11.02.2009 16:52:00
Thread-ID: 1049686
9 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Programm und Daten in andere Datei
Steffen

Hi Excelkenner
Habe da mal eine simple Frage:
Wenn ich ein Programm in VBA entwerfe aber die Daten auf eine separate Datei speicher will ist dies eine Variante. Wenn ich aber das Programm benutzen will, dass die Datendatei nicht immer gleich heisst ist wiederum etwas anders.
Wie mac...
10.03.2009 19:00:43
Thread-ID: 1058828
2 Beiträge
Anzeige
makro in andere Datei aufrufen
Alex

Hi
Ich rufe mit dem Code das makro2 in einer anderen Datei auf.
Wie kann ich es erreichen, daß wenn das Makro "makro2" nicht existiert eine Meldung kommt und die Prozedur abgebrochen wird und wenn das Makro vorhanden ist, die erste Datei geschlossen wird, aber die aufgerufene Datei wei...
21.03.2009 21:44:25
Thread-ID: 1062538
14 Beiträge
Daten in andere Datei üebrtragen-Netzlaufwerk
Andreas

Hallo zusammen,
ich habe folgendes Problem. Ich muss eine Datei zur Verfügung stellen, welche nur eine bestimmte Anzahl von Daten benötigt. Die Originaldatei hat also zuviel Infos (zuviel Spalten). Daß man Spalten innerhalb einer Arbeitsmappe übertragen kann ist mir bewußt. Kann ich jedoch...
20.05.2009 11:58:36
Thread-ID: 1076320
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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