Udkommatering af specialtegn i vba

Mener du, som i en indholdsfortegnelse:
1. Indholdsfortegnelse ........................... 5

Er det sådan en udkommatering du ønsker i en celle?

Yderligere forklaring:

Den ovenstående formel skal stå i celle A2. Det formlen gør er at returnere det næste element i database listen. Men når jeg erklærer cellens \"værdi\" i vba, som dette
 
  ActiveCell.value = \"=dnext(\"database:liste\";A1)\"

skriver vba kompileringsfejl ventede: slutningen af sætningen, hvor så database er markeret i ovenstående sætning

Hvis jeg erklærer database:liste som en variabel kommer flg fejlmeddelelse: kørselsfejl\"1004\", der opstod en programdefineret eller objektdefineret fejl.

Hensigten med makroen er at lave dynamiske rapporter. Min foreløbige løsning er, at have ovenstående formel til at stå i en celle som jeg så kopiere ned.

Virker denne her?

ActiveCell.Formula = \"=dnext(\"database:liste\";A1)\"

Den har jeg også prøvet med samme resultat.

En række funktioner, f.eks. SUM-funktionen kan jeg godt indsætte via VBA, men denne her går tilsyneladende ikke.

Jeg kan ikke finde DNEXT i min funktionsliste i XL97.
Ligner den DGET?

Jeg har nu fundet ud af, at indsætte alle Excels funktioner i VBA.
Men formatet i din formel ser forkert ud. Virker den i alm. Excel?

Semikolon mellem argumenter skal udskiftes med komma.

Prøv:
ActiveCell.Formula = \"=dnext(\"database:liste\",A1)\"
eller
ActiveCell.Formula = \"=dnext(database:liste,A1)\"

Jeg kan få DGET-funktionen til at virke med:
ActiveCell.Formula = \"=DGET(Data,$B$1,$D$1:$D$2)\"

Den laver opslag i din database med formen: =DGET(Database,Field,Kriteria)

janvogt - desværre

Database programmet er et datawarehouse-produkt som hedder TM1, og det kører som et tilføjelsesprogram til XL. Den vil ikke accepterer andre skrivemåder, end den jeg skrev.

Jeg kan selvfølgelig lave alle specialtegnene (gåseøjne, lig med tegn, semikolon) i forskellige celler i xl og kopierer dem ind, men så kan jeg lige så godt bibeholde min nuværende løsning. Hvor formlen står i en celle og kopiere denne ned.

ASKIMS

Kan du ikke bruge chr() funktion - Ansi tabellen

eks:
strTest = \"dette er et anførselstegn \" & chr(32)

Jeg har lavet et loop, der retunere alle ansitegnene:

Sub Ansitegn()
  For i = 1 To 200
    Cells(i, 2) = Chr(i)
  Next i
End Sub

Niels

nih -> når du skriver \"dette er et anførselstegn\" hvorfor indsætter du så <space>, hvis det er gåseøjne du vil indsætte skulle man nok prøve med chr(34):)....

Udmærket tankegang det vil blive prøvet af indenfor overskuelig fremtid!

askims har du prøvet på denne her måde ?

ActiveCell.FormulaR1C1 = \"=\"\"Tekst\"\"\"

I cellens formel står der  =\"Tekst\"  og i cellen står der  Tekst

Håber det hjælper - Flemming

nih -> macroen reagerer på samme måde når man bruger funktionen Chr(34) som hvis man selv skriver tegnet \".

flemmingdahl -> så mangler jeg bare at få den til at acceptere tegnene ( : ) jf. spørgsmålet

Det er der vel ingen forskel på, da : skal i \"\" - eller er der noget jeg overser ?
ActiveCell.FormulaR1C1 = \"=\"\"Tekst\"&\":\"\"\"

askims -> er spørgsmålet lukkeklart eller ?

Så længe kolon ligger inden for anførselstegnene, jvf. de eksempler jeg har vist ovenfor, burde der ikke være nogen problemer.
I princippet burde der kunne indsættes hvad som helst.

>>>askims - fik du løst denne her ?

Hvordan kan man få dette til at stå i cellen

=dnext(\"database:liste\";A1)

Jeg er åbenbart en klovn mht til de gåseøjne, for jeg kan ikke få det til at virke!

Hvis din databaseformel virker:
(jeg har tidligere nævnt, at semikolon muligvis skal udskiftes med komma)

ActiveCell.FormulaR1C1 = \"=dnext(\"database:liste\";A1)\"

ActiveCell.FormulaR1C1 = \"=dnext(\"\"database:liste\"\",A1)\"

En anden måde er med relative referencer her er ActiveCell = E5 således referencen smutter 4 rækker op og 4 kolonner til venstre - hvilket er ligmed A1 :-)

ActiveCell.FormulaR1C1 = \"=dnext(\"\"database:liste\"\",R[-4]C[-4])\"

En lille finte som jeg ofte benytter er, at lave formlen i Excel helt færdig, som jeg vil have den. Så starter jeg makro båndoptageren, og trykker F2 for at redigere min færdige formel og så enter for at acceptere den, hvorefter jeg stopper båndoptageren. Det er for nemt.

Hvorfor vælge den nemme oplagte løsning, når man kan vælge den svære (og spørge jer :))

Hehe :-)