Arbeitsblatt Kopieren

Forumthread: Arbeitsblatt Kopieren
8 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: 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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Arbeitsblatt Kopieren

Josef
AW: Arbeitsblatt Kopieren

Gerd
AW: Arbeitsblatt Kopieren

Gerd
AW: Arbeitsblatt Kopieren

Gerd
AW: Arbeitsblatt Kopieren

Rudi
AW: Arbeitsblatt Kopieren

Gerd
nur 1 End Sub! orT

Rudi
AW: nur 1 End Sub! orT

Gerd

AW: Arbeitsblatt Kopieren

20.01.2012 12: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 »

AW: Arbeitsblatt Kopieren

20.01.2012 12:38:24

Gerd

Habe diesen Code eingegeben und bekomme eine Fehlermeldung bei
ErrExit
Gruß
Gerd

AW: Arbeitsblatt Kopieren

20.01.2012 12:40:15

Gerd

Habe diesen Code eingegeben und bekomme eine Fehlermeldung bei
ErrExit
Gruß
Gerd

AW: Arbeitsblatt Kopieren

20.01.2012 14:03:39

Gerd

...Kann mir jemand helfen
Gruß
Gerd

AW: Arbeitsblatt Kopieren

20.01.2012 14:32:48

Rudi

Hallo,
mach einen : hinter ErrExit. Hat Sepp vergessen.
ErrExit:
End Sub
Gruß
Rudi

AW: Arbeitsblatt Kopieren

20.01.2012 15: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

nur 1 End Sub! orT

20.01.2012 15:37:51

Rudi

Herr, schmeiß Hirn vom Himmel ;-)

AW: nur 1 End Sub! orT

21.01.2012 10:49:07

Gerd

Vielen Dank für die Hilfe es funktioniert.
Gruß
Gerd