Wert in letzte Zeile eintragen

Wertes Kollegium,
ich würde mich sehr freuen, wenn mir jemand bei folgender
Schwierigkeit helfen könnte:
Userbild

Datei: https://www.herber.de/bbs/user/43971.xls
Ziel:
Wenn in Spalte B, letzte Zeile der Wert 10 eingegeben wird,
soll in der nächsten Zeile in Spalte C oder F in die jeweiligen gelben Kästchen
die Zahl 5 eingegeben werden, falls in der Zeile davor in C oder F ein
Wert eingetragen wurde.
Problem:
1. Ich krieg das Wenn-10-dann- Eintrag-in-nächste-Zeile-Makro nicht hin
2. Es gibt schon ein Makro, welches in spalte C und F bei Anklicken
ein O einfügt. Wie vertragen sich die zwei Bedingungen im
Worksheet_SelectionChange-Code?
Uff, ein paar Stunden rumprobieren machen müde. Ich freue mich über
jeden Vorschlag. Danke,
Born

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Value = 10 Then If Target.Offset(-1, 1) "" Then Target.Offset(1, 1) = 5 If Target.Offset(-1, 4) "" Then Target.Offset(1, 4) = 5 End If End Sub

MorgenMorgen
was Du schreibst geht eigentlich nicht, es sei denn, Du hast den Code geändert.
Sobald Du in einer anderen Spalte als "B" schreibst passiert nichts.
Erst wenn eine Zelle in Spalte Column= 2 ("B") geändert wird prüft das Macro, ob eine Zeile Höher und eine Spalte weiter nach rechts etwas drin steht, wenn nicht schreibt es eine "5" eine Zeile tiefer und eine Spalte rechts ("C") daneben sowie 4 Spalten rechts neben der geänderten Zelle ("F").


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value = 10 Then 'hier die  Übersetzung offset bedeutet "versatz" _
_
wenn eine zelle in Spalte B geändert wird und _
der Inhalt der geänderten Zelle gleich 10 ist _
dann
If Target.Offset(-1, 1)  "" Then Target.Offset(1, 1) = 5
' wenn von der geänderten Zelle eine zeile nach oben (-1) und eine spalte nach rechts (1)
' der zellwert nicht leer ("") ist
' dann
' schreibe in die zelle die eine zeile (1) unter der geänderten zelle und _
' eine spalte rechts davon steht (1) den wert 5
If Target.Offset(-1, 4)  "" Then Target.Offset(1, 4) = 5
' dito für spalte F
End If
End Sub

gruss GerWas

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert in letzte Zeile eintragen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread