Forums Neueste Beiträge
 

Dynamische Spaltenbeschreibung aus Quelldatei

25/08/2008 - 14:42 von Johannes Marquart | Report spam
Hallo NG,

ich habe eine Tabelle, die tàglich aktuell Zahlen aus einer Datenbank
zieht. Das Problem: Diese Zahlen werden jeden Tag überschrieben.

Etwas durmherum aber: Ich möchte eine zusàtzliche Datei erstellen, die
mir für jeden Tag diese Zellen übertràgt, allerdings jeden Tag in eine
neue Spalte.

Das kann ich sicher mit VBA realisieren, ich weiss aber leider nicht
wie. Es wàre super, wenn mir jemand helfen könnte.

Bsp: Quell-Datei: Relevante Zellen A2, A5, A9 sollen jeden Tag
übertragen werden mit aktuellem Datum an Ziel-Datei A2, A5, A9; B2, B5,
B9 etc.

Vielen Dank im Voraus!
Hannes
 

Lesen sie die antworten

#1 stefan onken
25/08/2008 - 16:17 | Warnen spam
On 25 Aug., 14:42, Johannes Marquart wrote:
Hallo NG,

ich habe eine Tabelle, die tàglich aktuell Zahlen aus einer Datenbank
zieht. Das Problem: Diese Zahlen werden jeden Tag überschrieben.

Etwas durmherum aber: Ich möchte eine zusàtzliche Datei erstellen, die
mir für jeden Tag diese Zellen übertràgt, allerdings jeden Tag in eine
neue Spalte.

Das kann ich sicher mit VBA realisieren, ich weiss aber leider nicht
wie. Es wàre super, wenn mir jemand helfen könnte.

Bsp: Quell-Datei: Relevante Zellen A2, A5, A9 sollen jeden Tag
übertragen werden mit aktuellem Datum an Ziel-Datei A2, A5, A9; B2, B5,
B9 etc.

Vielen Dank im Voraus!
Hannes



hallo Hannes,
gehe in deiner Datei über Alt+F11 in den VBA-Editor, dort auf Einfügen/
Modul. In das große Codefenster kopierst du

Sub DatenSichern()
Application.ScreenUpdating = False
Workbooks.Open "D:\sicherung.xls"
col = Cells(1, Columns.Count) _
.End(xlToLeft).Column + 1
With ThisWorkbook.ActiveSheet
Cells(1, col) = Date
Cells(2, col) = .Cells(2, "A")
Cells(5, col) = .Cells(5, "A")
Cells(9, col) = .Cells(9, "A")
End With
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub

Ändere D:\sicherung.xls in Pfad/Dateiname deiner Sicherungsdatei.
Beende den Editor. Das Makro kannst du über Extras/Makro/Makros
starten oder du legst dir einen button auf der Tabelle an:
Ansicht/Symbolleisten/Steuerelement-Toolbox, darin den button
anklicken und auf der Tabelle platzieren, doppelklick drauf, zwischen
die beiden Codezeilen schreibst du DatenSichern, VBA-Editor beenden,
in der Steuerelement-Toolbox auf Entwurfsmodus beenden klicken.

Gruß
stefan

Ähnliche fragen