Microsoft Excel

Herbers Excel/VBA-Archiv

Arbeitsblatt Kopieren | Herbers Excel-Forum


Betrifft: Arbeitsblatt Kopieren von: Gerd Schanz
Geschrieben am: 20.01.2012 11:26:47

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

  

Betrifft: AW: Arbeitsblatt Kopieren von: Josef Ehrensberger
Geschrieben am: 20.01.2012 11:33:07


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 »



  

Betrifft: AW: Arbeitsblatt Kopieren von: Gerd Schanz
Geschrieben am: 20.01.2012 11:38:24

Habe diesen Code eingegeben und bekomme eine Fehlermeldung bei

ErrExit

Gruß
Gerd


  

Betrifft: AW: Arbeitsblatt Kopieren von: Gerd Schanz
Geschrieben am: 20.01.2012 11:40:15

Habe diesen Code eingegeben und bekomme eine Fehlermeldung bei

ErrExit

Gruß
Gerd


  

Betrifft: AW: Arbeitsblatt Kopieren von: Gerd
Geschrieben am: 20.01.2012 13:03:39

...Kann mir jemand helfen

Gruß
Gerd


  

Betrifft: AW: Arbeitsblatt Kopieren von: Rudi Maintaire
Geschrieben am: 20.01.2012 13:32:48

Hallo,
mach einen : hinter ErrExit. Hat Sepp vergessen.

ErrExit:
End Sub

Gruß
Rudi


  

Betrifft: AW: Arbeitsblatt Kopieren von: Gerd Schanz
Geschrieben am: 20.01.2012 14:27:27

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


  

Betrifft: nur 1 End Sub! orT von: Rudi Maintaire
Geschrieben am: 20.01.2012 14:37:51

Herr, schmeiß Hirn vom Himmel ;-)


  

Betrifft: AW: nur 1 End Sub! orT von: Gerd Schanz
Geschrieben am: 21.01.2012 09:49:07

Vielen Dank für die Hilfe es funktioniert.

Gruß
Gerd


Beiträge aus den Excel-Beispielen zum Thema "Arbeitsblatt Kopieren"