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

Daten aus einer Tabelle in eine andere kopieren

Forumthread: Daten aus einer Tabelle in eine andere kopieren

Daten aus einer Tabelle in eine andere kopieren
04.09.2007 11:20:00
Manuel
Hallo,
Ich bräuchte ein Makro in einem Excel-File (https://www.herber.de/bbs/user/45668.xls), das ein anderes Excel-File (https://www.herber.de/bbs/user/45667.xls) öffnet, dort nach einem bestimmten Namen sucht, dann alle Zellen rechts von dem Suchbegriff kopiert (wenn in den Zellen etwas drin steht!) und die kopierten Werte dann in das Ausgangsfile (unter dem jeweiligen Tabellenblatt für den gesuchten Namen) in den gelb hinterlegten Bereich einfügt.
Ist so was überhaupt möglich?
Ich habe leider ganz schlechte VBA-Kenntnisse und bin da etwas überfordert…
Danke im Voraus und viele Grüße
Manuel

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
04.09.2007 13:46:00
Daniel
Hi
ich gehe mal davon aus
- daß jeder Name in der Liste nur einmal vorkommt
- der gesuchte Name dem gerade aktiven Tabellenblattnamen entspricht
- immer die 12 Spalten der Monatswerte kopiert werden sollen.
dann gehts recht einfach mit diesem Code:

Sub Namen_kopieren()
Dim strName As String
strName = ActiveSheet.Name
Workbooks.Open "c:\deinPfad\deinDateiname.xls"
If WorksheetFunction.CountIf(ActiveWorkbook.Sheets("Sheet1").Columns(1), strName) = 0 Then
MsgBox "Name: " & strName & " nicht in Liste vorhanden!"
ActiveWorkbook.Close
Exit Sub
End If
With ActiveWorkbook.Sheets("Sheet1").Columns(1)
.Find(what:=strName, lookat:=xlWhole, LookIn:=xlValues).Offset(0, 1).Resize(1, 12).Copy
ThisWorkbook.Sheets(strName).Range("B3").PasteSpecial xlPasteAll
End With
Application.CutCopyMode = False
ActiveWorkbook.Close
End Sub


Gruß, Daniel

Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
04.09.2007 14:40:49
Manuel
Hi Daniel,
erstmal danke für die schnelle Hilfe!
Das funktioniert auch super, allerdings sollen nur die Zellen kopiert werden, die einen Inhalt haben.
Geht das ganze auch, wenn der Tabellenname nicht mit dem gesuchten Namen übereinstimmt? Wenn ja, wie...? ;-)
Danke und Gruß
Manuel

Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
04.09.2007 15:02:34
Daniel
Hi
was soll er denn machen, wenn er einen Namen nicht findet?
einfach einen zufälligen wählen?
zum erstem Punkt:
wie sehen denn die Daten aus? werdem sie von Hand eingegen und sind die Leerfelder wirklich leer (also auch keine Formeln drin?
dann gehts mit dieser kleinen Erweiterung:
.Find(what:=strName, lookat:=xlWhole, LookIn:=xlValues).Offset(0, 1).Resize(1, 12).SpecialCells(xlCellTypeConstants, 23).Copy
Gruß, Daniel

Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
04.09.2007 15:18:00
Manuel
Die Erweiterung ist genau das, wonach ich gesucht habe!! 1000 Dank!
Allerdings fragt er mich, ob die, durch das Makro geöffnete Datei, gespeichert werden soll...
Eigentlich sind die Tabellenblatt-Namen nur Abkürzungen von den gesuchten Namen (jeweils 1. Buchstabe von Vor- und Nachname).
Die gesuchten Namen sind aber auf jeden Fall alle in der Liste enthalten!
Deshalb meine Frage, ob das auch irgendwie anders geht...
Das Ausgabefenster, wenn der Name wirklich nicht enthalten sein sollte, eignet sich da super für...
Danke im Voraus und viele Grüße
Manuel

Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
04.09.2007 15:23:40
Daniel
Hi
du könntest den Namen über eine Inputbox abfragen.
strName = Inputbox("Bitte Namen eingeben")
allerdings brauchst du dafür ne 2. Variable, weil ich die erste variable brauche, um nach dem Öffnen der Datei wieder das ursprungliche Sheet zu öffnen.
allerdings könnte dann der Anwender auch nen Namen eingeben der nicht zum Sheet passt, das ganze ist also nicht ganz sicher
Gruß, Daniel

Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
04.09.2007 16:24:00
Manuel
Hi,
gibt es vielleicht auch die Möglichkeit, dass alles automatisch abläuft?
Sprich, ich drück auf einen Knopf und dann werden alle Tabellenblätter mit den jeweiligen Daten befüllt?
Wieso kommt eigentlich ein "Speichern unter..." Fenster, seitdem ich das Makro mit dem Ergänzung von vorhin - ".SpecialCells(xlCellTypeConstants, 23)" - laufen lasse? Kann man das wieder abschalten?
Danke und Gruß
Manuel

Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
04.09.2007 16:41:24
Daniel
Hi
um es ganz automatisch ablaufen zu lassen, brauchst du eine Tabelle, wo die Namen mit den Sheetnamen auf gelistet sind.
die könnte man dann in einer Schleife durcharbeiten.
oder der Richtige Name steht in jedem Sheet immer an der gleichen Stelle, dann könnte man ihn dort abfragen und um das ganze eine
For each sh in thisworkbook.worksheets ...NEXT - Schleife
einbetten.
das Speichern unterbindet man am besten, in dem man es beim Schließen der Datei mit angibt:

Activeworkbook.close savechanges:=false


Gruß, Daniel

Anzeige
AW: Daten aus einer Tabelle in eine andere kopieren
05.09.2007 09:25:37
Manuel
Wenn zwischen den zu kopierenden Zellen noch versteckte Spalten liegen, wie kann ich dann verhindern, dass diese auch mitkopiert werden?

AW: Daten aus einer Tabelle in eine andere kopieren
05.09.2007 20:30:19
Daniel
Hi
durch den Zusatz .Specialcells(xlCellTypeVisible).
Gruß, Daniel

AW: Daten aus einer Tabelle in eine andere kopieren
06.09.2007 08:44:00
Manuel
1000 Dank! Das war genau das, was ich gesucht habe!
Nochmal Danke für deine Bemühungen!
Viele Grüße
Manuel
Anzeige

Forumthreads zu verwandten Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Anzeige
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Anzeige
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Import von daten aus txt file
daten

Guten Morgen an alle VBA-Aktivisten
Ich hätte mal ne kleine Frage. Ich hab einen Code der es mir ermöglicht innerhalb eines Tabellenblattes über einen Button eine txt-Datei zu öffnen und in eine bestehende Tabelle einzulesen. Leider fängt er immer im txt file ganz oben links an. Wie kann ic...
10.10.2008 09:07:22
Thread-ID: 1015499
6 Beiträge
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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