Hejsa

Jeg er blevet lidt rusten i Excel, så jeg har brug for lidt hjælp.

 

Hvis jeg har en tekst, som stå i E39, så skal min værdig i H39 stå i højre side i cellen

Men hvis der er en tekst i G39, skal værdig i H39 stå i venstre side i cellen.

Er der ingen tekst, hverken i E39 og G39, skal værdigen, stå i midten i H39

 

Der kan ikke stå en tekst, i E39 og G39, på én gang.

 

Hvordan lave jeg lige det i Excel 365/2016 DK ?

 

Mere vil jo have mere.

Hvis det er et område, som jeg vil have VBA til at dække, f.eks. fra E39 - E45 og fra E62 - E75 og det sammen for G

Er det så ikke noget med "Range("E39:E45"):Range("E62:E75")" 

ok så prøv denne (er ikke gennemtestet)

vær opmærksom på at du skal taste direkte i aktuel celle, ellers trikker koden ikke

du kan altså ikke blot kopiere flere værdier ind i området

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E39:E45,E62:E75,G39:G45,G62:G75")) Is Nothing Then Exit Sub
If Cells(Target.Row, "E") <> "" Then Cells(Target.Row, "H").HorizontalAlignment = xlRight: Exit Sub
If Cells(Target.Row, "G") <> "" Then Cells(Target.Row, "H").HorizontalAlignment = xlLeft: Exit Sub
Cells(Target.Row, "H").HorizontalAlignment = xlCenter
End Sub

følgende linje skal udbygges med alle dine områder

If Intersect(Target, Range("E39:E45,E62:E75,G39:G45,G62:G75")) Is Nothing Then Exit Sub

under forudsætning af at det kun er kolonnerne E,G,H

ellers skal der mere til