Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle einmalig füllen ? >inside<

Betrifft: Zelle einmalig füllen ? >inside< von: Markus
Geschrieben am: 30.08.2004 15:44:09

Hallo geehrte Excel Profis,

ich habe folgendes simples Problem:
Zellen im Bereich A1 bis A10 sollen mit "X" gefüllt werden. Beim ersten Eintrag von X soll A20 mit dem aktuellen Datum gefüllt werden. Bei nachfolgenden X, auch zu einem späteren Zeitpunkt darf A20 nicht mehr überschrieben werden.
Also darf das aktuelle Datum nur beim ersten X in Zelle A20 geschrieben. Danach nicht mehr.

Hat jemand ne Idee wie man das lösen könnte?

Danke vielmals.
Gruß Markus

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich1 As Range

Set Bereich1 = Range("A1:A10")

If Not Intersect(Target, Bereich1) Is Nothing Then
If Target.Value = "X" Then
Range("A20") = Date
End If
End If

  


Betrifft: AW: Zelle einmalig füllen ? >inside< von: Uduuh
Geschrieben am: 30.08.2004 15:50:05

If Range("A20")="" Then Range("A20") = Date


  


Betrifft: AW: Zelle einmalig füllen ? >inside< von: Markus
Geschrieben am: 30.08.2004 16:00:30

Meinst das es dann so aussehen soll? Mhhh?

If Not Intersect(Target, BereichX) Is Nothing Then
If Target.Value = "X" Then
If Range("F81") = "" Then Range("F81") = Date
End If
End If
End If

Danke.Gruss Markus


  


Betrifft: AW: Zelle einmalig füllen ? >inside< von: Uduuh
Geschrieben am: 30.08.2004 16:07:59

ein End If zu viel.

If Not Intersect(Target, BereichX) Is Nothing Then
If Target.Value = "X" Then
If Range("F81") = "" Then Range("F81") = Date
End If
End If


  


Betrifft: Danke vielmals!!!! von: Markus
Geschrieben am: 31.08.2004 09:33:35

Danke vielmals!!!!

gruss Markus


 

Beiträge aus den Excel-Beispielen zum Thema "Zelle einmalig füllen ? >inside<"