Mit Deklarationen weiterarbeiten - Hallo Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

''''''''''''''''''''''''''''''''''' 'LISTENSEITE BEFÜLLEN UND SORTIEREN' With Worksheets("LISTE") lZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If .Cells(2, 1).Value = "" Then lZ = 2 .Cells(lZ, 1).Value = Blatt .Cells(lZ, 1).Hyperlinks.Add Anchor:=.Cells(lZ, 1), Address:="", SubAddress:= _ Blatt & "!A1", TextToDisplay:=Blatt .Cells(lZ, 2).Value = NNam .Cells(lZ, 3).Value = VNam .Cells(lZ, 4).Value = WorksheetFunction.VLookup _ (1, Worksheets(Blatt).Range("A4:O24 "), 2, False) '.Range("B1") = WorksheetFunction.VLookup _ '(.Range("A1"), Worksheets("Tabelle2").Range("A1:B4"), 2, False) Dim spalte For spalte = 1 To 20 .Cells(lZ, 3 * spalte + 1).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _ spalte + 4, 2).Address .Cells(lZ, 3 * spalte + 2).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _ spalte + 4, 3).Address .Cells(lZ, 3 * spalte + 3).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _ spalte + 4, 4).Address Next For spalte = 1 To 20 .Cells(lZ, 3 * spalte + 61).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _ spalte + 4, 7).Address .Cells(lZ, 3 * spalte + 62).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _ spalte + 4, 8).Address .Cells(lZ, 3 * spalte + 63).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _ spalte + 4, 9).Address Next End With

Option Explicit Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range) Dim blattno, bereich Dim quellbereich, zelle 'die blätter bei denen nix passierne soll blattno = Array("Inaktive", "Daten", "Startseite", "Liste", "Master") quellbereich = Array("B5:D24", "G5:I25") If InStr(1, "@" & Join(blattno, "@") & "@", sh.Name, vbTextCompare) > 0 Then Exit Sub If target.Count = 1 Then 'nur ein Eintrag erfolgte If Not Intersect(target, Union(sh.Range(quellbereich(0)), sh.Range(quellbereich(1)))) Is _ Nothing Then aktualisieren sh, target End If Else 'mehrere Einträge erfolgen For Each zelle In target If Not Intersect(zelle, Union(sh.Range(quellbereich(0)), sh.Range(quellbereich(1)))) Is _ Nothing Then aktualisieren sh, target End If Next End If End Sub Sub aktualisieren(sh As Object, ByVal target As Range) Dim ziel Dim spalte Set ziel = Worksheets("LISTE").Columns(1).Find(sh.Name, LookIn:=xlValues, lookat:=xlWhole) If ziel Is Nothing Then Exit Sub If target.Column > 6 Then spalte = target.Column - 6 + 3 * (target.Row - 4) + 60 Else spalte = target.Column - 1 + 3 * (target.Row - 4) End If Worksheets("LISTE").Cells(ziel.Row, spalte) = target.Value If target.Column = 3 Or target.Column = 8 Then Worksheets("LISTE").Cells(ziel.Row, _ spalte + 1) = target.Offset(, 1).Text End Sub

Moin Matthias,
zunächst einmal vielen Dank für deine Hilfe. Selber hätte ich das nicht hinbekommen. Aber einige Fragen habe ich dazu noch.
zuerst die Korrektur die umgesetzt werden muss. Du meinst bei der Korrektur den Teil der zu "DieseArbeitsmappe" kopiert werden muss.
Und dann diese Stelle:
'mehrere Einträge erfolgen
For Each zelle In target
If Not Intersect(zelle, Union(sh.Range(quellbereich(0)), sh.Range(quellbereich(1)))) Is _
Nothing Then
aktualisieren sh, target (HIER) (streiche: target / setze zelle)

Zu dem ersten Absatz deiner Erklärung: Die Änderung des Preises.
Ich muss gestehen, daran habe ich nie gedacht. Wenn bei einem Mitarbeiter ein Werkzeug xy eingegeben wurde, dann erscheint der Preis automatisch. Ändere ich in DATEN den Preis, darf der Preis sich nicht automatisch bei den schon eingegebenen Mitarbeitern mitändern.
Das wäre ja nicht sehr fair.
ABER: Gebe ich bei einem schon angelegten Mitarbeiter erneut dasselbe Werkzeug an, dann müsste der neue Preis übernommen werden.
Kann man das irgendwie hinbekommen?
Dann noch eine blöde Frage:
Der code in "Diese Arbeitsmappe" läuft automatisch und muss nicht "angestoßen" werden richtig?
Listenseite Befüllen
Sehe ich das richtig, das die Auslagerung wie in meinem zweiten Beispiel (Blatt 002 Spalte R:EG)
zwar stattfindet, aber nicht sichtbar ist? (Finde ich großartig)
Was würde passieren, wenn ich auf die Idee käme diese Felder nun anderweitig zu befüllen.
(wird nicht passieren, ist eine reine interessensfrage)
Ich habe mal drei weitere Mitarbeiter angelegt (Habe nun also Blatt 001 - 010)
Ich glaube ich habe deinen Code verstanden. Ich versuche einen Ansatz.
For spalte = 1 To 20
.Cells(lZ, 3 * spalte + 1).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _
spalte + 4, 2).Address
Das ist für das Material
.Cells(lZ, 3 * spalte + 2).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _
spalte + 4, 3).Address
Das ist die Menge
.Cells(lZ, 3 * spalte + 3).Formula = "='" & Blatt & "'!" & Worksheets(Blatt).Cells( _
spalte + 4, 4).Address
Das ist der Preis
Das ganze wird 20 mal wiederholt. Also so oft wie es (Daten)Zeilen in dem Blatt gibt.
Analog wird das ganze dann noch für die Kleidung durchgeführt.
Sehe ich das richtig. Wenn ich meine Liste erweitern oder eine neue anlegen möchte, dann kann ich das Prinzip auch für die Bereiche Arbeitsanweisungen und Fahrpersonal übernehmen, benötige dafür aber immer nur die erste Zeile deines Codes?
Ein Problem
Was ich aber nicht in deinem Code finde ist der Bereich der letztlich "LISTE" versorgt, sonst hätte ich gerne selber versucht das Problem zu lösen.
Im Blatt LISTE werden nur die Spalten D:L richtig übernommen.
Alle weiteren Spalten enthalten Verknüpfungen zum zuletzt eingebenen Tabellenblatt - hier also Blatt 010
Ich danke dir jetzt schon recht herzlich
Liebe Grüße
Steve

Moin!
Nen Haufen Text. :-) Versuche mich mal durchzuschlagen und alles zu beantworten.
1. Korrektur:
Genau! Target durch Zelle ersetzen. Damit werden dann alle Zellen durchgegangen (wenn du mehrere gleichzeitig reinkopierst)
2. Preis:
Das würde dann noch falsch laufen. Derzeit ist ist auf Grund der "festen" Verknüpfung mittels Formel immer einer Aktualisierung da. Da könnte man die Formel auch rausschmeißen und das durch den Code am Anfang laufen lassen. Damit werden die alten Daten gelassen. Gibt da nur ein Problem. Wenn man bei einem schon erfassten Artikel die Anzahl ändert, wird der neue Preis genommen. Da könnte man ggf. beim erfassen des Artikels schon den aktuellen Preis in einer ungenutzten Spalte erfassen (weiße Schriftfarbe, ausgeblendet, damit man es nicht sieht). Bei einer Änderung der ANzahl wird dann mit der Zelle abgeglichen. Das ist aber noch nicht drin. Hier mal die Variante. Füg nach
aktualisieren sh, target
mal die Zeile ein.
preiserfassen sh, Target
Das Makro dazu ist hier. Das einfach unter aktualisiern einfügen:

Sub preiserfassen(sh As Object, ByVal Target As Range)
On Error GoTo ende
Dim daten
Dim zeile
daten = Worksheets("Daten").UsedRange
If Target.Column = 3 Then
If Target.Offset(, -1)  "" And Target  "" And Target  "-" Then
Set zeile = Worksheets("Daten").Columns(1).Find(Target.Offset(, -1), LookIn:=xlValues,  _
lookat:=xlWhole)
If Not zeile Is Nothing Then
If zeile.Offset(, 2) = "Menge" Then
'Produkt
Application.EnableEvents = False
Target.Offset(, 1) = CDbl(Target) * CDbl(zeile.Offset(, 1))
Application.EnableEvents = True
Else
'nur die Nummer
Application.EnableEvents = False
Target.Offset(, 1) = zeile.Offset(, 1)
Application.EnableEvents = True
End If
Else
Exit Sub
End If
End If
End If
If Target.Column = 8 Then
If Target.Offset(, -1)  "" And Target  "" And Target  "-" Then
Set zeile = Worksheets("Daten").Columns(1).Find(Target.Offset(, -1), LookIn:=xlValues,  _
lookat:=xlWhole)
If Not zeile Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 1) = CDbl(Target) * CDbl(zeile.Offset(, 1))
Application.EnableEvents = True
Else
Exit Sub
End If
End If
End If
ende:
Application.EnableEvents = True
End Sub

3. Code in diese Arbeitsmappe:
Richtig. Voraussetzung ist natürlich, dass man die Markos aktiviert. Das ist halt der NAchteil, auch bzgl der Preise in Punkt 2. Geht dann nur mit aktivierten Makros, während die Formel immer geht. Bei der Formel könntest du aber auch mit der erwähnten Hilfsspalte arbeiten.
4. Sichtbarkeit:
Also mit Sichtbarkeit meinst du Formeln oder? Der Code überträgt das automatisch. In den Zellen in LISTE steht keine Formel mehr, die überschrieben werden können. Weiß nicht genau, was du mit Blatt 2 Spalte R:EG meinst. Da sind ja wieder Formeln sichtbar. Auf die greift der COde aber nicht zu. Die Felder kannst du also löschen oder umbenennen (Falls du jetzt R:EG meinst). Die braucht der Code nicht und habe ich erst jetzt gesehen. Habe mich jetzt meist auf den Code in DieseArbeitsmappe bezogen. Auch die Formeln beim Anlegen (können bei der Makroversion natürlich raus - werden sonst eh überschrieben) brauchen den Bereich nicht. Den kannst du also anderweitig nutzen.
5. Eingetragene Formeln:
Richtig. Die Formeln werden automisch eingefügt. IN der Reihenfolge wie du es beschrieben hast (Material, Menge, Preis) und dann das selbe für Kleidung. Beim Code vorne brauchst du aber nicht.
6. Erweiterung:
Jetzt verwirrst du mich zugegeben. Bin mir nicht sicher, ob sich die Frage auf den Code in DieseArbeitsmappe oder die automatisch eingefügten Verknüpfungen bezieht. Und welche erste Zeile meinst du bzw. sollen die Daten irgendwohin? Theoretisch kannst du da sowohl die automatische Verknüpfung als auch den Code anwenden. Musst halt nur die richtige Zeile/Zelle berechnen. Ansonsten analog dazu vorgehen. Hierzu evtl. nochmal genaue erklären und nachfragen.
7. Problem:
Also der Code in DieseArbeitsmappe läuft automatisch und fängt jede Änderung (außer Berechnungen) in allen! Blättern ab. Im Code wird dann geprüft. Die Eintragung in Liste erfolgt in der Sub aktualisieren. Wie geschrieben, wollte ich das nicht doppelt in den Code darüber packen.
Dort wird einmal das ziel gesucht - der Blattname. Damit hast du die Zeile für das Eintragen. Dann suche ich noch die richtige Spalte. Das hängt ja davon ab, ob du bei Material oder KLeidung bist.
Dann kommt eine Zeile mit dem Blatt LISTE. Da greife ich auf die LISTE zu und trage die Daten ein. Der COde drumherum war nur zum richtigen Berechnen der Zelle.
Könntest das da auch auf andere Spalten anpassen.
8: ProblemII:
Du hast geschrieben, dass nur die Spalte D bis L richtig angezeigt werden. Bei welcher der Varianten gilt das (Verknüpfung oder Code)? Bei meinem Test hat er es immer in die richtigen Zeile und Spalte eingetragen. Kann ich grad nicht nachvollziehen. Bitte nochmal genaue Beschreiben (was eingetragen, wo angezeigt, bei welchem Blatt).
So war nun auch viel Text.
VG

Beliebteste Forumthreads (12 Monate)

Mit Deklarationen weiterarbeiten - Hallo Werner

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread