Inhalt aus mehreren Zellen zusammefügen und in ein
28.02.2016 13:42:21
Hokweb
Hallo,
ich habe ein Problem.
Ich habe eine Tabelle in der ich täglich in Spalte E4:E20 die Anwesenden eintrage, in Zelle E22 schreibe ich alle Aktivitäten.
Nun möchte ich mit einem Makro die Zelle E22 auf ein separates Blatt immer am Ende eingefügt haben und auch alle Namen aus den Zell E4:E20, allerdings diese zusammen in einer Zelle ebenso auf dem separaten Blatt.
Der Übertrag funktioniert aber ebend nicht die Namen in einer Zelle.
Wer kann mir helfen?
Einen schönen Sonntag
'Bereich kopieren
ActiveSheet.Range("E4:E20").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Tagebuch").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False