ich habe eine Excel 2003 Tabelle Test.xls, sowie eine Excel 2007 Tabelle Test.xlsm. Beide Tabelle haben den exakt gleichen Aufbau. Ich möchte jetzt Zahlen von Test.xlsm per Button in die Tabelle Test.xls schreiben lassen. Es sollen Zahlen, an der gleichen Stelle, die nicht geschützt sind, ungleich "" und Kommentare eingefügt werden.
Dies soll auch von Test.xls zu Test.xlsm möglich sein.
Ich habe mir dazu ein Makro gebastelt, welches auch geht. Leider konvertiert mir Excel 2007 meine Datei Test.xls, dies hat zur Folge, dass meine Diagramme falsche Skalierungen haben und einige Diagramm-Makros Fehler erzeugen. Der Weg von Test.xls zu Test.xlsm geht mit dem Makro auch nicht, da Excel 2003 nicht korrekt als xlsm speichern kann.
Ich hoffe es geht vielleicht automatisch per Button über die Office-Zwischenablage, aber leider weiß ich nicht wie.
Ich hoffe auf Hilfe
Vielen Dank
Wolfgang
hier mein Makro, welches von Test.xlsm nach Test.xls geht:
Public Sub Exportzu2003()
Dim vFile As String
Dim x As Integer
Dim z As Integer, zz As Integer
vFile = "C:\Dokumente und Einstellungen\Wolfgang\Eigene Dateien\Excel-Tabellen\Test.xls"
Workbooks.Open Filename:=vFile
With Workbooks("Test.xlsm").Sheets("Werte")
x = .Cells(Rows.Count, 2).End(xlUp).Row
x = x - 10
For zz = 2 To 7
For z = x To x + 10
If .Cells(z, zz).Locked = False And .Cells(z, zz).Value "" Then
.Cells(z, zz).Copy
Workbooks("Test.xls").Sheets("Werte").Cells(z, zz).PasteSpecial Paste:=xlPasteAll
End If
Next z
Next zz
End With
Workbooks("Test.xls").Close SaveChanges:=True
Windows("Test.xlsm").Activate
End Sub