AW: mehrere Dateien öffnen im letzes Blatt Makro start
14.06.2019 16:44:20
Andreas
Hallo Nepumuk,
ok. Verstehe.Hier der Code zum anlegen des neuen Blatts (Monat):
Option Explicit
Sub NeuesBlatt()
Dim AnzTB As Integer, TBMinus1 As String, TB1, TBneu, TMP As String, Monat As String
AnzTB = 4 'ab Tabellenblatt 4 stehen die Monate
If Sheets.Count >= AnzTB Then
Set TB1 = Sheets(Sheets.Count)
TBMinus1 = Sheets(Sheets.Count - 1).Name
TMP = "01. " & TB1.Name & " " & Year(Date)
If Not IsDate(TMP) Then
MsgBox " Fehler Blattbenennung: " & TB1.Name ' kein Monatsname
Exit Sub
End If
'nächster Monat
Monat = Format(DateSerial(Year(TMP), Month(TMP) + 1, 1), "MMMM")
'Blatt kopieren
TB1.Copy after:=Sheets(TB1.Name)
Set TBneu = ActiveSheet
'Blatt umbenennen
TBneu.Name = Monat
With TB1.UsedRange
'Formeln aus Vormonat raus
.Value = .Value
End With
'aktuelle Formeln auf Vormonat anpassen
TBneu.Cells.Replace what:="=" & TBMinus1 & "!", Replacement:="=" & TB1.Name & "!", _
lookat:=xlPart, SearchOrder:=xlByRows
Range("D32").Copy
Range("D30").PasteSpecial xlPasteValuesAndNumberFormats
Range("D29").Copy
Range("D31").PasteSpecial xlPasteValuesAndNumberFormats
TB1.Shapes(2).Delete
Else
'wenn nur die Inhaltsblätter da sind
MsgBox "Blattfehler: Startmonat oder ein Inhaltsblatt fehlt"
End If
TBneu.Range("G3") = Monat
'Call Daten_Rechnungen_holen
End Sub
Gruß
Andreas