Wo ist mein Gedankenfehler?

Private Sub ZelleJa() 'Wenn Zelle "JA" enthält , loesche die Zelle in... Dim RaBereich As Range ' Variable Bereich Dim RaZelle As Range ' Variable Zelle Dim lngZ As Long ' Zeile der Zelle Set RaBereich = Intersect(Range("P4:P33"), Target) If Not RaBereich Is Nothing Then Application.EnableEvents = False For Each RaZelle In RaBereich lngZ = RaZelle.Row If UCase(RaZelle.Value) = "JA" Then 'DAS "JA wird über eine Wennfunktion in die Zelle _ geschrieben Worksheets("Programm").Cells(lngZ, 3).ClearContents End If Next RaZelle Application.EnableEvents = True End If Set RaBereich = Nothing ' Variable leeren End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo ihr Beiden,
schmunzel @ Ransi. bin doch noch ungeübt was VBA anbelangt.
Der Code steht im "Blatt A" ...leider habe ich nur Erfolg, wenn ich "Ja" direkt rein schreibe.Über Formel mag er nicht laufen/arbeiten. diesmal mit Ereignis und Target....oder ist das wieder falsch?
Option Explicit

Private Sub worksheet_change(ByVal Target As Range)
Dim WoIstJa As Range                 ' Variable Bereich
Dim DaIst As Range                   ' Variable Zelle
Dim lngZ As Long                       ' Zeile der Zelle
Set WoIstJa = Intersect(Range("P4:P33"), Target)
If Not WoIstJa Is Nothing Then
Application.EnableEvents = False
For Each DaIst In WoIstJa
lngZ = DaIst.Row
If UCase(DaIst.Value) = "JA" Then    'DAS "JA" wird über "Wennfunktion" in die Zelle  _
geschrieben,bei "direkter" eingabe gehts
Worksheets("Programm").Cells(lngZ, 3).ClearContents
End If
Next DaIst
Application.EnableEvents = True
End If
Set WoIstJa = Nothing                 ' Variable leeren
End Sub

Gruß Matthias

HAllo MAtthias
Du hast das falsche Ereigniß.
Versuch mal so:

' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
    Dim rng As Range
    Dim Zelle As Range
    Set rng = Sheets("Tabelle3").Range("P3:P33") 'Tabellennamen anpassen
    MsgBox WorksheetFunction.CountIf(rng, "Ja")
    If WorksheetFunction.CountIf(rng, "Ja") Then
        Application.EnableEvents = False
        Sheets("Tabelle3").EnableCalculation = False
        For Each Zelle In rng
            If Zelle.Value = "Ja" Then
                Worksheets("Programm").Cells(Zelle.Row, 3).ClearContents
            End If
        Next
    End If
    Sheets("Tabelle3").EnableCalculation = True
    Application.EnableEvents = True
End Sub

ransi

Private Sub worksheet_change(ByVal Target As Range) Dim WoIstJa As Range ' Variable Bereich Dim DaIst As Range ' Variable Zelle Dim lngZ As Long ' Zeile der Zelle Set WoIstJa = Intersect(Range("P4:P33"), Target) If Not WoIstJa Is Nothing Then Application.EnableEvents = False For Each DaIst In WoIstJa lngZ = DaIst.Row If UCase(DaIst.Value) = "JA" Then 'DAS "JA" wird über "Wennfunktion" in die Zelle _ geschrieben,bei "direkter" eingabe gehts Worksheets("Programm").Cells(lngZ, 3).ClearContents End If Next DaIst Application.EnableEvents = True End If Set WoIstJa = Nothing ' Variable leeren End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread