Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblatt Kopieren und D1 hochzählen

Arbeitsblatt Kopieren und D1 hochzählen
Gerd
Hallo zusammen
Folgendes: Möchte Arbeitsblatt A1 50 mal Kopieren und Zelle D1 um 1 erhöhen (Start 1)
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
Dies habe ich schon aber ohne Zelle D1 erhöhen
Kann mir jemand dies aktualisieren
Vielen Dank
Gerd

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
ohne error,...
22.07.2012 00:18:41
Matze,Matthias
Hallo Gerd,
funktioniert dein Code, 
Sub copyA1()
Dim lngIndex As Long
Application.ScreenUpdating = False
For lngIndex = 2 To 10 'Test
Sheets("A1").Copy AFter:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "A" & lngIndex
Next
Application.ScreenUpdating = True
End Sub
nur wenn schon Sheets vorhanden sind, wird der einen Fehler machen,da
er ja ab lngIndex 2 anfängt zu zählen und die Sheets schon da sind.
Aber Teste mal selbst,
Gruß Matze
AW: ohne error,...
22.07.2012 09:08:05
Gerd
@ Matze
Ja Dein Code funktioniert NUR was icih angesprochen habe das der Wert in D1 erhöht werden soll ist nicht berücksichtigt und darum ging es
Auch der andere Code funktioniert
Vielleich bekommen wir das mit dem Wert noch hin
Gruß
Gerd
Anzeige
muss es nicht 2 to 51 heißen ...
22.07.2012 09:41:38
Matthias
Hallo
Willst Du generell bei 1 anfangen, dann benutze doch die Variable lngIndex-1.
' ...
For lngIndex = 2 To 51
Sheets("A1").Copy AFter:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = "A" & lngIndex
.Range("D1") = lngIndex - 1
End With
Next
' ...

Oder willst Du den Wert aus Sheets("A").Range("D1") um eins erhöhen ?
Ich bin jetzt mal davon ausgegangen, des es nur das Worksheet("A1") in der Mappe gibt
Eine Fehlerroutine würde ich an Deiner Stelle aber später wieder einpflegen.
Gruß Matthias
AW: muss es nicht 2 to 51 heißen ...
22.07.2012 10:03:30
Gerd
Es gibt folgende Mappen
Adressen und A1
Die Mappe A1 soll um 20 (oder 50) erhöht werden (die Anzahl kann ich individuell erhöhen)
Also A1 A2 A3 A4 u.s.w
Der Wert in D1 soll ebenfalls um 1 erhöht werden
Also Mappe A1 in D1 =1;Mappe A2 in D1=2;Mappe A3 in D1=3
Soweit habe ich mich hoffentlich gut ausgedrückt ?
Danke für die Hilfe
Gerd
Anzeige
Der Code von Matthia L.,...
22.07.2012 10:38:22
Matthia
Hallo Gerd,
.....macht genau das was du willst, nimm nur die -1 weg dann passt das mit Zelle D1.
Option Explicit 
Sub CopyA1()
Dim lngIndex As Long
Application.ScreenUpdating = False
For lngIndex = 2 To 10
Sheets("A1").Copy AFter:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = "A" & lngIndex
.Range("D1") = lngIndex
End With
Next
lngIndex = 0
Application.ScreenUpdating = True
End Sub
Gruß Matze
AW: Der Code von Matthia L.,...
22.07.2012 10:45:39
Matthia
Danke jetzt passt es
Gruß
Gerd

299 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Anzeige
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
3 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
mehrere Blätter in andere Mappe kopieren
Jakob

Hallo,
mit den unten angehängten Code kopiere ich das aktuelle Blatt in eine seperate Mappe. Den Code würde ich jetzt gerne so erweitern, daß mehrere Blätter auf einmal in die gleiche Mappe kopiert werden.
Wie müßte der Code aussehen der das bewerkstellig?
Ich Danke Euch schon mal.<...
27.02.2009 14:29:50
Thread-ID: 1054785
5 Beiträge
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
4
4
7
2
6
7
4
4
1
1
2
3
5
6
6
5
5
1
10
8
1
5
7