Tabelle kopieren
12.11.2003 16:47:54
Giuseppe
mir passiert etwas komisches..........
mit Hilfe der Recherche und Macrorecorder habe ich mir ein Code gebastelt.
Sub Makro5()
Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
ActiveWindow.DisplayGridlines = False
BlattName = ActiveCell.Worksheet.Name
ZelleA1 = Cells(1, 1)
Sheets(BlattName).Select
Sheets(BlattName).Name = ZelleA1
End Sub
...und läuft nicht!!! Error: Die Methode 'Paste' für das Objekt '_Worksheet' ist
fehlgeschlagen, und wird die Tabelle ohne Name kopiert (z.B: Tabelle7).
Wenn ich von der kopierte Tabelle d. Makro aufrufe geht es.
Und noch was.... Ab diese Moment alle Makros in meine Symbolleiste die mit eine
Tabelle wahlen zu tun haben gehen nicht mehr.
Was ist in der Code falsch?
Danke im voraus für eure Hilfe
Giuseppe
Anzeige