Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro für Jahresabschluß

Forumthread: Makro für Jahresabschluß

Makro für Jahresabschluß
28.11.2006 18:45:45
rupi2
Hallo Ihr wissenden, wer kann mir helfen ?
Vorgabe : ich habe eine Tabelle mit etwa 350 Kunden = Zeilen mit sehr vielen Informationen. Unter anderem in einer Spalte der Name des Beraters. Nun filtere ich auf einem anderem Tabellenblatt einige Daten heraus. Diese Daten ändern sich ständig.
mein Wunsch : ein Makro, welches mir die aktuellen gefilterten Daten als festen Wert nach rechts kopiert und das Datum darüber schreibt ( wann durchgeführt ).
Sollte das Makro ein weiteres mal ausgeführt werden, soll wieder alles nach rechts Verschoben werden und das Datum darüber stehen.
Ist so etwas überhaupt möglich ? Bitte bedenkt mein Können mit VBA ist fast null und ich muß das Makro dann auf meine Tabelle anpassen.
viel Text, ich hoffe Ihr versteht was ich möchte ( habe ein Beispiel als Anhang )
Danke im vorraus

Die Datei https://www.herber.de/bbs/user/38591.xls wurde aus Datenschutzgründen gelöscht

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für Jahresabschluß
28.11.2006 19:37:25
ChrisL
Hallo
Anhang:
https://www.herber.de/bbs/user/38592.xls
Der Vorgang liesse sich fast schon mit dem Makrorekorder aufzeichnen. Bereich kopieren, Kopierte Zellen einfügen (nach rechts verschieben), Bereich nochmals kopieren, rechte Maustaste, Inhalte einfügen (Werte) und schliesslich noch Datum einsetzen.
Makro wird mittels Befehlsschaltfläche "Jahresabschluss" gestartet.
Gruss
Chris

Sub Abschluss()
Dim rng1 As Range, rng2 As Range
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
Set rng1 = .Range("B19:F23")
Set rng2 = .Range("G19:K23")
rng1.Copy
rng2.Insert shift:=xlToRight
rng1.Copy
rng2.Offset(0, -5).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range("I19") = Date
.Range("A1").Select
End With
Application.ScreenUpdating = True
End Sub

Anzeige
Danke an CrisL
28.11.2006 20:46:59
rupi2
Hey,
Danke CrisL, werde es gleich ausprobieren
AW: Danke an ChrisL
28.11.2006 20:48:12
rupi2
Sorry,
natürlich ChrisL
ich bin so aufgeregt .............
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige