Inhalt einer Zelle nach Eingabe löschen
Sören Voss
wie schaffe ich es, daß der Inhalt einer Zelle gelöscht wird,
wenn die nächste Zelle gewählt wird.
z.B. der Wert in A1 wird in einer Formel in B1 verwendet.
nach der Eingabe in A1 wird eine andere Zelle gewählt. Jetzt
sollte A1 wieder leer sein und die Formel in B1 berechnet sein.
MfG
P.S. Excel XP
Melanie Breden
"Sören Voss" <Joche...@t-online.de> schrieb im Newsbeitrag
news:agp2ff$uk1$00$1...@news.t-online.com...
füge folgendes Makro im VBA Editor in den Codebereich ds entsprechenden
Tabellenblattes ein:
In meinem Beispiel würde in B2 die Formel "A1+A2" stehen. Der Wert von A1
übernimmt in dem Fall die Variable Wert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> [A1] Then Exit Sub
Application.EnableEvents = False
Dim Wert
Wert = Target
'Formel in B1 wäre "=A1+A2"
[B1] = Wert + [A2]
Target = ""
Application.EnableEvents = True
End Sub
Ich hoffe, ich habe dich richtig verstanden und du kannst mit meinem
Vorschlag etwa anfangen.
mit Gruß
Melanie
XL2000
Sören Voss
erstmal Danke.
Zu Deinem Vorschlag : jein
Zeilen und Spaltenangaben sind bei Dir etwas durcheinander.
Bei mir beziehen sich die Werte, Formeln und Zellen um die es
geht in einer Zeile.
Wie sollte das Makro aussehen, damit es im gesamten Tabellenblatt
( ca. 2000 Zeilen )
funktioniert ?
MfG
Melanie Breden
"Sören Voss" <Joche...@t-online.de> schrieb im Newsbeitrag
news:agp2ff$uk1$00$1...@news.t-online.com...
> Hallo,
> wie schaffe ich es, daß der Inhalt einer Zelle gelöscht wird,
> wenn die nächste Zelle gewählt wird.
> z.B. der Wert in A1 wird in einer Formel in B1 verwendet.
> nach der Eingabe in A1 wird eine andere Zelle gewählt. Jetzt
> sollte A1 wieder leer sein und die Formel in B1 berechnet sein.
> MfG
> P.S. Excel XP
>
Melanie schrieb:
füge folgendes Makro im VBA Editor in den Codebereich ds entsprechenden
Tabellenblattes ein:
In meinem Beispiel würde in B2 die Formel "A1+A2" stehen. Der Wert von A1
übernimmt in dem Fall die Variable Wert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> [A1] Then Exit Sub
Application.EnableEvents = False
Dim Wert
Wert = Target
'Formel in B1 wäre "=A1+A2"
[B1] = Wert + [A2]
Target = ""
Application.EnableEvents = True
End Sub
>>
"Sören Voss" <Joche...@t-online.de> schrieb im Newsbeitrag
news:agpi8h$fij$05$1...@news.t-online.com...
> Hallo Melanie,
> erstmal Danke.
> Zu Deinem Vorschlag : jein
> Zeilen und Spaltenangaben sind bei Dir etwas durcheinander.
verstehe ich nicht so ganz ;-(
mein Makro tut genau das, was du in deinem Beispiel wolltest.
> Bei mir beziehen sich die Werte, Formeln und Zellen um die es
> geht in einer Zeile.
> Wie sollte das Makro aussehen, damit es im gesamten Tabellenblatt
> ( ca. 2000 Zeilen )
dann müsstest du wohl jeder Zelladdresse eine Variable zuweisen.
Und jede Formel in einer Zelle ebenfalls per VBA definieren.
Versuche mal genauer zu beschreiben, was dein Ziel ist.
mit Gruß
Melanie