Private Sub Worksheet_SelectionChange
08.07.2007 08:57:14
highman4
ich habe mich hier an einem Problem festgebissen, welches mal funktioniert und mal nicht.
Und zwar möchte ich in einem Excelsheet, wenn ich mich in einer bestimmten Spalte befinde und eine Zelle ausgefüllt habe, dass dann automatisch in dieser Reihe mehrere Berechnungen erfolgen.
Z.B ich trage ich in Zelle C3 etwas ein.
Mit Enter wechsele ich in Celle C4.
Jetzt sollen aber in Zelle D3, E3 usw. die Eintragungen erfolgen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Reihe = ActiveCell.Row Das ist die neue angesprungene Reihe und Spalte
Spalte = ActiveCell.Column
If AlteSpalte = 3 And (AlteReihe > 1 And AlteReihe AlteReihe und Alte Spalte ist aber die Zelle mit dessen Werten weitergerechnet werden soll und in dessen Reihe die Eintragungen erfolgen sollen
Wie kriege ich ihn dahin, das er weiß wie ist der Wert von Cells(AlteZelle,Alte Spalte)
Hat jemand ne Idee, wie ich das machen kann?
So wie hier der Code ist, hat er in AlteSpalte ,AlteReihe 0 stehen.
Vielen Dank und viele Grüsse
Marco
Anzeige