Hallo
ich habe mir gerade die Beispieldatei heruntergeladen, habe aber noch wichtige Threads offen und muss private Dinge erledigen.
Ich schaue es mir an sobald ich Zeit habe und melde mich dann wieder.
mfg Gast 123
Hallo
vermelde zurück, beide Wünsche konnten erfüllt werden. Das neuen Ergebnis bitte in Ruhe anschauen.
Bei der Einkaufs Info kopiere ich die Überschrift aus Tabelle1, Zelle S1 in die Überschrift Spalte Tabelle2. Das Makro für Einkaufs Infos laeuft separat! D.h., in Tabelle2 ist oben Links ein Button der in einer fertigen Tabelle NUR diese Infos nachtraeglich hinein kopiert, ohne alle Daten neu aufzulisten! Ich verschiebe dabei aber keine Spalten! Hoffe das ist ok?? Beim normalen Auflisten über Button "Daten kopieren" wird das Makro mit ausgeführt!
Die neue Tabelle2 hat jetzt die Vrg Daten statt Status, wie gewünscht. Ich bitte im Original noch mal die Makros zu prüfen, zum Testen hatte ich bei einigen den Befehlt "On Error Goto" durch ein ' Zeichen deaktiviert! Dann ist er grün. Bitte überall das ' entfernen, damit dieser Befehl wieder aktiv ist. Nur zum Testen nehme ich ihn manchmal heraus!! Würde mich freuen wenn die Aufgabe damit zufriedenstellend gelöst ist.
mfg Gast 123
Nachtrag
das Makro im Modul: Modul2_DatenCopy wurde
Nicht veraendert. Es muss nur nach Next K untere Zeile eingefügt werden!
Neu hinzu gekommen ist Modul2_EinkaufInfo. Dieses Modul muss nach dem Testen im Beispiel ins Original kopiert werden.
mfg Gast 123
Code:
Next k
Call EinkaufInfos_einfügen '** neu eingfügt als eigenes Makro!!
End With
Hallo und vielen Dank :)
Allerdings wird nur noch der erste Einkaufsinfosatz in Tabelle 2 kopiert. Alle anderen werden ignoriert.
Woran könnte das wohl liegen?
Hallöchen,
meinst Du das Kopieren beim Drücken auf Daten kopieren?
Da psst zumindest ein Code nicht zum Kommentar:
Spa = .Cells(1, Columns.Count).End(xlToLeft).Column
lz1 = ASW.Cells(Rows.Count, 1).End(xlUp).Row
lzT2 = .Cells(Rows.Count, 1).End(xlUp).Row
lzAR = ASW.Cells(1, "R").End(xlDown).Row
lzAW = ASW.Cells(1, "V").End(xlDown).Row
'Tabellen Bereich ab Spalte O l?schen
.Range("A2").Resize(lzT2 + 5, Spa).ClearContents
Du löschst hier alles Ab A2 und nicht ab Spalte O ...