Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblatt Kopieren

Forumthread: Arbeitsblatt Kopieren

Arbeitsblatt Kopieren
Gerd
Hallo zusammen,
Ich habe ein Arbeitsblatt (Tabelle)erstellt mit dem Namen A1. Dies möchte ich jetzt50 mal Kopieren mit aufstegender Nummerierung (A1;A2;A3 u.s.w.)in der gleichen Datei (Prüfung.xls)
Kann mir dabei jemand helfen.
Danke für die (hoffentlichen) Antworten
Gerd
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Arbeitsblatt Kopieren
20.01.2012 11:33:07
Josef

Hallo Gerd,
Sub copyA1()
  Dim lngIndex As Long
  
  On Error GoTo ErrExit
  Application.ScreenUpdating = False
  For lngIndex = 2 To 50
    Sheets("A1").Copy AFter:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "A" & lngIndex
  Next
  ErrExit
  Application.ScreenUpdating = True
End Sub



« Gruß Sepp »

Anzeige
AW: Arbeitsblatt Kopieren
20.01.2012 11:38:24
Gerd
Habe diesen Code eingegeben und bekomme eine Fehlermeldung bei
ErrExit
Gruß
Gerd
AW: Arbeitsblatt Kopieren
20.01.2012 11:40:15
Gerd
Habe diesen Code eingegeben und bekomme eine Fehlermeldung bei
ErrExit
Gruß
Gerd
AW: Arbeitsblatt Kopieren
20.01.2012 13:03:39
Gerd
...Kann mir jemand helfen
Gruß
Gerd
Anzeige
AW: Arbeitsblatt Kopieren
20.01.2012 13:32:48
Rudi
Hallo,
mach einen : hinter ErrExit. Hat Sepp vergessen.
ErrExit:
End Sub
Gruß
Rudi
AW: Arbeitsblatt Kopieren
20.01.2012 14:27:27
Gerd
Jetzt kommt hinter TRUE eine Fehlermeldung 
Sub copyA1()
Dim lngIndex As Long
On Error GoTo ErrExit
Application.ScreenUpdating = False
For lngIndex = 2 To 50
Sheets("A1").Copy AFter:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "A" & lngIndex
Next
ErrExit:
End Sub

Application.ScreenUpdating = True
End Sub
Anzeige
nur 1 End Sub! orT
20.01.2012 14:37:51
Rudi
Herr, schmeiß Hirn vom Himmel ;-)
AW: nur 1 End Sub! orT
21.01.2012 09:49:07
Gerd
Vielen Dank für die Hilfe es funktioniert.
Gruß
Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige