Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1852to1856
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

Eingabe in A1,Wert in B1 entfernen

Eingabe in A1,Wert in B1 entfernen
05.11.2021 12:47:23
Gerald
Hallo, ich hab folgenes Problem.
Ich hätte gerne wenn ich in Zelle A1 "OK" oder "U" oder "BSO" eingebe das der Wert in Zelle B1 entfernt wird.Bei andern Eingaben in Zelle A1 soll der Wert in B1 bestehen bleiben.
Vielen Dank im voraus.
Gruss
Gerry

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

Betreff
Datum
Anwender
Anzeige
AW: Eingabe in A1,Wert in B1 entfernen
05.11.2021 12:56:35
Tobias
Hallo Gerry,
du musst das Worksheet auf Änderungen überprüfen, dafür nutzt du das Change-Ereignis des Worksheets:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Me.Range("A1") And (Target.Value = "OK" Or Target.Value = "U" Or Target.Value = "BSO") Then
Me.Range("B1").ClearContents
End If
End Sub
Muss dementsprechend im VBA-Code des Worksheets eingebracht werden.
Schöne Grüße
Tobias
AW: Eingabe in A1,Wert in B1 entfernen
05.11.2021 13:18:06
Gerald
Klappt Prima
nochmal Besten Dank
AW: Eingabe in A1,Wert in B1 entfernen
05.11.2021 14:08:53
Werner
Hallo,
das ist meiner Meinung nach ein Fall für ein Select Case.
Das ist übersichtlicher, vor allem wenn mal noch mehr Werte dazukommen sollten, die gerprüft werden müssen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Select Case Target.Value
Case "OK", "U", "BSO": Range("B1").ClearContents
End Select
End If
End Sub
Gruß Werner
Anzeige
AW: Eingabe in A1,Wert in B1 entfernen
05.11.2021 15:32:45
GerdL
Moin,
oder ein Fall für den Vergleich.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
With Application
If IsNumeric(.Match(Target.Value, Array("OK", "U", "BSG"), 0)) Then
.EnableEvents = False
Range("B1").ClearContents
.EnableEvents = True
End If
End With
End If
End Sub
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige