ich wuerde gerne per Macro eine neue Tabelle in der bestehenden Exceldatei einfuegen. Allerdings soll der Name der Tabelle nicht Tabelle1 heissen sondern das aktuelle Datum mit Uhrzeit (z.B. 2-45-51 PM -- 30-Jan-2006).
Paul
Sub Datum()
Workbooks.Add xlWBATWorksheet
Sheets(1).Name = Format(Now(), "hh-mm-ss dd-mm-yyyy")
End Sub
Sub AddTabelle()
Sheets.Add After:=Sheets(Worksheets.Count), Type:=xlWorksheet
Sheets(Worksheets.Count).Name = Format(Now(), "h-mm-ss AM/PM -- DD-MMM-YYYY")
End Sub
Sub AddTabelle()
Sheets.Add After:=Sheets(Worksheets.Count), Type:=xlWorksheet
Sheets(Worksheets.Count).Name = Format(Now(), "h-mm-ss AM/PM -- DD-MMM-YYYY")
Sheets("Aktuell").Cells(1, 1).Formula = "=SUMME('" & _
Sheets(2).Name & ":" & Sheets(Worksheets.Count).Name & "'!A1)"
End Sub
Sub Summieren()
Sheets("Active").Cells(1, 2).Formula = "=SUM('" & _
Sheets(2).Name & ":" & Sheets(Worksheets.Count).Name & "'!B1)"
Sheets("Active").Cells(2, 2).Formula = "=SUM('" & _
Sheets(2).Name & ":" & Sheets(Worksheets.Count).Name & "'!B2)"
End Sub