Der skulle vel ikke være en blank til højre i cellen?
Nope. Der er kun selve teksten/tallet i kolonnen.
Har haft et lign. problem, det her fungere mig.
- indtaste 1 i en tilfældig celle
- kopiere denne celle
- markere hele A-kolonnen
- Vælg Indsæt speciel, Multiplicer
- slet 1-tallet igen
Har lige prøvet det.
Jeg kan også godt få det til at virke ved at optage det som en makro.
MEN
Så indsætter den 0 i alle tomme felter i kolonne A og det er ikke meningen.
Kan du så ikke lave en betinget formatering, der ændre skriftstypen til det samme som cellefarven, hvis cellen = 0
Gå ind her:
Filer
Indstillinger
Avanceret
.
.
.
Visninger i dette regneark
Fjern flueben i linien "vis et nul i celler, der indeholder nulværdi
tryk OK
Dette skulle løse dit problem med 0'erne
Prøv også dette:
Marker hele kolonnen ( tryk på overskriftlinien )
Højreklik på en tilfældig celle i den markerede kolonne
Tryk på formater celler...
Vælg første faneblad "Tal"
Tryk på "Tal"
Nu kan du vælge hvor mange decimaler du vil have
Tryk OK
Prøv for eksempel følgende (der med enkelte modifikationer stammer fra en person ved navn Dave Peterson):
Sub Add_Zero()
Set Rng = Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
Dim myHelperCell As Range
Dim myRng As Range
Set myRng = Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
With ActiveSheet
Set myHelperCell = .Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 1)
End With
With myRng
.NumberFormat = "General"
myHelperCell.Copy
.PasteSpecial Operation:=xlAdd
End With
Application.CutCopyMode = False
End Sub
Beklager den sene svartid men har været hængt lidt rigeligt op den sidste tid.
dkhanknu´s løsning virker lige som den skal.
StoreMortens løsning virker også efter hensigten.
Må sige at det er et super plugin med mange løsninger til hverdagens problemstillinger.
Mange tak for hjælpen.
Da der er 2 løsninger der virker for mig, vil jeg men at der skal deles points mellem jer.
Smider I et svar, så kan jeg give points til jer?
Ingen point til mig. Jeg har kun copy/pasted.
Hans
