Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderung Formel

Änderung Formel
06.06.2017 12:55:33
Mark
Hallo Leute,
Matthias war so nett und hat mir eine VBA Programm für mein Problem geschrieben.
Klappt auch alles wunderbar. Mit dem Programm bin ich in der Lage eine Kopie von jeder Kopie zu erstellen UND automatisch Werte aus Zellen vom Tabellenblatt zuvor mit rüber zu nehmen!
Was mir jetzt kopfzerbrechen bereitet:
Habe im Nachhinein ein weiteres Tabellenblatt (Spielabschnitt) an den Anfang gehängt.
Jetzt funktioniert das Programm nicht mehr.
Das Programm erstellt jetzt anstatt Kopie2 eine Kopie3.
Das Programm sieht das vorangestellte Tabellenblatt (Spielabschnitt) als Kopie2 vermute ich.
Was muß ich im Programm ändern? Hat wer eine Idee.
Hab mal die Datei angehängt.
Funktionieren tut die Datei, wenn ihr das Tabellenblatt(Spielabschnitt) löscht.
Aber würde es gerne so haben, dass das Programm auch mit diesem zusätzlichen Tabellenblatt funktioniert.
Gruss Markus
https://www.herber.de/bbs/user/114050.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderung Formel
06.06.2017 13:14:21
fcs
Hallo Mark,
probiere es mal so: 
Sub Kopie()
Dim wks As Worksheet
On Error Resume Next
Sheets("Spielvordruck").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Kopie" & Sheets.Count - 2
Set wks = ActiveSheet
With wks
.Range("F45").Copy
Range("A45").PasteSpecial Paste:=xlPasteValues
.Range("E28").Copy
Range("B28").PasteSpecial Paste:=xlPasteValues
Range("C8").PasteSpecial Paste:=xlPasteValues
.Range("G38").Copy
Range("G33").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
LG
Franz
AW: Änderung Formel
06.06.2017 15:13:23
Mark
Hallo Franz,
danke!
Habs eben getestet. Es wird eine Kopie2 erzeugt.Das ist schon mal gut.
Aber die Werte werden nicht mitübernommen.
Anzeige
AW: Änderung Formel
06.06.2017 17:17:36
Matthias
Hallo
Sollte doch so funktionieren:
   Sheets("Spielvordruck").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Kopie" & Sheets.Count - 2
With Worksheets("Kopie" & Sheets.Count - 3)
Gruß Matthias
AW: Änderung Formel
07.06.2017 08:27:15
Mark
super! Danke funktioniert!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige