Zellenwerte löschen

Bild

Betrifft: Zellenwerte löschen von: ruediger
Geschrieben am: 08.03.2005 12:20:37

Hi,

hab mal wieder eine Bitte! Ich möchte im Zellbereich A1;B1 folgende Aktion per VBA realisieren:
Wenn ich in B1 einen Wert eingebe, soll automatisch der Wert aus A1 gelöscht werden.
Das Gleiche soll auch umgekehrt passieren, so daß immer nur ein Wert in der jeweiligen Zelle steht.
Könnt Ihr mir da einen Tip geben (selection change ... hab ich schon mal gedacht, aber wie?)

Vielen dank schon mal

Rüdiger

Bild


Betrifft: AW: Zellenwerte löschen von: ruds
Geschrieben am: 08.03.2005 12:29:25

hi

Private Sub Worksheet_Change(ByVal Target As Range)
  if Target.Column = 2 then       ' 2 steht hier für spalte B
    ActiveSheet.Range("A1").value = ""
  else
    ActiveSheet.Range("B1").value = ""
  End if
End Sub


hoffe das hilft weiter
ruds


Bild


Betrifft: Das hast du aber nicht getestet!!! von: Uduuh
Geschrieben am: 08.03.2005 12:32:55




Bild


Betrifft: offtopic: ja hast gewonnen :) von: ruds
Geschrieben am: 08.03.2005 12:45:21

application.enableevents = false
und dann wieder true brauchts schon

war mehr die idee als der schöne code

soz
ruds


Bild


Betrifft: AW: Zellenwerte löschen von: rüdiger
Geschrieben am: 08.03.2005 14:20:07

Hey, was macht Ihr mit so 'nem Anfänger in VBA ???? ;-)
Werd jetzt mal testen und sag Euch dann Bescheid!

Vielen Dank erstmal

Rüdiger (HuuuHuuu)


Bild


Betrifft: AW: Zellenwerte löschen von: Uduuh
Geschrieben am: 08.03.2005 12:31:06

Hallo,
in das Klassenmodul dar Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo ERRHANDLER
  Application.EnableEvents = False
  Select Case Target.Address(0, 0)
    Case "A1": Range("B1").ClearContents
    Case "B1": Range("A1").ClearContents
  End Select
ERRHANDLER:
  Application.EnableEvents = True
End Sub

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: Zellenwerte löschen von: ruediger
Geschrieben am: 08.03.2005 15:26:14

And the winner is .... UDUHHH!
Klappt genau so, wie ich es wollte!

Vielen Dank auch an rud

Rüdiger


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Focus auf Tabellenblatt"