Hallo,

da eine Angabe zur Excel-Version fehlt, kann ich nur vermuten, dass du 2003 oder früher hast.

Dann liegt zumindest ein Fehler hier

Range("Z65536").End(xlUp)(2).Activate

Du gehst in die letzte Zeile des Tabellenblattes und willst noch 4 Zeilen beschreiben, geht nicht

Gruß

Helmut

hi all ^^^

ein beispiel :-)

gruss nighty

Option Explicit 

Sub Copy_Werte()
    Workbooks("Test28.xls").Worksheets(1).Range("Z11:CZ16").Copy
    Workbooks("Speicher.xls").Worksheets(1).Range("A" & Workbooks("Speicher.xls").Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone
    Application.CutCopyMode = False
End Sub  

Liebes Forum,
ich habe unter walter10 eine Frage gestellt und schon 2 Antworten erhalten, dafür sage ich Helmut und nigthi danke.

Bin ein 68 Jahre altes Vehikel und möchte doch gerne VBA lernen.

Habe jedoch schon bei einfachen Routinen Schwierigkeiten.

1. Wollte mich registrieren und habe leider kein Passwort erhalten. Woran mag das liegen???
2. Hätte gerne meinen Helfern geantwortet und kann unter meinem Nicknamen nicht antworten. Was mach ich falsch???

Ich bitte euch um Geduld , ihr würdet mir eine grosse Freude machen, wenn ihr mir auf die Sprünge helft.

Im Voraus Danke
Walter

Hallo walter. Freut mich dass du dich auf unserer Seite registriert hast. Sobald du dich hier mit einem Nick-Namen als Member registrierst, kann dieser Name nicht mehr von anderen Usern, oder auch dir solange du dich nicht eingeloggt hast, verwendet werden. Der von dir registrierte Name soll ja auch nur noch dir zur Verfügung stehen.
Was das nicht erhaltende Passwort angeht werde ich dir nochmals für beide Nicknamen ein Passwort zukommen lassen. Bitte prüfe auch online bei deinem Mailanbieter die Spam-/ Junkmailfolder, auch dort können Mails manchmal verschwinden.

Bei weiteren Fragen zur Plattform oder Problemen kannst du dich gerne auch per Mail (die findest du auf meiner Vistenkarte) oder oben über den Button "Admin holen" an uns wenden.

Gruss,
Mic

^{Bei Eingriffen ins System, die Registry oder Dateien erst eine Sicherung vornehmen©}

Hallo Helmut, danke für deinen Hinweis.

Mein Betriebsystem ist Vista Home.
Habe mit EndUp "Z65550" versucht, klappt nicht.

Kannst du mir einen weiteren Tipp geben?

lg. und danke Walter

Hallo,

du willst Daten aus der Datei Test28.xls in die Datei Speicher.xls rüberkopieren und da ans Ende der Tabelle. Hier sit die Frage ob die Tabelle nur ein Blatt hat, da Angaben zum Sheet fehlen. Zudem werden die gespeicherten Daten im nächsten durchgang überschrieben, soll das wirklich so gemacht werden?

Gruß

Helmut

Hallo Helmut,
der kopierte Bereich von Test28 soll in der ersten freien Zelle im Workbook "Speicher("Z")" gespeichert werden.
Es sollen alle abgespeicherten Daten erhalten bleiben um von allen Monaten eine Kontrolle zu haben.
Danke für deine Unterstützung.
mfg walter

Hallo,

Versuch es mal mit dem Makro

Sub Makro5()
Windows("test28.xls").Activate
Range("Z11:Z16").Select
Selection.Copy
Windows("Speichern.xls").Activate
Range("Z" & Range("Z65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
End Sub

Sonst wäre eine genauere Erläuterung sinnvoll.

Gruß

Helmut

Hallo Helmut,
habe dein Makro probiert, es gibt nur bei den Zellen mit absolutem Bezug einen Wert aus.
Da aber alle Zellen einen Bezug haben ist mit dem "Paste" nichts zu machen, weil der Bezug für die
Berechnung verloren geht. Daher denke ich, dass es sicher einen andern Weg gibt, den ich als Anfänger
leider nicht kenne.
Muss noch viel lernen aber es macht trotzdem Spas, wenn auch nur kleine Schritte erreicht werden.
Euer Forum ist wirklich Super und beim durchstöbern bleibt immer etwas hängen.

Danke für eure Unterstützung.

mfg Walter

Danke Helmut, es funktioniert!!!

Jetzt kann ich an den Auswertungen weiterstricken und alle Daten nach Wunsch sichern.

mfg Walter