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

2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren

Forumthread: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren

2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
16.10.2024 17:25:49
Klaus Reich
Liebe Herbers, zunächst Tab1 :
die Range Tab 1 hole ich aus Y44 und Y46 via Worksheet_Change ab
' ja, wo san mer denn ? von A ? bis A ?
MsgBox Sheets("Tabelle1").Range("Y44") 'A30
MsgBox Sheets("Tabelle1").Range("Y46") 'A51
MsgBox Sheets("Tabelle1").Range("Y49") 'also 22 Zeilen lang
' nun, H Gates, baue mir bitte die Tab3 ab Adresse A14 aus 1 zusammen !
MsgBox ("A" & Sheets("Tabelle1").Range("Y44") & ":A" & Sheets("Tabelle1").Range("Y46")) 'A30:A51
' Bereich kopieren
Range("A" & Sheets("Tabelle1").Range("Y44") & ":A" & Sheets("Tabelle1").Range("Y46")).Copy
Sheets("Tabelle3").Select 'Tab3 auswählen
' ab hier hakt's :
ActiveSheet.Cells.ClearContents 'und komplett löschen
Range("A14").Select 'in Tabelle 3 nun A$14$ anwählen
ActiveSheet.Paste 'und später das ganze Spiel noch mit B und E aus 1 und auch die Daten Tab2 A, B und E an 3 anhängen
Danke Klaus Reich
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
16.10.2024 19:03:56
Kuwer
Hallo,

mit 
ActiveSheet.Cells.ClearContents 'und komplett löschen
wird die Zwischenablage gelöscht!

Gruß, Uwe
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
16.10.2024 20:51:50
Klaus Reich
Danke Kuwer ! Mein Ziel war nicht das Löschen der Zwischenablage. Wie kann ein ActiveSheet.Cells.ClearContents mit der Zwischenablage "korrespondieren" ? Ich suchte vielmehr das Lösche alle Zellen, Einträge, Hintergründe und Formatierunge, ... und das Blatt zu erhalten. Best Regards, Klaus Reich
Anzeige
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
16.10.2024 20:26:09
Uduuh
Hallo,
teste mal: 
Sub kopieren()

  Dim lngFirst As Long, lngLast As Long, lngZiel As Long

  

  lngZiel = 14    'ZielZeile

  Sheets("Tabelle3").Cells.ClearContents

  

  With Sheets("Tabelle1")

    .Range(.Cells(lngFirst, 1), .Cells(lngLast, 1)).Copy Sheets("Tabelle3").Cells(lngZiel, 1)  'A nach A14

    .Range(.Cells(lngFirst, 2), .Cells(lngLast, 2)).Copy Sheets("Tabelle3").Cells(lngZiel, 2)  'B nach B14

    .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5)).Copy Sheets("Tabelle3").Cells(lngZiel, 5)  'E nach E14

    lngZiel = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'neue ZielZeile

  End With

  

  With Sheets("Tabelle2")

    .Range(.Cells(lngFirst, 1), .Cells(lngLast, 1)).Copy Sheets("Tabelle3").Cells(lngZiel, 1)  'A nach Ax

    .Range(.Cells(lngFirst, 2), .Cells(lngLast, 2)).Copy Sheets("Tabelle3").Cells(lngZiel, 2)  'B nach Bx

    .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5)).Copy Sheets("Tabelle3").Cells(lngZiel, 5)  'E nach Ex

  End With

  

End Sub


Gruß aus'm Pott
Udo
Anzeige
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
16.10.2024 21:27:41
Klaus Reich
Danke Udo, gönne mir bitte noch ein paar Worte - ich möchte doch von den Könnern etwas lernen. Du nimmst, wie ich auch Sheets("Tabelle3").Cells.ClearContents. Dann verwirrst Du mich mit Dingen wie : .Range(.Cells(lngFirst, 1), .Cells(lngLast, 1)).Copy Sheets("Tabelle3").Cells(lngZiel, 1). Was will mir das sagen ? Wo bleiben meine Koordinaten-Angaben Y44, Y46 aus Tab1 und analog auch Tab2, um deren A, B und E in den vorgegebene Grenzen nach Tab 3 ab Zeile 14 zu schaufeln ? Schönen Abend noch, Klaus
Anzeige
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
17.10.2024 11:50:21
Uduuh
Hallo,
entschuldige meine Flüchtigkeit.
Muss wohl so aussehen: 
Sub kopieren()

  Dim lngFirst As Long, lngLast As Long, lngZiel As Long

  

  lngZiel = 14    'ZielZeile

  Sheets("Tabelle3").Cells.ClearContents

  

  With Sheets("Tabelle1")

    lngFirst = .Cells(44, 25)   'Y44

    lngLast = .Cells(46, 25)    'Y46

    .Range(.Cells(lngFirst, 1), .Cells(lngLast, 1)).Copy Sheets("Tabelle3").Cells(lngZiel, 1)  'A nach A14

    .Range(.Cells(lngFirst, 2), .Cells(lngLast, 2)).Copy Sheets("Tabelle3").Cells(lngZiel, 2)  'B nach B14

    .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5)).Copy Sheets("Tabelle3").Cells(lngZiel, 5)  'E nach E14

  End With

  

  lngZiel = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1 'neue ZielZeile

  

  With Sheets("Tabelle2")

    lngFirst = .Cells(44, 25)   'Y44

    lngLast = .Cells(46, 25)    'Y46

    .Range(.Cells(lngFirst, 1), .Cells(lngLast, 1)).Copy Sheets("Tabelle3").Cells(lngZiel, 1)  'A nach Ax

    .Range(.Cells(lngFirst, 2), .Cells(lngLast, 2)).Copy Sheets("Tabelle3").Cells(lngZiel, 2)  'B nach Bx

    .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5)).Copy Sheets("Tabelle3").Cells(lngZiel, 5)  'E nach Ex

  End With

  

End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
17.10.2024 13:29:00
Klaus Reich
Danke Udo ! Was ich nicht verstanden habe, ist "warum muß ich Variablen, wie lngFirst benutzen ?" . Ich kann doch alle Daten "im Klartext" direkt aus einer der Tabellen abholen. Die sollen doch nur ohne Lücke untereinander nach Tab 3 kopiert werden. Gruß Klaus
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
17.10.2024 19:38:19
Uduuh
Hallo,
Du musst keine Variablen benutzen. Mach es wie du willst.

Gruß aus'm Pott
Udo
Anzeige
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
18.10.2024 00:41:57
Klaus Reich
Uduuh, mir scheint, Du bist böse, weil ich nicht einsehen mag, mit Kanonen (heißt bekannte Tabellen-Positionen, die ich aus Tabelle1 und 2 auslesen kann und den Beginn Tab3 auch auf A14 festlegen möchte) durch künstliche Variablen zu ersetzen, um aus denen erst wieder die gemeinten Pos für 3 festzulegen. Ich möchte doch einfach etwas von Euch Könnern lernen : sag' mir, erkläre doch bitte, was ich an Deinem letzten Beitrag ändern muß, die Spalten A, B und E (diese kann/sollte in der Tab3 natürlich in C stehen) mit bekannten Zelleninhalten/Werten aus 1 und 2 (vor-)belegen kann. Mein Fernziel war sogar, mich von dem leidigen VBA ala Worksheet_Change zu befreien - eigentlich nicht nötig, wenn die eingebundenen Diagramme 1 und 2 ohne ein "xxx"-Ereignis reagieren wollten. Best regards Klaus
Anzeige
AW: 2 (Teil-)inhalte aus Tabelle1 und 2 autom. in Tab3 kopieren
18.10.2024 01:14:59
Uduuh
Hallo,
ich bin nicht böse. Warum sollte ich?
Warum die Variablen: Der ständige Zugriff auf Zellen verlangsamt den Code nur. Mit den Variablen geht das (in deinem Fall marginal) schneller.
Um E nach C zu kopieren musst du nur das (2x) ändern: 
    .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5)).Copy Sheets("Tabelle3").Cells(lngZiel, 3)  'E nach C14

Wenn sowohl in Tabelle1 als auch in Tabelle2 in Y44 und Y46 das gleiche steht, kannst du die erneute Zuweisung von lngFirst und lngLast auch weg lassen.
Dann ergibt sich 
Sub kopieren()

  Dim lngFirst As Long, lngLast As Long, lngZiel As Long

  

  lngZiel = 14    'ZielZeile

  Sheets("Tabelle3").Cells.ClearContents

  

  With Sheets("Tabelle1")

    lngFirst = .Cells(44, 25)   'Y44

    lngLast = .Cells(46, 25)    'Y46

    .Range(.Cells(lngFirst, 1), .Cells(lngLast, 1)).Copy Sheets("Tabelle3").Cells(lngZiel, 1)  'A nach A14

    .Range(.Cells(lngFirst, 2), .Cells(lngLast, 2)).Copy Sheets("Tabelle3").Cells(lngZiel, 2)  'B nach B14

    .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5)).Copy Sheets("Tabelle3").Cells(lngZiel, 3)  'E nach C14

  End With

  

  lngZiel = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1 'neue ZielZeile

  

  With Sheets("Tabelle2")

    .Range(.Cells(lngFirst, 1), .Cells(lngLast, 1)).Copy Sheets("Tabelle3").Cells(lngZiel, 1)  'A nach Ax

    .Range(.Cells(lngFirst, 2), .Cells(lngLast, 2)).Copy Sheets("Tabelle3").Cells(lngZiel, 2)  'B nach Bx

    .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5)).Copy Sheets("Tabelle3").Cells(lngZiel, 3)  'E nach Cx

  End With

  

End Sub


Um dich vollends zu verwirren, eine Alternative: 
Sub kopieren2()

  Dim lngFirst As Long, lngLast As Long, lngZiel As Long

  Dim rngSource As Range, rngZiel As Range

  

  lngZiel = 14    'ZielZeile

  Sheets("Tabelle3").Cells.ClearContents

  Set rngZiel = Sheets("tabelle3").Cells(lngZiel, 1)

  

  With Sheets("Tabelle1")

    lngFirst = .Cells(44, 25)   'Y44

    lngLast = .Cells(46, 25)    'Y46

    Set rngSource = .Range(.Cells(lngFirst), .Cells(lngLast))

    rngSource.Copy rngZiel

    rngSource.Offset(, 1).Copy rngZiel.Offset(, 1)

    rngSource.Offset(, 4).Copy rngZiel.Offset(, 2)

  End With

  

  Set rngZiel = Sheets("tabelle3").Cells(Rows.Count, 1).End(xlUp).Offset(1)

  

  With Sheets("Tabelle2")

    Set rngSource = .Range(.Cells(lngFirst), .Cells(lngLast))

    rngSource.Copy rngZiel

    rngSource.Offset(, 1).Copy rngZiel.Offset(, 1)

    rngSource.Offset(, 4).Copy rngZiel.Offset(, 2)

  End With

  

End Sub


Ja, ich weiß, ich bin böse ;-)

Gruß aus'm Pott
Udo
Anzeige

Forumthreads zu verwandten Themen

Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Kopieren mit Filter
Thomas

Hallo,
ich habe mir Excel 2007 installiert und habe ein Problem, was ich bei Excel 2003 nicht hatte.
Wenn ich einen Filter setze und das gefilterte in einen anderen Tabellenblatt kopiere (über kopie&paste), wurde in excel 2003 nur das sichtbare bzw. gefilterte kopiert. In excel 2007...
20.06.2009 22:18:01
Thread-ID: 1083161
2 Beiträge
Anzeige
Hyperlinks kopieren mit Advanced Filter
Oliver

Hallo,
ich habe ein Tabelle, die ich über eine Advanced Filter Routine in ein anderes Tabellenblatt innerhalb der gleichen Excel Datei filtere. Als VBA Laie habe ich mir die benötigten Makros aus diversen Foren zusammenkopiert und meine Tabellen "drum herum" gebaut. Funktioniert einwandfrei...
22.06.2009 19:43:04
Thread-ID: 1083580
6 Beiträge
Anzeige
In Tabelle Suchen und Bereich kopieren - Bitte Hil
Marc

Hallo,
auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Cus...
25.06.2009 20:52:35
Thread-ID: 1084450
4 Beiträge
Anzeige
Werte filtern und "kopieren"
Sören

Hallo Expertenteam!
Ich benötige eure Hilfe. Es gibt ein Tab-.Blatt mit einer riesiegen Matrix aus der Werte in ein anderes Tab.-Blatt sollen. Dafür müssen verschiedene Bedingungen erfüllt werden. Zum einen muss aus Spalte A ein Wert identisch sein und dann müssen aus einer 6stelligen Angab...
05.12.2009 22:55:30
Thread-ID: 1121996
6 Beiträge
Daten filtern, kopieren und inneue Tabelle einfüge
Luan

Hallo
Habe folgendes Problem
Ich möchte Daten aus der Grunddatentabelle filtern, kopieren und in die Tabelle Arbeitsplan einfügen
Dabei soll die Tabelle Arbeitsplan immer überschrieben werden.
Ich muss einzelne sog. Posten filtern und untereinander einfügen, gleichzeitig müssen...
17.06.2010 17:29:17
Thread-ID: 1161439
2 Beiträge
2 Mappen, 2 Tabellen, suchen und kopieren
Bernhard

Hallo zusammen,
ich habe ein Problem. Ich versuche in Datei 1 (ThisFileName), Tabelle 1("NewBOM") einen bestimmten Inhalt einer Spalte zu suchen, und bei jedem gefundenen Eintrag, die gesamt Zeile in Dateie 2(NewFileName) Tabelle 1 ("New BOM") zu kopieren. Mappen heißen unterschiedlich, die...
01.08.2010 08:22:35
Thread-ID: 1169876
8 Beiträge
Filtern und wegkopieren von bestimmten Zeilen
Josef

Guten Morgen!Ich habe z.B.in der Tabelle1 in Spalte A 20 Zeilen mit 1, danach 45 Zeilen mit 2, danach 80 Zeilen mit 3 usw.(von 1-9)Jetzt sollen alle Zeilen in denen in der Spalte A eine 2 vorkommt ausgeschnitten und in ein neues Blatt z.B.Tabelle2 kopiert werden. Das gleiche mit 3 in Tabelle3 u...
07.05.2002 08:43:09
Thread-ID: 119035
7 Beiträge
Tabelle filtern mit Formel und kopieren
Sid

Hallo zusammen,
ich habe folgendes Problem.
Ich möchte eine Tabelle mit einer Formel filtern lassen nach einen Kriterium und damit eine neue erstellen lassen. Meine Tabelle ist sehr umfangreich und ich habe daher ein kleines einfaches Beispiel gemacht.
Ich habe übrigens schon alles...
01.12.2010 12:02:57
Thread-ID: 1189564
8 Beiträge
Anzeige
Daten durch VBA filtern und in neue Datei kopieren
Julia

Hi,
ich habe das Problem, dass man in Pivottabellen aus irgendeinen Grund den Filter nicht teilweise sperren kann. Soll heißen ich habe eine Buchhaltungsdatei die sämtliche Rechnungen etc. enthält. Eine Spalte gibt die Abteilung an und eine die Unterabteilungen. Jeder Abteilungsleiter soll...
04.07.2013 14:09:38
Thread-ID: 1321094
2 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

Hi,
ich war im Urlaub und jetzt liegt mein Beitrag schon im Archiv: Daher neuer Thread:
https://www.herber.de/forum/archiv/1320to1324/t1321094.htm
also ich habe versucht den Code auf meine Datei zu übertragen. An sich klappt es auch aber mitten drin bricht Excel ab mit dem Grund "T...
15.07.2013 10:41:35
Thread-ID: 1322445
7 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

https://www.herber.de/forum/archiv/1320to1324/t1321094.htm
Hi,
wie gebe ich einen Ordner an. Bisher steht in meinem Code
strOrdner = ActiveWorkbook.Path 'Haupt-Ordner der Abteilungs-Dateien - ggf. anpassen !!!!
Wie kann ich einen von mir ausgewählten Ordner als Speicherort ang...
24.07.2013 08:21:38
Thread-ID: 1323778
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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