Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige