Herbers Excel-Forum - das Archiv

Kopieren mit Formatierung ,Spaltenbreite und so w.

Bild

Betrifft: Kopieren mit Formatierung ,Spaltenbreite und so w.
von: Sergej

Geschrieben am: 14.03.2005 13:06:10

Hallo liebe Helfer!!!
Und nochmals brauche ich Ihre Hilfe!!!
ich füge mit dem Buttom ein neuen Tabellenblatt und will, dass Bereich ("B2:B37") aus "Protokol" mit allen formatierungen ins "Protokol1" kopiert wird
Wie schreibt man dass im Code???

Private Sub cmdNSheet_Click()
Dim i As Integer
Sheets("Dummy").Select
Sheets.Add
ThisWorkbook.Sheets("Dummy").Range("B12") = Worksheets.Count
i = ThisWorkbook.Sheets("Dummy").Range("B12").Value
Sheets(i - 1).Name = "Protokol" & i - 1
Sheets("Protokol").Activate
Sheets("Protokol").Range("B2:H37").Select
Selection.Copy
Sheets(i - 1).Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

Bild

Betrifft: AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
von: u_

Geschrieben am: 14.03.2005 13:16:51
Hallo,
das ist viel zu umständlich.
ungetestet:
Private Sub cmdNSheet_Click()
sheets("Protokol").copy after:=Worksheets.count
with activesheet
.name="Protokol" &worksheets.count-1
.Range("A:A,I:IV").entirecolumn.delete
end with
End Sub

Gruß
Bild

Betrifft: AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
von: Sergej

Geschrieben am: 14.03.2005 13:38:48
Danke für deine Hilfe!!!
Die Formatierungung bleibt, aber das Tabellenblatt wird in andere Arbeitsmappe kopiert.
sheets("Protokol").copy after:=Worksheets.count da meldet der Compailer ein Fehler
Gibt's noch irgendwelche Vorschläge ???
Erstmal Danke
Bild

Betrifft: AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
von: u_
Geschrieben am: 14.03.2005 13:49:04
Hallo,
da war ein Fehler drin.
Private Sub cmdNSheet_Click()
Sheets("Protokol").Copy after:=Sheets(Worksheets.Count)
With ActiveSheet
.Name = "Protokol" & Worksheets.Count - 1
.Range("A:A,I:IV").EntireColumn.Delete
End With
End Sub

Gruß
Bild

Betrifft: AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
von: Serej
Geschrieben am: 14.03.2005 14:08:16
Danke..Danke..das funzt !!!!
Aber ich will trotzdem dass nur bestimmtes Bereich kopiert wird.
Range("B2:H77") kopieren und einfügen in Range("A1")
Bitte helf mir!!!
Gruß
Sergej
Bild

Betrifft: AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
von: u_

Geschrieben am: 14.03.2005 14:55:40
Hallo,
dann eben noch Zeile 1 und 78-65536 löschen.
Private Sub cmdNSheet_Click()
Sheets("Protokol").Copy after:=Sheets(Worksheets.Count)
With ActiveSheet
.Name = "Protokol" & Worksheets.Count - 1
.Range("A:A,I:IV").EntireColumn.Delete
.Range("1:1,78:65536").EntireRow.Delete
End With
End Sub

Gruß
 Bild
Excel-Beispiele zum Thema "Kopieren mit Formatierung ,Spaltenbreite und so w."
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren