1.1k Aufrufe
Gefragt in Tabellenkalkulation von
Moin Moin,

Habe ein Problem programmiere eigentlich SPSen und kein VB brauche jetzt aber einen Lösungsvorschlag für eine Anwendung:

Würde gerne Wenn in C4 = WAHR ist den Wert der in E4 steht in B17 schreiben. Wenn nun das nächste mal C4 = WAHR ist soll der Wert von E4 in B18 reingeschrieben werden. Also einfach vortlaufend.

Ist das sehr schwierig?

Danke schon mal

3 Antworten

0 Punkte
Beantwortet von coros Experte (4k Punkte)
HaAllo Kamikazee,

wann tritt denn das Ereignis in C4 ein, damit die bedingung "WAHR" wird? ODer soll einfach nur nach dem Text "WAHR" geprüft werden.

Als Ansatz mal nachfolgende Zeile

Option Explicit

Sub Test()
If Range("C4") = "Wahr" Then _
Range("B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row) = Range("E4")
End Sub
Das fügt, wenn in Zelle C4 "WAHR" steht den Wert aus E4 in die erste freie Zelle in Spalte B ein.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von
Hallo Oliver,

Danke für die Lösung genau so wollte ich das haben das in C4 Wahr steht
0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo Kamikazee,

gern geschehn, Danke auch für die Rückmeldung.

MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]
...