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

Beiträge aus den Excel-Beispielen zum Thema "Kopieren mit Formatierung ,Spaltenbreite und so w."