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

Kopieren aus verschiedenen Tabellenblättern

Forumthread: Kopieren aus verschiedenen Tabellenblättern

Kopieren aus verschiedenen Tabellenblättern
09.01.2005 21:45:50
Roland
Hallo liebe Excel-Gemeinde,
ich will aus einer Mappe mit 50 Tabellenblättern eine Zusammenfassung
der einzelnen Inhalte (Text + Zahlen) in ein Blatt kopieren.
Wie kann ich erreichen, dass Excel immer das darauffolgende Blatt heranzieht beim Befehl copy down?
Gruß,
Roland
https://www.herber.de/bbs/user/15836.xls
Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
Beni
Hallo Roland,
dieser Code kopiert die Werte aus den Tabellen in eine.
Gruss Beni

Sub Kopieren_aus_verschiedenen_Tabellenblättern()
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Summen" Then
With Sheets("Summen")
lz = Cells(65536, 1).End(xlUp).Row + 1
Cells(lz, 1) = Sheets(sh).Cells(4, 3)
Cells(lz, 2) = Sheets(sh).Cells(4, 4)
End With
End If
Next sh
End Sub

Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
10.01.2005 08:33:54
Roland
Hallo Beni,
erstmal Danke für den Code.
In der Beispieldatei funktioniert es.
In meiner "eigentlichen" Datei kommt "Index außerhalb der gültigen Bereiches".
Den Code verstehe ich leider nicht, sodaß ich mir nicht selbst helfen kann :-(
Gruß,
Roland
AW: Kopieren aus verschiedenen Tabellenblättern
Beni
Hallo Roland,
möglicherweise entspricht der Tabellenname nicht in der die Daten eingetragen werden nicht dem With Sheets("Summen"), korrigiere diese entsprechend.
Benutze diesen Code, ich habe ein Korrektur gemacht.
Gruss Beni

Sub Kopieren_aus_verschiedenen_Tabellenblättern()
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Summen" Then
With Sheets("Summen")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Sheets(sh).Cells(4, 3)
.Cells(lz, 2) = Sheets(sh).Cells(4, 4)
End With
End If
Next sh
End Sub

Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
10.01.2005 11:19:14
Roland
Hallo Beni,
Du hast Recht, bei mir hieß das Blatt "Bilanz" und nicht "Summen".
Besagte Fehlermeldung bleibt jetzt aus, stattdessen scheint es so, als passiert gar nichts.
Leider muß ich jetzt weg, werde mich heute abend wieder damit befassen.
Vielleicht hast Du noch einen Tipp, wie ich als absoluter VBA-Neuling wenigstens
die rudimentärsten Dinge darüber selbst erlernen kann.
Ich weiß nicht mal, ob ich Deinen Code korrekt in mein Worksheet eingebunden habe.
Gruß,
Roland
Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
Beni
Hallo Roland,
ich habe Dir den Code entsprechend geändert.
Der untere Teil ist der gleiche Code mit enspechenden Erklärungen.
Gruss Beni

Sub Kopieren_aus_verschiedenen_Tabellenblättern()
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Bilanz" Then
With Sheets("Bilanz")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Sheets(sh).Cells(4, 3)
.Cells(lz, 2) = Sheets(sh).Cells(4, 4)
End With
End If
Next sh
End Sub



Sub Kopieren_aus_verschiedenen_Tabellenblättern()
'/// For ist ein Schleife, sie durchläuft alle Sheets, ausser "Bilanz", darum das
'    If Sheets(sh).Name <> "Bilanz"
'/// das sh ist eine Variable und wird von 1 bis Anzahl Sheets hochgezählt, das muss
'    nicht sh sein, es kann auch Roland sein.
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Bilanz" Then
'/// With Sheets("Bilanz") alles was innerhalb With und End With ist und einen Punkt
'    vor dem .Cells hat, gehört zu diesem Sheet
With Sheets("Bilanz")
'/// lz ist die letzte Zeile+1 in diesem Sheet
lz = .Cells(65536, 1).End(xlUp).Row + 1
'/// letzte Zeile+1/Spalte1 = den Wert aus dem Sheet mit der Nr. das Excel dem Sheet
'    vergeben hat, Zeile4/Spalte3
.Cells(lz, 1) = Sheets(sh).Cells(4, 3)
.Cells(lz, 2) = Sheets(sh).Cells(4, 4)
End With
End If
Next sh
End Sub

Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
10.01.2005 19:02:06
Roland
Hi Beni,
erstmal Danke für Deine Mühe.
So langsam blick ich durch bei Deinem Code.
Das versteh ich nicht:
"...den Wert aus dem Sheet mit der Nr. das Excel dem Sheet
' vergeben hat,...
Wenn das heißt, mein Blatt "A" hat eine Nummer hat, wo find ich sie und kann ich sie ändern?
Gruß,
Roland
Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
Beni
Hallo Roland,
die kanst Du nicht ändern, die Nr. sind fortlaufen wie sie angeordnet sind, wenn z.B. Tabelle1/Tabelle3/Tabelle2 so kommt Tabelle3 vor Tabelle2.
Gruss Beni
AW: Kopieren aus verschiedenen Tabellenblättern
10.01.2005 19:38:04
Roland
Hallo Beni,
Danke, hab ich verstanden.
Soweit bin ich schon fast zufrieden.
Letzte Frage:
Kann ich die Daten aus den Tabellenblättern anstatt in der letzten Zeile
in Zelle B 2 in "Bilanz" und fortlaufend darunter, also B3, B4, B5 usw.
ausgeben lassen?
Gruß,
Roland
Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
Beni
Hallo Roland,
Gruss Beni

Sub Kopieren_aus_verschiedenen_Tabellenblättern()
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Bilanz" Then
With Sheets("Bilanz")
lz = Cells(2, 2).End(xlDown).Row + 1
If Cells(3, 2) = "" Then lz = 3
If Cells(2, 2) = "" Then lz = 2
Cells(lz, 2) = Sheets(sh).Cells(4, 3)
Cells(lz, 3) = Sheets(sh).Cells(4, 4)
End With
End If
Next sh
End Sub

Anzeige
AW: Kopieren aus verschiedenen Tabellenblättern
10.01.2005 23:35:49
Roland
Sehr gut!
Danke für Deine Unterstützung, ich hab viel gelernt.
Vielleicht bis bald mal wieder.
Gruß,
Roland

Forumthreads zu verwandten Themen

aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 11:22:00
Thread-ID: 1001444
11 Beiträge
Anzeige
Arbeitsblaetter aus Datei in Arbeitsmappe kopieren
Benjamin

Hallo erstmal,
normalerweise lese ich immer nur und finde alle loesungen, diesmal hab ich einfach nichts gefunden.
Ich wuerde gerne als sehr vielen Dateien immer das komplette dritte Arbeitsbaltt kopieren und in einer neuen Arbeitsmappe untereinander einfuegen. Hab auch schon einen ansa...
16.09.2008 06:03:00
Thread-ID: 1009929
2 Beiträge
Anzeige
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Anzeige
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 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
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
Aus diversen Exceldateien einen Wert kopieren
Fabio

Hallo zusammen,
kann mir jemand helfen (vielleicht mit der Lösung) - oder zumindest einen Tipp nach was ich suchen könnte.
Problem:
in einem Verzeichnis liegen knapp 50 Excel-Dateien
ich will in einer neuen Datei (gesamt.xls)
in der Spalte "C" alle Werte aus jeder einzelnen...
13.02.2009 10:26:00
Thread-ID: 1050383
2 Beiträge
Tabellenblätter aus ext. Datei kopieren
Mandy

Hi,
such dringend Hilfe. Ich suche ein Makro, mit dem ich aus Excel heraus den ÖFFNEN-Dialog starten kann, eine externe Excel Tabelle auswählen kann und dann alle darin befindlichen Tabellenblätter in mein Sheet laden kann.
Muss dazu sagen, meine Tabelleblätter, die ich kopieren will, e...
20.03.2009 09:18:22
Thread-ID: 1062047
5 Beiträge
Sheet kopieren, einfügen und umbenennen
Mandy

Hi,
ich muss doch noch mal was fragen:
Ich möchte in meiner Datei von einem sheet einen Kopie machen , neu einfügen und mit Namen benennen. das mach ich so:
Sheets("Temp").Copy after:=Sheets("Temp")
ActiveSheet.Name = "Ablage"
Dazu nun zwei Fragen:
1. Das neue Sheet "Abl...
26.03.2009 22:31:22
Thread-ID: 1064423
5 Beiträge
Daten aus geöffneter Datei kopieren
Mone

Hallo Experten
ich bin wieder mal am "Durchdrehen" :-)
Vielleicht könnt ihr mir mal wieder helfen.
Ich habe eine Datei, die beim öffnen eine weitere Datei (Quelldatei) öffnet. Nun steuer ich mit einem Button ein Formular in der Quelldatei an. Auf diesem Formular ist ein weiterer But...
01.04.2009 19:43:56
Thread-ID: 1066102
8 Beiträge
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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