Supportnet / Forum / Tabellenkalkulation
kopieren ohne Zellbezug in andere Tabelle
Frage
Hallo, versuche es nochmal, alte mail ist wohl "verschwunden".
Ich habe eine Datei mit 6 Tabellen:
1. Eingabetabelle
2. fortlaufende Auflistung der Eingaben
3.- 5. artikelweise Auswertung
6. Zusammenfassung als Monatsmeldung
Die Eingabetabelle ist immer nur eine Zeile, die in dieser Tabelle nach den Vorgaben der Auswertungstabellen entsprechend ausgewertet /sortiert werden und dann mit kleinem Makro in die Tabellen 3 - 5 kopiert werden. Dieses Kopieren ist das Problem: ich brauche nur die Werte, bekomme aber immer alle Zellbezüge mit.
Auszug aus dem Makro:
Zeile = Worksheets("Auswertung 3"). _
Range("A65536").End(xlUp).Offset(1, 0).Row
Worksheets("Eingabeliste").Rows("5:5").Copy _
Worksheets("Auswertung3").Cells(Zeile, 1)
Sheets("Eingabeliste").Select
Range("a2:k2").Select
Selection.ClearContents
Was mache ich falsch beim Kopieren.
2. Problem: wenn der Monatsletzte ist, sollen in den Auswertungstabellen 3-5 eigenständig die Monatssummen als Zwischensumme gebildet werden und dann in Tabelle 6. Wichtig ist für die automat. Summenbildung.
Bitte Hilfe und noch Danke an Caros für seine schnelle Reaktion. mfghansw
Antwort 1 von JoeKe
Hallo Hans,
in deinem Fall musst du die Copy-Paste Methode anwenden.
Versuch es mal so:
Sub hans()
Dim zeile As Long
Application.ScreenUpdating = False
zeile = Worksheets("Auswertung 3"). _
Range("A65536").End(xlUp).Offset(1, 0).Row
Worksheets("Eingabeliste").Rows("5:5").Copy
Worksheets("Auswertung 3").Cells(zeile, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Eingabeliste").Range("a2:k2").ClearContents
Application.ScreenUpdating = True
End Sub
MfG
JöKe
in deinem Fall musst du die Copy-Paste Methode anwenden.
Versuch es mal so:
Sub hans()
Dim zeile As Long
Application.ScreenUpdating = False
zeile = Worksheets("Auswertung 3"). _
Range("A65536").End(xlUp).Offset(1, 0).Row
Worksheets("Eingabeliste").Rows("5:5").Copy
Worksheets("Auswertung 3").Cells(zeile, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Eingabeliste").Range("a2:k2").ClearContents
Application.ScreenUpdating = True
End Sub
MfG
JöKe
Antwort 2 von CaroS
Hallo Hans,
hier geht nichts so schnell verloren:
https://supportnet.de/threads/1302621
Dein Kopieren beim Kopieren dürfte durch PasteSpecial gelöst sein. Wie geht´s jetzt weiter? (Bin jetzt noch ca. ´ne Stunde und dann erst wieder übermorgen am PC.)
Gruß,
CaroS
hier geht nichts so schnell verloren:
https://supportnet.de/threads/1302621
Dein Kopieren beim Kopieren dürfte durch PasteSpecial gelöst sein. Wie geht´s jetzt weiter? (Bin jetzt noch ca. ´ne Stunde und dann erst wieder übermorgen am PC.)
Gruß,
CaroS
Antwort 3 von CaroS
Sieht genauso aus, funktioniert aber besser:
https://supportnet.de/threads/1302621
(HTML-Tags in umgekehrter Reihenfolge)
CaroS
https://supportnet.de/threads/1302621
(HTML-Tags in umgekehrter Reihenfolge)
CaroS
Antwort 4 von hansw
Hallo JöKe, CaroS, ich mache auch erst mal Wochenende auf Reisen. Der Vorschlag von JöKe klappt. Jetzt geht es noch um das Problem 2 der Summenbildung. Kann man eigentlich auch automatisch das Senden einer Datei als mail zu einem best. Termin regeln ? Dann bräuchte ich wirklich nur noch die tägliche Eingabe machen und muß nicht permanent an Termine der Behörde denken. Aber da melde ich mich, wenn ich das kopieren in allen Auswertungstabellen drin ist. ich grüß Euch.mfghansw