Begrænsninger af mulig indtastning i en celle

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = Cells(1, 1).Address Then
    If IsDate(Target.Value) = False And Not UCase(Target.Value) = "NEJ" Then
    Target.ClearContents
    Target.Select
    End If
    If IsDate(Target.Value) = True Then
      Target.Value = Format(Target.Value, dd - mm - yyy)
    End If
  End If
End Sub

rett denne linje:
Target.Value = Format(Target.Value, dd - mm - yyyy)

Hmmmmm - Tak, men hvor og hvordan skal jeg sætte den kode i cellen?

Jeg har aldrig lavet makro før.

Leahcim

du står i excel,
trykk Alt + F11
Tryyk ctrl + R
Du vil nå se navnet på det arket som cellen ligger i
Dobbelklikk på denne
du får opp et blankt vindu, lim inn koden der.

Denne koden virker på Celle A1  ( Cells(1,1) der første tall er rad ..)

Tak, jeg har et problem med flettede celler som jeg lige vil løse (fjerne fletningen). Hvordan kan jeg bruge koden til forskellige kolonner f.eks L5 til L30 og M5 til M30.

Send et svar så er der point på vej

Tak for hjælpen.

Leahcim

Hvis samme test skal gjøre i flere celler:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row > 4 And Target.Row < 31 And _
  Target.Column > 11 And Target.Column < 14 Then
    If IsDate(Target.Value) = False And Not UCase(Target.Value) = "NEJ" Then
    Target.ClearContents
    Target.Select
    End If
    If IsDate(Target.Value) = True Then
      Target.Value = Format(Target.Value, dd - mmmm - yyyy)
    End If
  End If
End Sub

Dette kan sikkert gjøres mere elegant,
kanskje noen kan komme med en bedre løsning.

jeg er norsk, er litt usiker på hva som menes med fletting i excel :-)

fletting, er det det samme som å slå sammen flere celler til en?

Ja, det er det samme.

Tak for hjælpen :-)

Leahcim

velg format -> celler ( eller ctrl + 1)
velg justering ( på norsk )
ta bort flueben ved "slå sammen celler"

nb! de flettede celler må være merket før du velger format....

Ja, jeg er i gang med at fjerne fletningen.

Hvis du har mange flettinger i et område, kan du markere hele området,
da fjerner du samtlige flettinger på en gang