Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1508to1512
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
Inhaltsverzeichnis

Datei speichern unter in vorhandener Datei+Sheet

Datei speichern unter in vorhandener Datei+Sheet
15.08.2016 18:51:44
Ben
muss es doch noch etwas abgeändert haben weiß aber nicht wie. und zwar möchte ich das erstellte Sheetblatt (Tabelle1) schon für jeden Tag im voraus vorbereiten können und das in einer Datei abspeichern und aber auch anschließend in dieser Datei weiter Sheets einfügen kann.
Ein Beispiel:
Wir haben den Monat September und der hat 30 TAge. Jetzt mach ich in der ersten woche 5 Blätter(Sheets Tabelle1)
Tag1/ Tag2/ Tag3 usw.... fertig und möchte die datei speichern Unter für den Monat September.
jetzt kommt aber noch dazu wenn ich darauf die woche wieder die Arbeitsblätter fertig machen möchte
Tag8/ TAg9/ Tag10.... usw.... sollen aber mit in der Datei September mit eingefügt werden so das ich am ende den ganzen Moant jabe mit den 30 Tagen. wie mache ich das am beste.
bisher hatte ich es so aber das ich ja nicht was ich möchte. Hatte erst immer einen TAg im vorraus. aber will ja wie oben beschrieben. wäre dankbar für eure hilfe
Private Sub CommandButton18_Click()
Dim oWs As Worksheet
Set oWs = Workbooks("Mitarbeiter Kalender_2016.xlsm").Sheets("Tabelle1")
With Workbooks.Open(Filename:="C:\Users\r300149\Desktop\" &format(date + 1,"MMMM") &". _
xlsm")
.Worksheets.Add(after:=.Sheets(.Sheets.Count)).Name = Format(Date + 1, "DD")
ActiveWindow.DisplayGridlines = False
oWs.Cells.Copy .Sheets(.Sheets.Count).Range("A1")
.Close True 'speichern und schließen
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Datei speichern unter in vorhandener Datei+Sheet
16.08.2016 02:03:00
fcs
Hallo Ben,
du kannst versuchen den 1. und letzten Tag für den du ein Blatt anlegen möchtest per Input-Boxen einzugeben.
Per For-Next-Schleife wird dann die entsprechende Anzahl Blätter angelegt.
Gruß
Franz
Private Sub CommandButton18_Click()
Dim oWs As Worksheet
Dim wks As Worksheet
Dim Tag As Integer, Tag1 As Integer, Tag2 As Integer, Tag_L As Integer
Dim wkb As Workbook
Dim bolSave As Boolean
Set oWs = Workbooks("Mitarbeiter Kalender_2016.xlsm").Sheets("Tabelle1")
Set wkb = Workbooks.Open(Filename:="C:\Users\r300149\Desktop\" _
& Format(Date + 1, "MMMM") & ".xlsm")
With wkb
'letzten Tag in Mappe ermitteln
For Each wks In wkb.Worksheets
If IsNumeric(wks.Name) And Len(wks.Name)  Tag_L Then Tag_L = Val(wks.Name)
End If
Next
Eingabe_Tag1:
Tag1 = Application.InputBox( _
"Start-Tag ab dem Blätter angelegt werden sollen", _
"Tages-Blätter einfügen", Tag_L + 1, Type:=1)
If Tag1  0 Then
Eingabe_Tag2:
Tag2 = Application.InputBox( _
"Tag bis zu dem Blätter angelegt werden sollen", _
"Tages-Blätter einfügen", Tag1, Type:=1)
If Tag2 = 0 Then
'Abgebrochen
ElseIf Tag2  0 Then
If Tag2 >= Tag1 Then
For Tag = Tag1 To Tag2
.Worksheets.Add(after:=.Sheets(.Sheets.Count)).Name _
= Format(Tag, "00")
ActiveWindow.DisplayGridlines = False
oWs.Cells.Copy .Sheets(.Sheets.Count).Range("A1")
Next
bolSave = True
Else
MsgBox "Ende-Tag muss >= Start-Tag sein!!!"
GoTo Eingabe_Tag2
End If
Else
MsgBox "Ende-Tag muss >= " & Tag1 & " und = " & Tag_L + 1 & "  und 

Anzeige
AW: Datei speichern unter in vorhandener Datei+Sheet
16.08.2016 08:22:24
Ben
Hallo Franz,
super ich danke Dir. Genauso!!! Perfekt.
Danke Danke Danke :)

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige