Re: Zellen auf versch. Blättern abgleichen/editieren
30.07.2002 22:47:25
Mike E.
Hallo Jan,ich habe mir noch einmal Gedanken gemacht...
Folgendes Beispiel arbeitet mit dem rechten Mausklick auf eine Zelle in "Tabelle1".
Ich nehme an, das soll bei dir über alle Tabellen funktionieren. Dann musst du diesen Code jeweils der entsprechenden tabelle zuweisen. Wenn du nicht weißt, wie das geht, dann melde dich nochmal.
Ich habe den Code jetzt allerdings für eine Artikelbezeichung links neben der Anzahl gechrieben. In deinem Fall musst du jeweils die zweite Zahl hinter "activecell" ändern. Falls unverständlich, dann paase ich den Code gerne nochmal an:
Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)
'gewünschten Zellwert in Tabelle1 ändern, dann rechte Maustaste betätigen
Selection.Activate
Selection.Copy 'kopiert den Wert der Zelle
ActiveCell(1, -1).Select
ActiveCell(1, 2).Select 'wählt die Zelle mit dem Artikl aus
i = Selection ' i ist der Artikel (deine Ware)
'übertägt Wert und Datum in Tabelle2
Sheets("Tabelle2").Activate
Sheets("tabelle2").Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell(1, 2).Select
ActiveSheet.Paste
ActiveCell(1, 2) = Date
'übertägt Wert und Datum in Tabelle3
Sheets("Tabelle3").Activate
Sheets("Tabelle3").Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell(1, 2).Select
ActiveSheet.Paste
ActiveCell(1, 2) = Date
'kehrt auf das Ursprungsblatt zurück und versieht die neue eingabe mit dem Tagesdatum
Sheets("Tabelle1").Activate
ActiveCell(1, 3) = Date
End Sub
ich hoffe das hilft.
Gruß
Mike