Clever-Excel-Forum

Das mit dem Einlesen hab ich hinbekommen, war doch nicht so schwer. Es ist immer gut eine Beispiel datei hochzuladen. Das was ich machen möchte ist nicht ganz so einfach. Ich arbeite schon seit ein paar Tagen daran und ich hab auch schon eine Lösung gefunden wie man die Daten am einfachsten aus der txt Datei einlesen und von Blatt2 nach Blatt1 kopieren kann, aber nicht an die richtige Stelle. Ich wäre sehr dankbar wenn ihr euch die Datei mal anschauen könntet. Meine Lösung ist nicht die beste, nach dem Klick auf den Button werden die Daten von Tabelle2 in Tabelle1 kopiert, die Ladezeit des Makros beträgt ca 2 Minuten. Die Liste die ich erstellt habe ist nicht vollständig aber sie soll zeigen wie die Orginalliste etwa aufgebaut ist. Das Tabellenblatt 2 habe ich erstellt, man kann das ganze bestimmt auch anders machen. Ich habe nur ein Problem mit der Sortierung der Daten von Tabellenblatt1, die Nummern auf Blatt 2 entsprechen den [1] Indexnummern auf Blatt 1. Das heißt: Ein Kunde bestellt 10 PC Mäuse, die Gesamtsumme soll auf Blatt 1 unter Index [10} stehen. Analog die anderen Nummern. Das kopieren an sich etc. ist das einfachste aber die Werte an die richtige Stelle kopieren ist etwas schwerer.

Gruß
Matthias

Hallo Matthias,

zeichne zum einen mal das Kopieren auf, da wirst Du schon Fehler feststellen.

Du hast im Kopiermakro

Workbooks("Tabelle1").Cells(i, 5).Value = Workbooks("Tabelle2").Cells(l, 12).Value 'kopieren

Das Workbooks ist falsch. Tabelle1 ist ein Blatt.

Ob die Logik mit den 22 Zeilen stimmt kann ich bei den wenigen Beispieldaten nicht beurteilen. Falls Du Zeile für Zeile durchgehen willst und z.B. die [1] bei 1 und die [2] zu 2 kommen soll, könntest Du zum einen die Nummer ermitteln mit etwas wie

iNr = Split(Split(Worksheets("Tabelle1").Cells(3, 3).Value, "[")(1), "]")(0)

und im Zielblatt könntest Du die Nummer dann in Spalte C suchen und die Daten dort eintragen. Den Code zum Suchen könntest Du aufzeichnen. Aber, wie gesagt, vielleicht passt Diene Logik auch und das wäre dann vielleicht einfacher.

Danke, ja es war etwas komplizierter. Ich habe die Zeilen in dem Programm die mir die txt Datei erstellt, jetzt richtig sortiert. Es funktioniert jetzt, das das kopieren in meinem bsp falsch war ist mir aufgefallen, ich wollts noch korrigieren habs aber vergessen.