Word VBA-Forum - Das Forum zu Microsoft Word VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Code nicht mit kopieren	05.12.2024 09:53:51	Jolanda
VBA Code nicht mit kopieren	05.12.2024 11:40:36	Gast18413
VBA Code nicht mit kopieren	05.12.2024 12:16:38	Jolanda
VBA Code nicht mit kopieren	05.12.2024 13:15:36	ralf_b
VBA Code nicht mit kopieren	05.12.2024 15:24:15	Gast55157
VBA Code nicht mit kopieren	05.12.2024 15:48:10	Gast2028
VBA Code nicht mit kopieren	05.12.2024 17:08:03	Jolanda
Noch einmal!	05.12.2024 19:10:47	RPP63
Noch einmal!	05.12.2024 19:24:34	Jolanda
Noch einmal!	05.12.2024 22:22:11	Gast7777
Noch einmal!	05.12.2024 23:26:08	Jolanda
Noch einmal!	06.12.2024 05:52:50	Gast7777
Noch einmal!	06.12.2024 07:11:50	Jolanda
Offtopic	06.12.2024 12:28:05	Gast95857
Noch einmal!	06.12.2024 13:53:08	Jolanda

Ansicht des Beitrags:

Von:
Jolanda

Datum:
05.12.2024 12:16:38

Views:
119

Rating:

Antwort:

Thema:
VBA Code nicht mit kopieren

Hallo

Es wird in xlsx abespeichert, das Problem liegt aber nicht am speichern sondern am kopieren da ich ja das gesamte Sheet in ein neues Excel kopiere und da nimmt er die Codes die im Sheet hinterlegt sind ja leider mit.

Das ist der Code mit dem ich die Datei kopiere

'xxxx senden
Sub xxxx_senden()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
''Set outObj = CreateObject("Outlook.Application")
''Set Mail = outObj.CreateItem(0)
strPfad = "C:\Temp"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name & "_" & Format(Now(), "DD.MM.YYYY") & ".xlsx"
  
Application.ScreenUpdating = False
  
Call Blattschutz_Admin_aufheben
 
  
strDatei = ActiveWorkbook.FullName
  
        ''strbody = "<font face=Arial>Sehr geehrter Damen und Herren,</font><br><br>" & _
        ''"<font face=Arial>ixxxxm Anhang finden Sie die aktuelle FO Liste."
 
''With Mail
''.GetInspector.Display
''.To = Worksheets("DDDD").Range("D24")
''.CC = Worksheets("DDDD").Range("D25")
''.Subject = "xxxx_" & Format(Date, "DD.MM.YYYY") 'Betreff
''.HTMLBody = strbody & "<br>" & .HTMLBody
''.Attachments.Add strDatei
 
''End With
  
''Workbooks(Dir(strDatei)).Close
''Kill (strDatei)
'Mail.send
 
Application.ScreenUpdating = True
 
End Sub

Im Sheet selbst steht Call Spaltenbreiten und an dem scheitert es, den der Code steht in Modul 1 und darauf kann die Porzedur Worksheet actived natürlich nicht zugreifen da im kopierten Sheet das Modul ja nicht vorhanden ist

Sub Spaltenbreiten()
 
Application.ScreenUpdating = False
 
    Range("A:A").ColumnWidth = 11
    Range("B:C").ColumnWidth = 16
    Range("D:D").ColumnWidth = 15
    Range("E:E").ColumnWidth = 6
    Range("F:F").ColumnWidth = 28
    Range("G:G").ColumnWidth = 7
    Range("H:H").ColumnWidth = 18
    Range("I:I").ColumnWidth = 24
    Range("J:M").ColumnWidth = 8
    Range("N:Q").ColumnWidth = 7
    Range("R:R").ColumnWidth = 25
    Range("S:S").ColumnWidth = 8
    Range("T:W").ColumnWidth = 10
    Range("X:X").ColumnWidth = 2
    Range("Y:Z").ColumnWidth = 16
    Range("AA:AC").ColumnWidth = 11
    Range("AD:AE").ColumnWidth = 12
    Range("AF:AF").ColumnWidth = 25
    Range("AG:AG").ColumnWidth = 2
    Range("AH:AH").ColumnWidth = 10
    Range("AI:AI").ColumnWidth = 10
    Range("1:1").RowHeight = 30
 
Application.ScreenUpdating = True

Darum entweder beim kopieren wird der VBA Hintergerund nicht mitkopiert wenn das möglich ist.

Eine andere Idee ist aber ich weiss nciht ob das funktionieren kann wenn ich den Code Spaltenbreite selbst nicht in ein Modul schreibe sondern direkt ins Sheet.dann würde der Zugriff aufs Modul wegfallen aber läuft der Code dann auch wenn das Shett aktiviert wird, oder muss der Code in einem Modul stehen.

Jolanda

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:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

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
VBA Code nicht mit kopieren	05.12.2024 09:53:51	Jolanda
VBA Code nicht mit kopieren	05.12.2024 11:40:36	Gast18413
VBA Code nicht mit kopieren	05.12.2024 12:16:38	Jolanda
VBA Code nicht mit kopieren	05.12.2024 13:15:36	ralf_b
VBA Code nicht mit kopieren	05.12.2024 15:24:15	Gast55157
VBA Code nicht mit kopieren	05.12.2024 15:48:10	Gast2028
VBA Code nicht mit kopieren	05.12.2024 17:08:03	Jolanda
Noch einmal!	05.12.2024 19:10:47	RPP63
Noch einmal!	05.12.2024 19:24:34	Jolanda
Noch einmal!	05.12.2024 22:22:11	Gast7777
Noch einmal!	05.12.2024 23:26:08	Jolanda
Noch einmal!	06.12.2024 05:52:50	Gast7777
Noch einmal!	06.12.2024 07:11:50	Jolanda
Offtopic	06.12.2024 12:28:05	Gast95857
Noch einmal!	06.12.2024 13:53:08	Jolanda