Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingabe in A1,Wert in B1 entfernen

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige