Hilfe Makorfehler !!
05.11.2002 11:02:04
Manfred
Mit unten angeführten Makro kann ich mit jeweils ein neues
Arbeitsblatt anlegen lassen. Leider sind nur 14 Tabellen
möglich. Danach streickt das Makro.Brauche aber 30 Tabellen.
Sub NeuenTaganlegen()
'
'neues Tabellenblatt als Zwischenspeicher anlegen'
ws = InputBox("Welches Tag (Vortag) soll kopiert werden ?")
Dim X As New Worksheet
Sheets(ws).Copy Before:=Sheets(1)
ActiveSheet.Name = InputBox("Bitte aktuellen Tag eingeben !")
'
End Sub
Anzeige