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

Tabellenblätter kopieren und umbenennen mit Mokro

Forumthread: Tabellenblätter kopieren und umbenennen mit Mokro

Tabellenblätter kopieren und umbenennen mit Mokro
14.11.2016 15:00:19
Josef
Hallo Excelfreunde,
ich habe ein Programm gemacht für Kundendienst bei der Lebenshilfe um es im Dezember um ein neues Jahr zu ergänzen soll das alte Jahr und die Tabellenblätter m benannt werden 2016 2017 2018 USW. ich hoffe ihr könnt mich unterstützen
Gruß Josef
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter kopieren und umbenennen mit Mokro
15.11.2016 06:16:45
fcs
Hallo Josef,
das Umstellen der Blattnamen geht mit folgendem Makro.
Für das ändern des altn Jahres sind zusätzliche Informationen erforderlich.
- in welchen Zellen steht das alte Jahr?
- in welchen Blättern muss das alte Jahr geändert
- müssen Jahreszahlen auch Formeln geändert werden?
Gruß
Franz 
Sub Auf_naechstes_Jahr_mstellen()
Dim wks As Worksheet
Dim wkb As Workbook
Dim strName As String
Dim Jahr As Long, Jahr_Min As Long, Jahr_Max As Long
'Blätter umbenenen
Set wkb = ActiveWorkbook
'1. und letztes Jahr in den Blattnamen ermitteln
For Each wks In wkb.Worksheets
strName = wks.Name
If Len(strName) = 4 And IsNumeric(strName) Then
Jahr = Val(strName)
If Jahr_Min = 0 And Jahr_Max = 0 Then
Jahr_Min = Jahr
Jahr_Max = Jahr
Else
If Jahr_Min > Jahr Then Jahr_Min = Jahr
If Jahr_Max  0 And Jahr_Max  0 Then
For Jahr = Jahr_Max To Jahr_Min Step -1
wkb.Worksheets(Format(Jahr, "0000")).Name = Format(Jahr + 1, "0000")
Next
End If
End Sub

Anzeige
AW: Tabellenblätter kopieren und umbenennen mit Mokro
17.11.2016 14:56:48
Josef
danke habe es anders gelöst brauche die Blätter nicht mehr umbenennen kopiere die daten vom Dezember in den januar und dein Makro kopieren und aufheben
Josef

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
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
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Anzeige
Diagramm mit VBA ohne Bezüge kopieren
Dagmar

Hallo VBA-Experten,
ich kopiere per VBA den Inhalt eines Vorlagenblattes (nicht das Blatt selber, das geht nicht, weil die Copy-Methode nur begrenzt durchführbar ist) und dort ist auch ein Diagramm enthalten. Dummerweise bleiben beim Kopieren die festen Bezüge erhalten und verweisen so auf...
10.12.2008 07:43:00
Thread-ID: 1031557
4 Beiträge
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Formelbezug ändert sich bei kopieren von Zellen
Zellen

Hallo zusammen,
ich habe ein Tabellenblatt erstellt, in dem durch mehrere Nutzer Datensätze in Zeilen eingegeben werden. Gleichzeitig sind in die Zeilen schon Formeln eingetragen und per Blattschutz gegen versehentliche Änderungen des Users geschützt.
Wird nun eine Zelle kopiert, ändern...
27.10.2009 22:25:08
Thread-ID: 1112615
4 Beiträge
Fehlermeldung bei Tabellenkopieren mit Makro
herbi

Hallo
ich habe ein Makro welches mir den Inhalt aller Tabellenblätter einer Datei der Reihe nach in ein extra Tabellenblatt "work" kopiert. Dabei wird der Inhalt von Tabellenblatt X ab A1 in das Tabellenblatt work ab Position B1 eingefügt. In Spalte A kommt vor jede Zeile der Name des Tabe...
26.01.2010 16:36:55
Thread-ID: 1133071
2 Beiträge
Tabellenblatt kopieren ohne Ref zu Originaltab
steffen.f

Hallo zusammen,
ich war schon glücklich, dass ich es geschafft habe, mit folgendem Code aus einer Vorlage ein Tabellenblatt in ein Workbook zu kopieren, in dem gerade gearbeitet wird.
Windows(arbeit).Activate
Sheets(Sheets.Count).Activate
s = Sheets.Count
ActiveSheet.Rows(2...
09.02.2010 11:34:24
Thread-ID: 1136926
3 Beiträge
Tabellen vergleichen, kopieren best. Zellinhalte
Markus

Hallo, liebe Excel-Spezialisten !
Ich habe diesen Beitrag bereits gestern in´s Forum gestellt - leider habe ich keine einzige Antwort erhalten (war wahrscheinlich schon zu spät); deshalb versuch ich´s nochmal:
Ich bin auf der Suche nach einem Makro das folgendes machen sollte:
Ich h...
23.04.2010 14:29:16
Thread-ID: 1153350
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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