Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einen bestimmten Bereich in ein neues Tabellenblatt kopieren

Forumthread: Einen bestimmten Bereich in ein neues Tabellenblatt kopieren

Einen bestimmten Bereich in ein neues Tabellenblatt kopieren
19.01.2024 11:10:54
Jean K.
Hi,
ich würde gerne einen bestimmten Bereich per VBA Code (über einen Button) in ein neues Tabellenblatt kopieren, wobei die Formatierung (gleiche Spaltenbreite, etc.) gleich bleibt.
Könnt Ihr mir netterweise behilflich sein?

Danke!!!

VG J
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bereich in neues T.blatt kopieren m. gleicher Formatierung
19.01.2024 12:36:35
Jean K.
Betreff angepasst :)
AW: Einen bestimmten Bereich in ein neues Tabellenblatt kopieren
19.01.2024 16:20:47
GerdL
Moin Jean! 
Sub Unit()



    Dim Quelle As Range, Ziel As Range, a As Long

    

    Set Quelle = ActiveSheet.Range("A34:C74")

    Call Worksheets.Add(After:=ActiveSheet)

    Set Ziel = ActiveSheet.Range("A1").Resize(Quelle.Rows.Count, Quelle.Columns.Count)

    

    Call Quelle.Copy(Destination:=Ziel)

    

    For a = 1 To Quelle.Columns.Count

        Ziel.Columns(a).ColumnWidth = Quelle.Columns(a).ColumnWidth

    Next

    

    Set Quelle = Nothing: Set Ziel = Nothing



End Sub

Gruß Gerd
Anzeige
AW: Vielen Dank Gerd!
22.01.2024 08:31:02
Jean K.
:)
AW: Bereich in neues T.blatt kopieren m. gleicher Formatierung
19.01.2024 13:40:13
Jean K.
Moin alle,

ich habe jetzt folgendes codiert:

Sub KopierenUndInNeuesBlattEinfuegen()
ActiveSheet.Range("A34:C74").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
End Sub

Allerdings fehlt mir noch die erhalten/gleiche bleiben der Formatierung (Spaltenbreite)

Danke im Voraus.

Gruß J
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige