Formel Hilfe

Hallo liebe Excel-Gemeinde,
ich bearbeite eine Exceltabelle zur Zeiterfassung. Es klappt auch soweit, bis auf eine Funktion. In C3 ist die Anfangszeit z.B 8:30Uhr in D3 die Endzeit z.B. 16:30Uhr, in E3 eine Pause von z.B. 30Minuten und in F3 die 8Stunden Minus Pause. Jetzt kommts, in G3 soll ein Ja ,JA ,ja (Eingabe der 3 Möglichkeiten sollten berücksichtigt werden) für Urlaub. Nach der Eingabe von ja oder Ja oder JA, soll der Inhalt von C3, D3, E3, gelöscht (nicht unsichtbar) werden. Eine Lösung wenn "text ja", dann und VBA ClearContents wäre sehr nett. Im Internet habe ich leider keinen funktionierenden Lösungsansatz gefunden. Vielen Dank und einen guten Rutsch ins warme 2023.
LG Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lngRow As Long lngRow = 3 'Target.Row If Not Intersect(Target, Cells(lngRow, 7)) Is Nothing And LCase(Cells(lngRow, 7).Value) = "ja" Then _ Range(Cells(lngRow, 3), Cells(lngRow, 5)).ClearContents End Sub

Hallo Bernd,
ich versuche es mal...
Ereignis wird ausgelöst, wenn im Tabellenblatt eine Veränderung eintritt durch:


Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Danach wird die Variable lngRow definiert und ein Zahlenwert zugeschrieben.
In dem Beispiel die Zahl 3.
Dann wird geprüft, ob die veränderte Zelladresse die Richtige ist (Zelle G3):
If Not Intersect(Target, Cells(lngRow, 7)) Is Nothing
und dann, ob der Zellinhalt ja entspricht:
And LCase(Cells(lngRow, 7).Value) = "ja" Then
LCase macht aus dem Zellinhalt kleine Zeichen, also "ja".
Unabhängig der Gross- und Kleinschreibung.
Wenn Zelladresse und Zellinhalt dann beides richtig ist, wird der Zellbereich gelöscht:
Range(Cells(lngRow, 3), Cells(lngRow, 5)).ClearContents
Da die Variable lngRow der Zahl 3 entspricht, ist der Bereich dann C3:E3.
lngRow entspricht also der Zeile.
Die Zahl nach dem Komma entspricht der Spalte.
Ich hoffe, ich habe es verständlich erklärt... :-)
Gruß DirkR

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G3")) Is Nothing Then Select Case Range("G3").Value Case "JA", "Ja", "ja" Range("C3:D3:E3").ClearContents End Select End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim lngRow As Long lngRow = Target.Row If Not Intersect(Target, Cells(lngRow, 7)) Is Nothing And LCase(Cells(lngRow, 7).Value) = "ja" Then Range(Cells(lngRow, 3), Cells(lngRow, 5)).ClearContents End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread