title image


Smiley läuft noch nicht ganz
Guten Morgen,



also erst einmla hat er gemeckert, das die Variablen nicht deklariert waren.

Hab ich dann gemacht, doch er stopt wieder in der 1.Zeile mit:



Objektvariable oder With-Blockvariable nicht festgelegt



Hab ich falsch deklariert?







Private Sub cmdSafe_Click()

Dim wkb As Workbook

Dim aha As Integer

Dim blatti As Worksheet



wkb = ThisWorkbook.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



Code eingefügt mit Syntaxhighlighter 2.1




Viele Grüsse aus Bayreuth

Christian 

Lilly-Sophie -->meine kleine Tochter



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: