Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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 .............

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige