Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon TR007 vom 22.12.2019, 08:23 Options
Aktuelles Tabellenblatt in Excel mit Makro kopieren
Hallo
ich habe folgendes Problem:
Ich habe in Excel eine Wochenplanung erstellt, die einzelnen Wochen sollen auf einzelnen Tabellenblättern erscheinen.. so weit so gut.
Nun möchte ich ein Makro erstellen, mit dem die aktuelle Woche bzw das akzuelle Tabellenblat mit allen eitragen in ein neues kopieren kann.
Die Makros, die ich bis jetzt erstellt habe kopieren mir aber nur das Blatt, in dem ich das Makro erstellt habe...
wie kann ich das machen, dass ich entweder auswählen kann welches Blatt ich kopiern will, oder noch besser, dass das Blatt kopiert wird, in dem ich mich gerade befinde?
nesten Dank für einen Tip
TR007
ich habe folgendes Problem:
Ich habe in Excel eine Wochenplanung erstellt, die einzelnen Wochen sollen auf einzelnen Tabellenblättern erscheinen.. so weit so gut.
Nun möchte ich ein Makro erstellen, mit dem die aktuelle Woche bzw das akzuelle Tabellenblat mit allen eitragen in ein neues kopieren kann.
Die Makros, die ich bis jetzt erstellt habe kopieren mir aber nur das Blatt, in dem ich das Makro erstellt habe...
wie kann ich das machen, dass ich entweder auswählen kann welches Blatt ich kopiern will, oder noch besser, dass das Blatt kopiert wird, in dem ich mich gerade befinde?
nesten Dank für einen Tip
TR007
Antwort 1 von Beverly vom 22.12.2019, 09:27 Options
Hi,
ich kenne leider deinen Code nicht, aber versuche es mal mit ActiveSheet.Copy. Vielleicht hilft auch schon, wenn du deinen Code in ein allgemeines Modul kopierst.
Bis später,
Karin
ich kenne leider deinen Code nicht, aber versuche es mal mit ActiveSheet.Copy. Vielleicht hilft auch schon, wenn du deinen Code in ein allgemeines Modul kopierst.
Bis später,
Karin
Antwort 2 von fedjo vom 22.12.2019, 11:37 Options
Hallo TR007,
code in ein Modul einfügen:
Option Explicit
Sub Blatterstellen()
Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
ActiveSheet.Range("A1:D38").Copy
neu = InputBox("Bitte Namen des neuen Arbeitsblattes eingeben:")
For Each x In ActiveWorkbook.Sheets
If x.Name = neu Then
mldg = "Blattname existiert bereits!"
stil = vbCritical + vbOKOnly
title = "Achtung"
ergebnis = MsgBox(mldg, stil, title)
Exit Sub
End If
Next x
Sheets.Add
ActiveSheet.Name = neu
Sheets(neu).Select
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
End Sub
Gruß
fedjo
code in ein Modul einfügen:
Option Explicit
Sub Blatterstellen()
Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
ActiveSheet.Range("A1:D38").Copy
neu = InputBox("Bitte Namen des neuen Arbeitsblattes eingeben:")
For Each x In ActiveWorkbook.Sheets
If x.Name = neu Then
mldg = "Blattname existiert bereits!"
stil = vbCritical + vbOKOnly
title = "Achtung"
ergebnis = MsgBox(mldg, stil, title)
Exit Sub
End If
Next x
Sheets.Add
ActiveSheet.Name = neu
Sheets(neu).Select
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
End Sub
Gruß
fedjo
Ähnliche Themen
Zeilen, die in Spalte 9 ein X enthalten in anderes Blatt kopieren
AlexP123 07.04.2007 - 147 Hits - 8 Antworten
per makro kopieren
dvdh 26.07.2007 - 47 Hits - 1 Antwort
kopieren mit Autofilter
Prack 17.10.2007 - 116 Hits - 4 Antworten
Makro ausführen auf 2. Tabellenblatt
hpeter 12.02.2008 - 71 Hits - 10 Antworten
Brauche Tipps für einen individuellen VBA-Code
varginator 03.04.2008 - 118 Hits - 14 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
