Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt kopieren und Namen vergeben

Forumthread: Blatt kopieren und Namen vergeben

Blatt kopieren und Namen vergeben
07.05.2007 22:42:22
Markus
Ich möchte mit Hilfe eines Buttons, das Blatt "Muster" kopieren und hinten anhängen.
Das Blatt soll:
1. den Namen des letzten Datensatzes unter Bezug Blatt (in diesem Fall Meier Fr) erhalten
2. sollte der Name beriteits vorhanden sein soll er über eine Abfrage festgelegt werden können, aber dann in Daten unter Betzug Blatt ebenfalls geändert werden.
3. sollen eineige Daten wie z.B.: Name und Vorname des letzten Datensatzes in das neue Blatt übernommen werden
Ich hoffe das sind nicht zuviele Wünsche auf einmal!
Vielen Dank im Voraus
Beispieldatei:
https://www.herber.de/bbs/user/42331.xls

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt kopieren und Namen vergeben
08.05.2007 12:05:00
Niels
Hi Markus,
wenn du Spalte B nur für das Freizeichen brauchst dann lösche die Spalte und schreibe in Spalte C
=VERKETTEN(A3;" ";TEIL(B3;1;2))
Dann kopiere folgendes in ein Modul und Testen.

Sub test()
ld = Sheets(1).[C65536].End(xlUp)
lna = Sheets(1).[A65536].End(xlUp)
lvo = Sheets(1).[B65536].End(xlUp)
For a = 1 To Sheets.Count
If Sheets(a).Name = ld Then ld = InputBox("Blatt vorhanden! Bitte eingeben", , Sheets(a).Name)
Next
Sheets("Muster").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = ld
Sheets(ld).Cells(2, 1).Value = lna
Sheets(ld).Cells(2, 2).Value = lvo
Sheets(1).[C65536].End(xlUp).Value = ld
End Sub


Gruß Niels

Anzeige
;

Forumthreads zu verwandten Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 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
Alle Blätter in andere Mappe kopieren
Doro

Hallo Liebe Profis,
ich möchte gerne alle Tabs aus dem File DatenFile in das File AuswerteFile vor das Tabellenblatt 3 kopieren, und nutze folgenden Code:
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
Fil...
26.01.2009 15:46:00
Thread-ID: 1043923
8 Beiträge
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
3 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
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
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
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 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
Datenübernahme in andere Arbeitsmappe
Uwe

Guten Morgen,
In einer Jahrestabelle (Datum steht in Spalte C) werden Daten für verschiedene Mitarbeiter festgehalten. Diese Daten befinden sich z.B. für den 13.03.09 (Datum steht in C13) in den Zellen E13:AA13. Via VBA habe ich die Möglichkeit beim Öffnen der Datei zum aktuellen Datum zu "...
13.03.2009 08:28:55
Thread-ID: 1059736
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige