Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro,dass neues Excelsheet öffnet und benennt

Makro,dass neues Excelsheet öffnet und benennt
15.09.2015 21:05:59
Hobbit
Guten Abend!
Ich habe ein Makro erstellt, dass automatisch ein neues Excelsheet öffnet, dieses umformatiert etc. Den Code habe ich leider nicht parat, da ich an einem anderen Rechner bin. Das Makro funktioniert, allerdings würde ich gerne dass das Makro dem Excelsheet den Namen der aktuellen Kalenderwoche gibt bzw - wenn das möglich ist - noch einen Zusatz davor, beispielsweise : ABC-KW30
Freue mich über jede Hilfe!
Viele Grüße

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makro,dass neues Excelsheet öffnet und benennt
15.09.2015 22:15:34
Nepumuk
Hallo,
ein Beispiel:
Public Sub Beispiel()
    Dim objWorksheet As Worksheet
    Set objWorksheet = Worksheets.Add(Before:=Worksheets(1))
    objWorksheet.Name = "ABC-KW" & CStr(DatePart("ww", Date, vbMonday, vbFirstFourDays))
End Sub

Gruß
Nepumuk

Anzeige
OffTopic
15.09.2015 22:49:30
Alfons
Hi Nepumuk,
sag mir doch bitte mal, mit welchem Toll formatierst Du deinen VBA-Code hier im Forum?
Ich bin da nicht mehr auf dem Laufenden.
Oder ist das noch echte Handarbeit?
Danke und Gruß
Alfons
http://vba1.de
-------------------------------------------------------------------

AW: OffTopic
15.09.2015 23:43:44
Nepumuk
Hallo,
das ist eine DLL die ich mal von Peter Haserodt bekommen habe.
Gruß
Nepumuk

AW: OffTopic
16.09.2015 00:27:43
Alfons
ach, ich glaube das hast Du mir schon mal gesagt.
alles klar und danke dir
Gruß
Alfons
http://vba1.de
-------------------------------------------------------------------

Anzeige
Makro,dass neues Excelsheet öffnet und benennt
16.09.2015 14:43:02
karin
Vielen Dank,
ich habe es gerade versucht. Sorry habe mich falsch ausgedrückt. Nicht das Tabellenblatt soll benannt werden, sondern die komplette Excelmappe.
Ist das möglich?

Makro,dass neues Excelsheet öffnet und benennt
16.09.2015 15:48:44
Nepumuk
Hallo,
dann zeig mal den Code den du schon hast.
Gruß
Nepumuk

Makro,dass neues Excelsheet öffnet und benennt
21.09.2015 13:31:09
karin 

Sub Makro1()
'öffnet neue Arbeitsmappe und liest Daten ein.
Dim wkbMappe As Workbook
Set wkbMappe = Workbooks.Add
Dim oTargetBook As Object
Dim oSourceBook As Object
Dim sPfad As String
Dim sDatei As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'Keine Fehlermeldungen anzeigen
'Schritt 1: Arbeitsmappe festlegen, in die die neuen Sheets eingefügt werden
Set oTargetBook = ActiveWorkbook
'Schritt 2: Schleife über alle Excel Dateien in einem Verzeichnis
sPfad = "Code"
sDatei = Dir(CStr(sPfad & "*.xl*")) 'Alle Excel Dateien
Do While sDatei  ""
'Schritt 3: öffnen der Datei und Datenübertragung
Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, True) 'nur lesend öffnen
'Es wird immer das erste Tabellenblatt Sheets(1) kopiert!
oSourceBook.Sheets(2).Copy After:=oTargetBook.Sheets(oTargetBook.Sheets.Count)
On Error Resume Next
'Arbeitsblattname wird der Dateiname
oTargetBook.Sheets(oTargetBook.Sheets.Count).Name = sDatei
'Wenn ein Fehler aufgetreten ist, wird dieser resettet
If Err.Number  0 Then
Err.Number = 0
Err.Clear
End If
On Error GoTo 0
'Schritt 4: Datei wieder zu machen und nächste Schleifenrunde
oSourceBook.Close False 'nicht speichern
'Nächste Datei
sDatei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True 'Fehlermeldungen wieder anzeigen
'Variablen aufräumen
Set oTargetBook = Nothing
Set oSourceBook = Nothing
End Sub
Das ist mein bisheriger Code. VG

Anzeige
AW:Makro,dass neues Excelsheet öffnet und benennt
21.09.2015 15:21:53
Nepumuk
Hallo,
und oTargetBook ist dasjenige welches du speichern willst?
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige