Problem mit dem Copieren von sheets
sheets
mit folgendem Code hole ich mir 3 Blätte aus einer Mappe:
Public Sub mapCopy()
Application.ScreenUpdating = False
On Error GoTo zError
'bei VeListe raus!
Application.DisplayAlerts = False
GetObject ("F:\daten\VeListe.xls")
With Workbooks("VeListe.xls")
.Sheets("altMieter").Move Before:=Sheets(1)
.Sheets("mieterliste").Move Before:=Sheets(1)
.Sheets("wohnungen").Move Before:=Sheets(1)
.Close SaveChanges:=False
'.Close False
End With
'MsgBox "datenda?"
Exit Sub
Dann kann ich die importierten Sheets bearbeiten und schicke sie mit folgenden Code zurück: Sheets(Array("wohnungen", "mieterliste", "altMieter")).Select
Sheets("wohnungen").Activate
ChDir "F:\daten"
Workbooks.Open Filename:="F:\daten\VeListe.xls"
Sheets("häuser").Select
Windows("WoWiSoft@Stein Mieterwechsel"). _
Activate
Sheets(Array("wohnungen", "mieterliste", "altMieter")).Select
Sheets("altMieter").Activate
Application.DisplayAlerts = False
Sheets(Array("wohnungen", "mieterliste", "altMieter")).Copy Before:=Workbooks( _
"VeListe.xls").Sheets(2) 'oder move
ActiveWorkbook.Save
ActiveWindow.Close
Jetzt bekomme ich folgende ErrMld. Diese bekomme ich auch, wenn ich die sheets via Rechtsklick manuell verschieben will.Die Blätter können von Excel nicht in die Zielarbeitsmappe eingefügt werden, da sie eine gerigere Anzahl von Zellen und Spalten enthält als die Quellarbeitsmappe.
Wie kann das sein, die sheets kommen doch aus der Mappe und wurden gar nicht verändert?
Viele Grüße aus Hamburg
Ray