title image


Smiley Re: läuft noch nicht ganz
hi



Private Sub cmdSafe_Click()

Dim wkb As string

Dim aha As string

'Dim blatti As Worksheet



wkb = activeworkbook.Name 'ermitteln des aktuellen mappennamen

With Sheets("Rechnungserstellung")

.Activate

aha = .Cells(17, 10)

End With

Workbooks.Add

ActiveWorkbook.SaveAs "C:\desktop\" & aha & ".xls"

Workbooks(wkb).Sheets("Rechnungserstellung").Copy Before:=Workbooks(aha & ".xls").Sheets(1)

ActiveWorkbook.Save

Workbooks(aha & ".xls").Save

Workbooks(aha & ".xls").Activate

Application.DisplayAlerts = False

For Each blatti In Workbooks(aha & ".xls").Worksheets

If blatti.Name "Rechnungserstellung" Then

blatti.Select

ActiveWindow.SelectedSheets.Delete

End If

Next

Workbooks(aha & ".xls").Close

End Sub





geht das?





Gruß

Christian


Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: