Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1228to1232
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
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich kopieren, in neues Blatt einfügen.

Bereich kopieren, in neues Blatt einfügen.
Chris
Hallo zusammen,
ich habe mir folgendes Makro geschrieben, dass mir ein neues Tabellenblatt erzeugt und den Name des Blattes aus einer Zelle liest. Läuft soweit.
Nun bräuchte ich noch den Zusatz, dass vom Ausgangsblatt ("Tabelle1"), der Bereich D1:F28 kopiert wird und
jeweils in das neu erzeugte Tabellenblatt eingesetzt wird, jedoch nur die Werte OHNE Formeln. Ich weiss zwar die einzelnen Befehle aber es scheitert an der Syntax. Hilfe wäre toll :-)
Danke schonmal,
Chris

Sub x()
On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets.Add
With ActiveSheet
.Move after:=Sheets(2)
.Name = "KW" & " " & bez
Sheets(1).Activate
End With
Exit Sub
fehler:
MsgBox "Doppelte Sheetnamen nicht möglich!", vbInformation
End Sub

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Sheets(quelle).Range(qbereich).Copy und dann ...
13.09.2011 23:44:34
Luc:-?
…Sheets(ziel).Range(zbereich).PasteSpecial xlPasteValues
Gruß Luc :-?
AW: Sheets(quelle).Range(qbereich).Copy und dann ...
14.09.2011 07:37:06
Chris
Hi luc,
ich bekomme als Fehlermeldung: Die Copy Methode des Range-Objectes konnte nicht ausgeführt werden. ?

Sub x()
'On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets(1).Range("a1:d6").Copy
Sheets.Add
With ActiveSheet
.Move after:=Sheets(2)
.Name = "KW" & " " & bez
Sheets(1).Activate
Sheets(2).Range("A1").PasteSpecial xlPasteValues
End With
Exit Sub
'fehler:
'MsgBox "Doppelte Sheetnamen nicht möglich!", vbInformation
End Sub

Anscheinend ist Sheets(1) nicht aktiv, ...
14.09.2011 15:01:45
Luc:-?
…Chris;
erst aktivieren (geht ja sonst auch manuell nicht!), dann kopieren, dann Sheets(2) aktivieren und Paste.
Gruß Luc :-?
Anzeige
AW: Anscheinend ist Sheets(1) nicht aktiv, ...
14.09.2011 15:23:31
Chris
Hallo Luc,
ist es leider auch nicht. Selbe Fehlermeldung...copy konnte nicht ausgeführt werden. Noch ein Tipp :-) ?

Sub x()
'On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets(1).Activate
Bei der Variante erhalte ich "Lufzeitfehler 1004 - Anwendungs-Objektdefinierter Fehler"


Sub x()
'On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets(1).Activate
Sheets(1).Range("a1:d6").Copy
Sheets.Add
With ActiveSheet
.Move after:=Sheets(2)
.Name = "KW" & " " & bez
End With
Sheets(2).Activate
Sheets(2).Range("A1:D6").PasteSpecial xlPasteValues
Sheets(1).Activate
Exit Sub
'fehler:
'MsgBox "Doppelte Sheetnamen nicht möglich!", vbInformation
End Sub



Sheets(1).Range("a1:d6").Copy

Sheets.Add

With ActiveSheet

.Move after:=Sheets(2)

.Name = "KW" & " " & bez

.Range("A1").PasteSpecial xlPasteValues

Sheets(1).Activate

End With

Exit Sub

'fehler:

'MsgBox "Doppelte Sheetnamen nicht möglich!", vbInformation

End Sub

Anzeige
AW: so geht's ..
14.09.2011 15:15:26
robert
Sub x()
Dim bez
'On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets.Add
With ActiveSheet
.Move after:=Sheets(2)
.Name = "KW" & " " & bez
Sheets(1).Range("a1:a6").Copy
.Range("A1:a6").PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
Exit Sub
Gruß
robert
AW: so geht's ..
14.09.2011 16:08:56
Chris
Hallo Rolf,
danke funzt ! :-)
...bei der Gelgenheit: Was muss ich bei PasteSpecial ändern damit auch die Zellenfarbe und der Wert mitkopiert wird?
Gruß,
C.
AW: so geht's ..
14.09.2011 16:09:31
Chris
Ich meinte Hallo Robert :-)
AW: so geht's ..
14.09.2011 16:17:34
Chris
Hallo Robert,
hat sich erledigt, ein bissle getüfftelt :-) vgl. unten.
Gibt's noch eine alternative? Ich habe im Netz PasteSpecial (PasteValuesandFormats) gefunden. Scheint dem Compiler nicht zu gefallen :-)

Sub x()
Dim bez
'On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets.Add
With ActiveSheet
.Move after:=Sheets(2)
.Name = "KW" & " " & bez
Sheets(1).Range("a1:c7").Copy
.Range("A1:C7").PasteSpecial Paste:=xlValues
.Range("A1:C7").PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
Exit Sub
End Sub

Anzeige
Du warst schneller.. ;-)) owT
14.09.2011 16:28:39
robert
so..
14.09.2011 16:25:31
robert
Sub x()
Dim bez
'On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets.Add
With ActiveSheet
.Move after:=Sheets(2)
.Name = "KW" & " " & bez
Sheets(1).Range("a1:a6").Copy
.Range("A1:a6").PasteSpecial xlPasteValues
.Range("A1:a6").PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False
Exit Sub
Gruß
robert

37 Forumthreads zu ähnlichen Themen

Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Anzeige
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Button soll neues Blatt einfügen
Tim

Liebe Excler,
ich habe eine Datei angefuegt, die ich gerne nutzen möchte.
Er andelt sich um Monats-Haushaltsplanungen. In diesem Fall für Januar 2010.
Ich würde gerne einen Button haben, auf den ich klicken kann, sodass es mir das Arbeitsblatt kopiert, jedoch mit leerem Inhalt für d...
27.01.2010 06:30:13
Thread-ID: 1133276
8 Beiträge
Anzeige
VBA, automatisch Tabellenblätter erstellen
Tim

Hallo zusammen,
ich habe hier ein Makro, dass mir in Abhängigkeit des Zellenwertes A3 automatisch ein Tabellenblatt mit dem Namen des Zelleninhalts erstellt.
Sub NeuesBlatt() 'Varialen deklarieren Dim ws As Worksheet, wb As Workbook, sName As String ' Name des neuen Blattes auslesen s...
21.04.2012 11:33:55
Thread-ID: 1260338
3 Beiträge
VBA Code ab Zelle einfügen
Dieter(Drummer)

Guten Tag VBA Spezialiaten,
in Herbers Archiv fand ich diesen Code:
VBA-Code als Zellkommentar anzeigen Problem: Der Code eines VBA-Moduls soll in Zelle A1 als Kommentar angezeigt werden. StandardModule: Modul1 Sub GetCode() Dim cmt As Comment Dim sCode As String With ThisWorkbook.VBPro...
14.12.2012 14:18:43
Thread-ID: 1290913
3 Beiträge
Faxdrucker in vbacode einfügen
Bernd

Hallo zusammen,
komme mal wieder nicht weiter und brauche Hilfe.
Mit nachfolgenden Code lese ich aus UF TextBoxen Werte in Wordvorlage ein. Jetzt versuche ich nachdem das Dokument abgespeichert ist es wieder zu öffnen an den Faxdrucker zu übergeben und bekomme das nicht alleine hin.
...
17.09.2013 16:04:47
Thread-ID: 1331210
6 Beiträge
Tabelle monatsweise in ein neues Blatt einfügen
Christiane

Hallo,
ich bräuchte bitte mal Hilfe von den Fachmännern/Fachfrauen, weil ich irgendwie nicht weiter komme:
Ich habe eine Tabelle in der Buchungszeilen für ein ganzes Kalenderjahr (z.B. 2013)sind. Also existiert auch eine Spalte mit Belegdatum (z.B. Spalte C, Format TT.MM.JJ). Nun würde...
20.01.2014 19:19:03
Thread-ID: 1346066
5 Beiträge
Bedingung für VBA-Code einfügen
BEN10

Hallo Leute,
mit folgendem VBA-Code setze ich per Doppelklick in meiner Tabelle in Spalte D ein "X".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("D2:D2000")) Is Nothing Then Exit Sub Target = IIf(Target = "x", "", "x") C...
04.08.2014 13:27:37
Thread-ID: 1374015
6 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
21
5
2
7
6
2
2
5
4
5
10
1
9
3
4
1
2
3
3
3
2
5
5
2
4