Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 08:39:33
Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1960to1964
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
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige