Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren mit Formatierung ,Spaltenbreite und so w.

Kopieren mit Formatierung ,Spaltenbreite und so w.
14.03.2005 13:06:10
Sergej
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
14.03.2005 13:16:51
u_
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ß
AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
14.03.2005 13:38:48
Sergej
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
AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
14.03.2005 13:49:04
u_
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ß
Anzeige
AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
14.03.2005 14:08:16
Serej
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
AW: Kopieren mit Formatierung ,Spaltenbreite und so w.
14.03.2005 14:55:40
u_
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ß

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige