Thema Datum  Von Nutzer Rating
Antwort
23.05.2024 11:10:56 Margit
Solved
23.05.2024 11:49:00 Gast47358
Solved
Rot martkierten Bereich kopieren und versenden
23.05.2024 14:54:11 Gast32055
Solved
23.05.2024 18:25:24 Gast24006
Solved
24.05.2024 11:53:03 Gast24006
Solved
25.05.2024 19:00:10 RPP63
Solved
25.05.2024 19:05:56 RPP63
Solved
27.05.2024 15:41:43 Margit
Solved

Ansicht des Beitrags:
Von:
Gast32055
Datum:
23.05.2024 14:54:11
Views:
183
Rating: Antwort:
 Nein
Thema:
martkierten Bereich kopieren und versenden

Hallo Danke für die Rückmeldung

Hier mein Code mit dem ich versuche mein Problem zu lösen. Sub Bericht()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim old As Object, Ziel As Object, Zielpath
Dim Spalten, spalte, Zielspalte As Long
Const NewName = "Bericht"
  Zielpath = ActiveWorkbook.Path
  Set old = ActiveWorkbook.ActiveSheet
  Set Ziel = Workbooks.Add
  Set Ziel = Ziel.Sheets(1)
  Application.ScreenUpdating = False
  Zielspalte = 1
  With Ziel
<span style="background-color:#1abc9c">      old.Range.Selection.Copy</span> 'hier soll der markierte Bereich rein
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Zielpath = Zielpath & "\" & NewName & "_" & Format(Now(), "DD.MM.YYYY") & ".xlsx"
    .SaveAs Zielpath
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
 
Call senden
 
End Sub

Dann kommt noch folgendes dazu:

Wie schon geschrieben ist soll der nur der markierte Bereich übetragen werden der in jedem Sheet anders sein kann,

Aber er soll immer als Header die Spalten A:P Zeile 8-9 enthalten.

Das wäre super bin im beschreiben leider nicht so gut.

Danke Margit

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.05.2024 11:10:56 Margit
Solved
23.05.2024 11:49:00 Gast47358
Solved
Rot martkierten Bereich kopieren und versenden
23.05.2024 14:54:11 Gast32055
Solved
23.05.2024 18:25:24 Gast24006
Solved
24.05.2024 11:53:03 Gast24006
Solved
25.05.2024 19:00:10 RPP63
Solved
25.05.2024 19:05:56 RPP63
Solved
27.05.2024 15:41:43 Margit
Solved