Letzten Rückgabewert suchen mit VBA
DFN-ZIS
gibt es für folgendes Problem eine VBA-Lösung ?
In einer Tabelle schreiben mehrere Steuerfelder ( Listfelder ) ihre Werte in
unterschiedliche Zellen zurück. Also z.B. nach
B4
H6
N8
Immer genau 2 Zellen rechts davon steht ein Wert, der sich auf die Rückgabe
bezieht. Also in
D4
J6
P8
Wie kann ich nun per VBA genau und NUR den zuletzt geänderten Wert
der Felder D4 J6 und P8 auslesen, kopieren und in eine Zelle
einer anderen Tabelle kopieren. Egal und unwichtig dabei ist, welche Zelle
gerade markiert ist, weil das nicht genau gesehen wird.
Danke für die Hilfe
Carsten
--
Carsten Frömbsdorf
Cars...@germanynet.de
Renzo Lazzarini
Wie du beschrieben hast, sind in Tabelle1 3 Listboxen enthalten. Sie heissen
für mein Codebeispiel "ListBox1", "ListBox2" und "ListBox3". Sie produzieren
in dieser Reihenfolge Werte in D4, J6 und P8.
Den untenstehenden Code fügst du folgendermassen ein:
-Auf dem Tabellenreiter "Tabelle1" dürckst du die rechte Maustaste.
-"Code anzeigen" auswählen.
-Die drei Prozeduren einfügen.
Wenn du nun einen neuen Wert in einer Listbox anklickst, wird dir der
entsprechend letzte berechnete Wert die Zelle A1 der Tabelle2 geschrieben.
Private Sub ListBox1_Click()
Sheets("Tabelle2").[A1].Value = [D4].Value
End Sub
Private Sub ListBox2_Click()
Sheets("Tabelle2").[A1].Value = [J6].Value
End Sub
Private Sub ListBox3_Click()
Sheets("Tabelle2").[A1].Value = [P8].Value
End Sub
Gruss Renzo
DFN-ZIS <101.1...@germanynet.de> schrieb in im Newsbeitrag:
8jl04e$ol9t$1...@ID-24468.news.cis.dfn.de...
DFN-ZIS
Renzo Lazzarini <Renzo.L...@3337.ch> schrieb im Newsbeitrag:
8jm79s$1k6$2...@unlisys.unlisys.net...
> Wie du beschrieben hast, sind in Tabelle1 3 Listboxen enthalten. Sie
heissen
> für mein Codebeispiel "ListBox1", "ListBox2" und "ListBox3". Sie
produzieren
> in dieser Reihenfolge Werte in D4, J6 und P8.
> -Die drei Prozeduren einfügen.
>
> Wenn du nun einen neuen Wert in einer Listbox anklickst, wird dir der
> entsprechend letzte berechnete Wert die Zelle A1 der Tabelle2 geschrieben.
>
> Private Sub ListBox1_Click()
> Sheets("Tabelle2").[A1].Value = [D4].Value
> End Sub
> Private Sub ListBox2_Click()
> Sheets("Tabelle2").[A1].Value = [J6].Value
> End Sub
> Private Sub ListBox3_Click()
> Sheets("Tabelle2").[A1].Value = [P8].Value
> End Sub
Hallo Leute, hallo Renzo,
Danke für die Hilfe, nur funktioniert es bei mir nicht.
Das liegt aber an meiner Datei, die Boxen sind wohl keine normalen
ListBoxen. Ich schicke dir ( Sorry ) mal die Beispieldatei.
Falls es so nicht geht, das Problem vielleicht anders gestellt ?
In einer Tabelle ändern sich Werte in den Spalten D ; J ; und P
unabhängig davon wo der Kursor steht und welche Zelle aktiv ist.
Wie frage ich per VBA den zuletzt geänderten Wert ab und kopiere ihn
in eine andere Tabelle ?
Kann wer helfen ?
Danke
Carsten
P.S.
Diese Gruppe gehört für mich zum Feinsten was das Netz so hergibt.
--
Carsten Frömbsdorf
Cars...@germanynet.de