Pflichtfelder mit bes, Regeln

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim rgBereich As Range Dim zaehler1 As Range Set rgBereich = Worksheets("Tabelle1").Range("a1,a2,a3") For Each zaehler1 In rgBereich If zaehler1 = "" Then zaehler1.Select Exit For End If Next zaehler1 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A3")) Is Nothing Then Dim lvarWert As Variant Application.EnableEvents = False lvarWert = Target.Value Range("A1:A3").Value = 0 Range("A1:A3").Interior.ColorIndex = xlNone Select Case Target.Address Case "$A$1" Range("A2:A3").Value = 0 Range("A2:A3").Interior.ColorIndex = 15 Target.Value = lvarWert Case "$A$2" Range("A1,A3").Value = 0 Range("A1,A3").Interior.ColorIndex = 15 Target.Value = lvarWert Case "$A$3" Range("A1:A2").Value = 0 Range("A1:A2").Interior.ColorIndex = 15 Target.Value = lvarWert End Select Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A3")) Is Nothing Then Dim lvarWert As Variant Application.EnableEvents = False lvarWert = Target(1).Value Range("A1:A3").Interior.ColorIndex = xlNone If lvarWert "" Then Range("A1:A3").Value = 0 Select Case Target.Address Case "$A$1" Range("A2:A3").Value = 0 Range("A2:A3").Interior.ColorIndex = 15 Target.Value = lvarWert Case "$A$2" Range("A1,A3").Value = 0 Range("A1,A3").Interior.ColorIndex = 15 Target.Value = lvarWert Case "$A$3" Range("A1:A2").Value = 0 Range("A1:A2").Interior.ColorIndex = 15 Target.Value = lvarWert End Select Else Range("A1:A3").Value = "" End If Application.EnableEvents = True End If End Sub

Hallo Thorsten
Ich versuche jetzt gerade meine Tabelle einzustellen.
Dazu brauche ich eine andere Spalte, nämlich b statt a.
Ich habe deinen Code so geä.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b1:b3")) Is Nothing Then
Dim lvarWert As Variant
Application.EnableEvents = False
lvarWert = Target(1).Value
Range("b1:b3").Interior.ColorIndex = xlNone
If lvarWert  "" Then
Range("b1:b3").Value = 0
Select Case Target.Address
Case "$b$1"
Range("b2:b3").Value = 0
Range("b2:b3").Interior.ColorIndex = 15
Target.Value = lvarWert
Case "$b$2"
Range("b1,b3").Value = 0
Range("b1,b3").Interior.ColorIndex = 15
Target.Value = lvarWert
Case "$b$3"
Range("b1:b2").Value = 0
Range("b1:b2").Interior.ColorIndex = 15
Target.Value = lvarWert
End Select
Else
Range("b1:b3").Value = ""
End If
Application.EnableEvents = True
End If
End Sub

leider aber ohne Erfolg.
Gebe ich in einer Zelle eine 1 ein, wird diese sofort gegen eine Null ersetzt und die anderen Felder werden ebenfalls mit einer Null beschrieben!
Ebenso bleibt der Hintergrund weiß!
Habe ich irgendetwas übersehen oder alsch eingegeben?
Liebe Grüße Lisa

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread