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

Makro für abspeichern einer Tabelle mit Zellnamen

Forumthread: Makro für abspeichern einer Tabelle mit Zellnamen

Makro für abspeichern einer Tabelle mit Zellnamen
15.01.2008 15:57:00
Horst
Hallo,
ich habe ein folgendes kleines Problem:
Ich habe ein Tabellenblatt ("Std_Woche") in dem in den Zellen A6:AG12 Werte stehen, die ich wöchentlich eingeben muss.
Diese Daten möchte ich per Makro nach der Eingabe in einem neuen Tabellenblatt bzw. vorhandenen Tabellenblatt abspeichern. Dieses neue bzw. vorhandene Tabellenblatt soll die Bezeichnung der jeweiligen Kalendarwoche (In dem Tabellenblatt steht in Zelle B3 der Wert für die Kalendarwoche). Die kopierten Werte sollen jeweils an das Ende der Tabelle anghängt werden.
Vielen Dank im Vorraus!

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für abspeichern einer Tabelle mit Zellna
16.01.2008 10:43:23
Thorsten_Z
Moin Horst,
also ein neues Tabellenblatt legst du ja mit "Sheets.Add" an.
Wenn du zu einem Vohandenen Tabellenblatt wechseln willst: sheets("DeinTabellenblatt").select.
Hiermit suchst du die erste freie Zelle in Spalte A und wählst sie aus:
Dim iRow as integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & iRow+1).select
Und hiermit speicherst du die ganze Mappe mit dem Namen in Zelle B3
ActiveWorkbook.SaveAs Filename:= _
"C:\Temp\ " & Sheets("Std_Woche").Range("B3") & ".xls"
Das Makro könnte also so aussehen:
sub neue Daten()
Dim iRow as integer
Range(A6:AG12).select
selection. copy
sheets("DeineArbeitsmappe").select
Dim iRow as integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & iRow+1).select
selection.paste
ActiveWorkbook.SaveAs Filename:= _
"C:\Temp\ " & Sheets("Std_Woche").Range("B3") & ".xls"
"Man kann zu 90% auf select Anweisungen Verzichten" Ich kann das leider noch nicht :-)
vieleicht hilft dir das ja weiter. Rückmeldung wäre nett.
Gruß
Thorsten
Anzeige

Forumthreads zu verwandten Themen

Bei Click auf Namen Tabelle mit Namen Offnen
juergen

Hallo
Ich brauche mal wieder eure Hilfe.
Ich habe folgendes Problem:
Ich habe eine Tabelle wo ich Namen eintragen möchte ,dann bei bestätigung eine neue Tabelle mit dem eingetragenen Namen erstellen lassen. Sowei schon alles O.K
Nun zum Problem Wenn auf der Haupttabelle schon...
16.12.2008 21:00:00
Thread-ID: 1033428
12 Beiträge
Tabellenblätter mit gleichen Namen löschen
Thomas

Hallo liebe Gemeinde
Einen schönen Tag zusammen
Es geht einfach nicht weiter habe einen Knoten im Kopf.
Wäre nett wenn Ihr euch das Problem .mal anschaut.
Durch eine Routine wird das Tabellenblatt 1 Importiert.
Wenn der User es möchte kann er selbstverständlich immer wieder...
26.05.2009 12:36:29
Thread-ID: 1077360
7 Beiträge
Tabelle mit Variablennamen wechseln
Andi

Hallo, kann mir jemand sagen, wie ich im folgenden Listing in der letzten Zeile das Tabellenblatt wechseln kann?With Application.FileSearch
.LookIn = "Z:\Anw\kore\excel\"
.SearchSubFolders = True
.FileName = "*sel-ad.xls"
If .Execute > 0 Then
MsgBox "Es wu...
02.05.2002 16:24:45
Thread-ID: 117918
3 Beiträge
Tabellenblatt per Makro mit Monatsnamen versehen
Michael

Hallo,
ich möchte gern den Namen des aktuellen Tabellenblattes (entweder per Button oder per Stichtag z.B. am Monatsende) umbenennen. Das Tabellenblatt heißt Patchday und soll nach den Bedingungen s.o, auf Patchday_Januar usw. umbenannt werden.
Könnte mir jemand den Code dazu liefern ?...
27.09.2010 15:05:02
Thread-ID: 1179576
5 Beiträge
Namen mit =Tabelle1!#BEZUG! löschen
Stef@n

Hallo Excel-Freunde
ich aktualisiere von Zeit zu Zeit eine Datei, in der auch Namen vergeben sind.
Dabei werde die alten "Namen-svergaben" unter
- Namen - definieren
mit einem Fehler bei
- Bezieht sich auf:
ausgewiesen - z.Zt. mehrfach.
Name
Name_1
Name_2
21.03.2011 14:22:14
Thread-ID: 1206660
14 Beiträge
leeres tabellenblatt mit namen einfügen
rahel

hi zusammen,
wie kann ich ein leeres tabellenblatt einügen und ihm direkt schon einen festgelegten namen zuordnen?
gruss, rahel
01.07.2002 15:11:35
Thread-ID: 132746
3 Beiträge
Tabellenblätter zusammenkopieren mit Tabellennamen
Stefan

Hallo zusammen,
ich habe hier im Forum schon ein hilfreiches Makro gefunden, dass den ersten Teil meiner Problemstellung sehr gut erledigt.
Mehrere Tabellenblätter mit gleichem Spaltenaufbau und jeweils hunderten von Zeilen werden dadurch auf einem Blatt untereinanderkopiert - soweit gu...
12.12.2014 10:53:21
Thread-ID: 1397528
7 Beiträge
Zählen der Tabellen mit numerischem Namen
Erich

Hallo zusammen
Dank einigen Foreneinträgen, habe ich was basteln können. Nun habe ich einen keinen Schönheitsfehler, den ich gerne anders lösen würde.
Ich definiere die zu druckenden/speichernden Tabellen via Anzahl Worksheets (TotTab) abzüglich Anzahl fixer Tabellen welche nicht numeri...
17.03.2015 14:31:24
Thread-ID: 1415488
3 Beiträge
Anzeige
Tabellen blat mit Namen aus Zelle auswählen
Christian

Hallo zusammen,
Ich bin gerade an einer Formel dran, die ein neues Datenblatt erstellt mit dem Namen aus einer Zelle und anschließend soll in die Zelle "A5" ein Wert kopiert werden:
Sub Rechnung() Titel = Sheets(1).Range("N19").Value Sheets("Vorlage").Select Sheets("Vorlage").Copy After...
30.01.2016 22:49:28
Thread-ID: 1472237
5 Beiträge
Tabellen mit ihren Namen ansprechen
Torsten

Ich möchte gerne zwei Tabellenblätter gleichzeitig ansprechen.
Das klappt auch bereits mit folgenden Code: Sheets(Array("Blatt1", "Blatt2")).Select Sheets("Blatt1").Activate
Jedoch sind die Blattnamen vom Nutzer veränderbar, was zum Problem beim Markodurchlauf führt.
Ich möchte...
03.09.2016 15:47:42
Thread-ID: 1512765
4 Beiträge
neues Tabellenblatt mit vorausgewähltem Namen
Julia
Hallo alle zusammen
Ich habe mehrere Tabellenblätter.
Diese möchte ich mit dem Namen benennen, der sich aus dem Text der Zelle A2 & Zelle B2 des jeweiligen Blattes ergibt.
Wenn es aber mal vorkommt, dass der Text aus "A2&B2" mit dem Text "A2&B2" eines anderen Blattes übereinstimmt, d...
14.12.2016 05:44:49
Thread-ID: 1529981
4 Beiträge
Tabelle mit festen Namen+Speicherdatum abspeichern
Andi


Hallo, habe ein kleines Problem mit dem Code. Wollte ihn erweitern, so das noch ein weiteres Sheets zusätzlich mit dem Speicherdatum als .xlsx gleich mit in dem ausgewählten Ordner gespeichert wird. Das Blatt befindet sich mit in der geöffneten Arbeitsmappe.
Sub Speichern_in_PDF_XLSX...
14.03.2017 20:59:29
Thread-ID: 1547436
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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