Werte in Tabelle schreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub auto_open() spalte = "A" For Each a In ActiveSheet.Range(spalte & "1:" & spalte & "500") If a = ###Datum aus der Ausgangstabelle z.B. 1.12.2008## Then die 3 Werte kopieren und rechts eintragen. 'zeile = a.Row Exit For End If Next ##nach dem eintragn von dem 1. Datum zum nächsten Datum und so weiter bis zum letzten End Sub

Hallo Uwe,
erst mal ein paar Fragen, ohne die das nicht vernünftig umzusetzten ist:
1.
Gibt es einen besonderen Grund dafür, dass die Datumse in Zeile 2 der Ausgangstabelle
als Texte (mit führendem Hochkomma) stehen? Das stört ein wenig - sowohl bei Code als bei Formeln.
2.
Ist sichergestellt, dass in Spalte A von "hier eintragen" alle Datumse stehen, zu denen Daten übertragen werden sollen?
Oder soll das Programm fehlende Datums ergänzen?
3.
In der Ausgangstabelle kommt wohl jeden Tag eine weitere Spalte ausgefüllt.
Wenn das Programm nicht nur am Monatsende übertragen soll:
Sollen Daten zu bereits übertragenen Daten noch einmal übertragen werden?
Sie könnten in der Ausgangstabelle geändert worden sein (Menschen machen Fehler, Shit happens).
4.
IMHO ginge das Übertragen auch einfach mit Formeln,
mit INDEX(Quellbereich, Spalte, Zeile) - Zeile und Spalte werden vertauscht - das transponiert)
oder mit WVERWEIS.
Kommt das nicht in Frage?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Erich,
vielen Dank für deine Fragen.
.
Gibt es einen besonderen Grund dafür, dass die Datumse in Zeile 2 der Ausgangstabelle
als Texte (mit führendem Hochkomma) stehen? Das stört ein wenig - sowohl bei Code als bei Formeln.
===Das Formt kommt durch das Exportprogramm. Ist nicht glücklich weil es so eigentlich kein richtiges Datum ist.
2.
Ist sichergestellt, dass in Spalte A von "hier eintragen" alle Datumse stehen, zu denen Daten übertragen werden sollen?
Oder soll das Programm fehlende Datums ergänzen?
====Richtig erkannt, eigentlich muss die Tabelle täglich wachsen. Ich hätte jetzt ganz "plump" einfach.
1000 Tage runterkopiert und die dann abgefragt.
3.
In der Ausgangstabelle kommt wohl jeden Tag eine weitere Spalte ausgefüllt.
Wenn das Programm nicht nur am Monatsende übertragen soll:
Sollen Daten zu bereits übertragenen Daten noch einmal übertragen werden?
Sie könnten in der Ausgangstabelle geändert worden sein (Menschen machen Fehler, Shit happens).
====Tja, Menschen machen Fehler. Ich würde einfach die Zahlen immer wieder überschreiben.
Somit wird auch ein ev. Fehler korrigiert. Die Basisdaten kommen aus SAP.
4.
IMHO ginge das Übertragen auch einfach mit Formeln,
mit INDEX(Quellbereich, Spalte, Zeile) - Zeile und Spalte werden vertauscht - das transponiert)
oder mit WVERWEIS.
Kommt das nicht in Frage?
====Ich will die Daten ev. noch an Access weitergeben. Somit ist eine Tabelle das Beste.
Hier kann man dann auch (denke ich) besser mit weiterarbeiten.
Gruss
Uwe

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in Tabelle schreiben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread