Formater afhængig af celletype
Jeg har en simpel makro der udlæser markerede celler til en csv-fil ved hjælp af Selection.Cells(RowCount, ColumnCount).Text, hvor jeg formatere det med citationstegn og den separator jeg foretrækker.Men jeg vil gerne sikre at datoer altid bliver udlæst med en speciel formatering (DD-MM-YY) samt at decimaltal altid udlæses med komma som decimal adskiller og uden tusindadskiller.
Jeg kan nemt lave en NumberFormat = "dd/mm/yy;@", men den skal kun gøre det hvis cellen er en dato, og det ved makroen ikke om det er. Det samme med "tal".
Dvs. evt. noget i den her stil:
If Selection.Cells(RowCount, ColumnCount).CellType = vbDate Then
Selection.Cells(RowCount, ColumnCount).NumberFormat = "dd/mm/yy;@"
Meget gerne en tilsvarende løsning til at spørge om noget er et tal. Hvis det er et tal, og har decimaler skal der bruges komma og ingen tusindadskiller. Alternativt skal talet angives uden decimal tegn og selvfølgelig uden tusindadskiller.
PS: Hvis nogen skulle være i tvivl, så er dette min første VBA makro - bær over med mig :-)
