Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wertübernahme in anderes Feld + etwas mehr...

Wertübernahme in anderes Feld + etwas mehr...
MiraCeti
Hallo zusammen.
Ich hoffe sehr auf Eure Hilfe:
Ich habe in einer Tabelle zwei Felder. Wird in dem einen Feld ein x gesetzt, soll im anderen Feld auch ein x automatisch gesetzt werden. Allerdings soll dieses Feld selbst für den Anwender eingabebereit sein. Geht das? Und wenn ja, wie?
Herzlichen Dank für Eure Hilfe
Mira

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wertübernahme in anderes Feld + etwas mehr...
30.03.2012 11:20:13
ChrisL
Hi Mira
Vielleicht so?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target = "x" Then Range("B1") = "x"
End If
End Sub

(Alt+F11, links Doppelklick auf die betroffene Tabelle, Code einfügen)
Eingabe in A1, Ausgabe in B1.
Gruss
Chris
AW: und wie muss der Code erweitert werden, wenn..
30.03.2012 12:20:19
MiraCeti
Coool! Und wie muss der Code erweitert werden, damit der automatisch gesetzte Wert in Feld B1 wieder gelöscht wird, sobald der Wert in A1 gelöscht wird?
Herzlichen Dank
Mira
Range("B1") = IIf(Target = "x", "x", "")
30.03.2012 12:24:48
Matthias
Hallo
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Range("B1") = IIf(Target = "x", "x", "")
End If
End Sub
Gruß Matthias
Anzeige
AW: Range("B1") = IIf(Target = "x", "x", "")
30.03.2012 13:09:13
MiraCeti
Super. Herzlichen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige