Hallo Andreas
Hi,
ich versuch mal zusammenzufassen, was ich bisher verstanden
hab:
Auf dem Blatt Daten gibt es in Spalte J Eiträge, die eindeutig
sind, also immer nur 1x vorkommen. Wenn so ein Eintrag auf
einem Artikelblatt schon vorhanden ist, sollen die geänderten
Zellen vom Blatt Daten in diese Zeile des Artikelblatts
übernommen werden.
Ja bitte.
Ist kein solcher Eintrag vorhanden, wird eine neue Zeile
angelegt = im Datenblatt
und die Zeile dann ins Artikelblatt übertragen
- auf dem Blatt „Daten“ eine neue Artikelnummer einfügst , zu
der es noch kein Blatt gibt. Soll dann ein neues Blatt erzeugt
werden, und Einträge der neuen Zeile sollen dort hin kopiert
werden?
Ja
Kapiert.
Du sprachst auch von „geänderten Zellen“. Welche Zellen werden
wo geändert, und was soll dann passieren? Wenn du z.B.
„91934-001, Banane“ in „186690-001, Zitrone“ änderst, soll
dann auf dem Bananen-Blatt etwas gelöscht werden und dafür
eine neuer Eintrag auf dem Zitronen-Blatt erscheinen?
Ja ,Daten werden nur im Blatt Daten geändert.Vom Blatt Daten werden nur Zellen der Spalten C bis K in die anderen Blätter übernommen.
Nochmal nachgefragt:
- Werden im Daten-Blatt auch Zeilen gelöscht? Wenn ja, was
soll dann passieren?
Kann passieren, dann sollte die Zeile im Artikelblatt gelöscht oder wenn diese geändert werden eben ändern.
- Kann es auch sein, dass im Daten-Blatt Artikelnummer
geändert werden? Wenn ja, was soll dann passieren? Soll der
Eintrag auf dem alten Artikel-Blatt gelöscht werden und dann
auf dem neuen Artikelblatt eingetragen werden?
Ja
Du siehst: Wir haben immer noch Klärungsbedarf.:
mir raucht der Kopf.
Aber bitte gib nicht nur Rauchzeichen, sondern genauere
Erklärungen
Bitte entschuldige , wenn ich mich manchmal nicht so genau ausdrücke.
Hab einmal einen Code für das übertragen der Werte auf ein Tabellenblatt erstellt.
Eine Schleife über alle Tabellenblätter habe ich noch nicht hin gekriegt.
Sub SätzeAufAnderesTabellenblattÜbertragen()
Dim Tab1 As Worksheet
Dim Tab2 As Worksheet
Dim L As Long
Dim i As Long
Set Tab1 = ActiveWorkbook.Worksheets(„Daten“)
Set Tab2 = ActiveWorkbook.Worksheets(„91934-001“)
For L = 7 To Tab1.UsedRange.Rows.Count
If Tab1.Cells(L, 5).Value = „91934-001“ Then
i = 1
Do Until Tab2.Cells(i, 1) = „“
i = i + 1
Loop
Tab2.Cells(i, 1).Value = Tab1.Cells(L, 3).Value
Tab2.Cells(i, 2).Value = Tab1.Cells(L, 4).Value
Tab2.Cells(i, 3).Value = Tab1.Cells(L, 5).Value
Tab2.Cells(i, 4).Value = Tab1.Cells(L, 6).Value
Tab2.Cells(i, 5).Value = Tab1.Cells(L, 7).Value
Tab2.Cells(i, 6).Value = Tab1.Cells(L, 8).Value
Tab2.Cells(i, 7).Value = Tab1.Cells(L, 9).Value
Tab2.Cells(i, 8).Value = Tab1.Cells(L, 10).Value
Tab2.Cells(i, 9).Value = Tab1.Cells(L, 11).Value
End If
Next L
MsgBox „Es wurden " & i & " Sätze übertragen“
End Sub
viele Grüße
Susanne
