Office: VBA Code - Wenn Text in Zelle dann Datum einfügen

Moin moin,

ich habe einen VBA Code welcher die Zellen einer Spalte auf BEARBEITUNG (doppelklick mit der Maus reicht) überprüft.
Sobald die Zelle bearbeitet wurde, per Doppelklick oder einfügen eines Inhaltes wir die Nachbarszelle, also Zelle rechts daneben (selbe Zeile nächste rechte Spalte) mit dem aktuellen Datum versehen.

Hier der Code:
Dim rngBereich As Range
Set rngBereich = Intersect(Target, Range("F:F"))

If Not rngBereich Is Nothing Then
Dim rngZeile As Range
For Each rngZeile In rngBereich.Rows
Range("G" & rngZeile.Row).Value = Now

Next rngZeile
End If

Ich möchte aber das er das Datum nur einfügt wenn die überprüfte Zelle einen Text enthält und nicht schon durch einen doppelklick,
wie muss ich den Code dahingehend ändern?

Danke

 

Hallo,

zB. erfüllt folgender Code Deine Wünsche:

Code:

 Dim rngBereich As Range
 Set rngBereich = Intersect(Target, Range("F:F"))

 If Not rngBereich Is Nothing Then
     Dim rngZelle As Range
     For Each rngZelle In rngBereich.Cells
       If Not IsEmpty(rngZelle) Then rngZelle.Offset(0, 1).Value = Now
     Next rngZelle
 End If

 

Joo, danke, läuft :)