title image


Smiley Re: Daten von Mappe1 nach Mappe2 Kopieren duch cmdButton_Click
Hallo amo,



probiers mal damit:



Sub Button_Click()

Dim lngLfdNr

Dim oWs As Worksheet

Set oWs = ActiveSheet

Application.ScreenUpdating = False

Workbooks.Open Filename:="E:\Daten\Excel\Mappe2.xls" '<< anpassen!

With ActiveWorkbook

With .Sheets(.Sheets.Count)

If Left(.Name, 8) = "Ergebnis" Then

lngLfdNr = CLng(Mid(.Name, 9))

Else

lngLfdNr = 0

End If

End With

oWs.Copy After:=.Sheets(.Sheets.Count)

.Sheets(.Sheets.Count).Name = "Ergebnis" & lngLfdNr + 1

.Close True

End With

Application.ScreenUpdating = True

End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß Uwe



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: