2 Quellcodes in 1 verschmelzen

Hallo zusammen,
ich habe zwei Quellcodes.
Code1: Button Speichern unter:
Code2: Button Rahmen
Gerne möchte ich nach Klick auf "Button Speichern unter", dass bevor die Datei gespeichert wird, zuerst die Rahmen angelegt werden.
Wie mache ich das?
Anbei die Codes:
Code 1: Speichern unter:


Private Sub CommandButton3_Click()
Dim varFileName As Variant, objShp As Shape, sh As Object
ChDrive "C"
ChDir "C:/"
varFileName = Application.GetSaveAsFilename(varFileName, "Excel Arbeitsmappe ohne VBA (*.xlsx),*.xlsx,") ' nicht als .xls speicher = Excel Fehlermeldung
If Not varFileName = False Then '
Application.DisplayAlerts = False
For Each sh In Sheets
If Not sh.Name = ActiveSheet.Name Then sh.Delete
Next sh
Application.DisplayAlerts = True
For Each objShp In ActiveSheet.Shapes
If objShp.Type = msoOLEControlObject Then objShp.Delete
Next objShp
ActiveSheet.Range("1:1").RowHeight = 50
ThisWorkbook.SaveAs varFileName, FileFormat:=xlOpenXMLWorkbook
Else
MsgBox "Abbruch durch Nutzer.", vbOKOnly, "©MC (xxxxx)"
End If
End Sub

Code2: Rahmen
Sub Rahmen2()
Dim lzeile As Long
lzeile = Sheets("Hauptblatt").Cells(Rows.Count, 3).End(xlUp).Row
With Range("A2:T" & lzeile).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub Danke für jede Unterestützung:
VG,
Memo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton3_Click() call speichern call rahmen2 endsub sub Speichern() Dim varFileName As Variant, objShp As Shape, sh As Object ChDrive "C" ChDir "C:/" varFileName = Application.GetSaveAsFilename(varFileName, "Excel Arbeitsmappe ohne VBA (*.xlsx),*.xlsx,") ' nicht als .xls speicher = Excel Fehlermeldung If Not varFileName = False Then ' Application.DisplayAlerts = False For Each sh In Sheets If Not sh.Name = ActiveSheet.Name Then sh.Delete Next sh Application.DisplayAlerts = True For Each objShp In ActiveSheet.Shapes If objShp.Type = msoOLEControlObject Then objShp.Delete Next objShp ActiveSheet.Range("1:1").RowHeight = 50 ThisWorkbook.SaveAs varFileName, FileFormat:=xlOpenXMLWorkbook Else MsgBox "Abbruch durch Nutzer.", vbOKOnly, "©MC (xxxxx)" End If End Sub Sub Rahmen2() Dim lzeile As Long lzeile = Sheets("Hauptblatt").Cells(Rows.Count, 3).End(xlUp).Row With Range("A2:T" & lzeile).Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub

Ich habe nichts an dem Code geändert, ausser die Bennennung der Subs zu ändern und den Code in die entsp. Subs zu packen. Müsste also noch immer so funktionieren wie vorher.
Da der Rahmen nicht gesetzt wird und die Meldung "index außerhalb des gültigen Bereichs" lautet, gehe ich einfach mal davon aus, dass dein Arbeitsblatt, auf das du dich in
lzeile = Sheets("Hauptblatt").Cells(Rows.Count, 3).End(xlUp).Row
beziehst, nicht existiert bzw. einen anderen Namen hat.
Allerdings ist das auch nur ein Schuss ins Blaue, da ich nicht weiss, welche Zeile den Fehler auslöst.
Sollte das nicht der Fewhler sein, bleibt dir nichts anderes, als eine Arbeitsmappe hochzuladen, damit wir nicht weitere im Nebel stochern.
Sollte es dein Problem lösen, wäre es nett, wenn du mich in das Copyright der MsgBox aufnimmst. Scherz! Ich denke bei so etwas immer an meine Grundschullehrerin, die gerne sagte "Die Namen der Jecken stehen in allen Ecken." Ironie!

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Quellcodes in 1 verschmelzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread