genvejstaster til forskellige "tekst stumper"

Vælg Indstillinger i menuen Funktioner
Klik på fanen Stavekontrol
Klik på knappen Indstillinger for Autokorrektur
Indtast fx. +1 i feltet Erstat
Indtast synonym i feltet Med

Alternativt en VBA læsning som dog ikke retter
før du forlader feltet

Private Sub Worksheet_Change(ByVal Target As Range)
rk = Sheets("Ark10").Cells(100, 1).End(xlUp).Row
For t = 1 To rk
Target.Replace What:=Sheets("Ark10").Cells(t, 1), Replacement:=Sheets("Ark10").Cells(t, 2) & " "
Next
End Sub

indsættes i Arkets kodemodul

da filen skal køres på mange forskellige pcer er dit første forslag noget bøvlet at lave.

Løsningen i vba var lige den jeg ledte efter, men der er lige nogle tilrettelser jeg godt kunne bruge.

1. det ville være rigtig fint at jeg skulle skrive +1 eller +2 eller +3 i den celle som skal hente dataene, så det ikke går galt hvis jeg bare skriver et tal i en celle.
Løsningen kunne også godt være at man skulle skrive a1 eller a2 eller a3 osv

2. hvis jeg skriver "dette er bare prøve 1 i en lang række" i en celle pt så henter den informationerne fra celle b1 i ark10.
Dette skal den ikke da "1" jo bare er en del af en tekst jeg har skrevet.
Den skal kun hente teksten hvis jeg KUN skriver "+1" i en celle

3. hvis den tekst jeg har skrevet indeholder et beløb går det galt og teksten der bliver hentet uendelig mange gange.
Prøv f.eks. at skrive følgende i ark10

Kol A          Kol B
1              Dette er bare 1 prøve
2              Der er 2 prøver

så går det galt

Hvis filen skal køre på mange forskellige pc'er så brug denne kode
man behøver ikke gøre det manuelt.

Sub BrugerReplace()

rk = Sheets("Ark10").Cells(100, 1).End(xlUp).Row
For t = 1 To rk
Application.AutoCorrect.AddReplacement What:=Sheets("Ark10").Cells(t, 1), Replacement:=Sheets("Ark10").Cells(t, 2) & " "
Next
   
    With Application.AutoCorrect
        .TwoInitialCapitals = True
        .CorrectSentenceCap = True
        .CapitalizeNamesOfDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .DisplayAutoCorrectOptions = True
    End With
    Application.SpellingOptions.UserDict = "BRUGER.DIC"
End Sub

----------------------

mht. 1,2,3 så skal kolonne A i Ark10 jo ændres til +1 , +2 osv
men da du jo ikke kan taste fx. +1 uden dette opfattes som en formel
så start indtastning med ' før +1

ang. subben BrugerReplace
Du behøver ikke nødvendigvis at have synonymerne i et ark
de kan også indsættes i makroen, hvis det da ikke er alt for mange

hmm

der er mange og de vil blive ændret løbende så det vil være bedst med et ark der er let at taste ind i

jeg prøver lige koden

jeg kan ikke få den sidste kode til at virke, men jeg er heller ikke nogen ørn.
Hvis vi kan tilrette den første kode du lavede med de ting jeg har nævnt ovenfor vil jeg være megt glad.

jeg kunne faktisk godt tænke mig at vi bare skriver a1, a2 , a3 osv for at den henter koden.
Men så er det vel nok at jeg bare skriver a1 i ark10 ikke sandt

jeg har lige prøvet koden igen med a1 osv, så virker den faktisk fint.
Det eneste der kunne være rart var at den hoppe tilbage til den aktive celle og stod klar til at skrive i cellen er de´n hentede celle.
men det er mindre vigtigt

jeg takker for hjælpen

Jeg ved ikke om det er muligt at vælge sellen igen i edit mode
tvivler på det.

Jeg syntes du skulle ofre lidt tid på den anden, det er da smart
at den ændrer til synonymen når man taster mellemrum efter
et +1 eller hvad man nu bruger,- så prøv følgende :

Start Makrooptager imens du opretter et eller flere synonymer
som beskrevet i mit første indlæg, den burde virke i dit system