Søg
Avatar billede kim1a Ekspert
06. februar 2013 - 16:23 Der er 3 kommentarer og
1 løsning

VBA: Indtaste flade værdier

Hej Eksperter

Jeg har brug for at min makro indsætter et opslagsark hvor jeg omdanner et nummer til en tekst. Jeg har tænkt mig at det blot skal være fladt, således at jeg laver et opslag når jeg har brug for det.

Derfor skal jeg i et faneblad "opslag" have makroen til at skrive helt fladt (eksempel):
Kol A
Forkortelse
AAL
HOB
RAN
AAR
SKA
Kol B
Navn
Aalborg
Hobro
Randers
Aarhus
Skanderborg

Jeg kan naturligvis sige - vælg celle A1 - skriv forkortelse, vælg celle A2 - skriv AAL og så videre. Men der er sikkert en meget nemmere og lidt mere kompakt og læsevenlig måde at skrive det i VBA editoren?
Avatar billede jens48 Ekspert
06. februar 2013 - 17:59 #1
Nedenstående makro kan gøre det:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Dim y As String
ActiveCell = WorksheetFunction.VLookup(ActiveCell.Value, Range("A1:B5"), 2, 0)
End If
End Sub


Det er antaget at forkortelserne og de fulde navne ligger i A1:B5 og at der tastes ind i kolonne D
Avatar billede kim1a Ekspert
06. februar 2013 - 18:16 #2
Ah jeg udtrykte mig nok slet ikke klart :-)

Jeg klarer opslaget andetsteds. Det jeg skal bruge er en VBA som indsætter et nyt ark og skriver de faktiske ting jeg skrev.

Altså:
Activecell.formula = "AAL"
activecell.offset(0,1)
Activecell.formula = "Aalborg"
Activecell.offset(1,-1)
Activecell.formula = "HOB"

og så videre - men der må være en nemmere måde?
Avatar billede jens48 Ekspert
06. februar 2013 - 18:30 #3
Jeg forstår ikke din forklaring, men måske er der andre der gør det.
Avatar billede kim1a Ekspert
12. februar 2013 - 11:40 #4
Jeg prøver lige at forklare videre:
Jeg har to tabeller i et faneblad, som skal indsættes i et (andet) ark jeg kører en makro på. Begge disse tabeller skal indsættes af makroen.

Jeg kunne få makroen til at skrive tabellen forfra (den er ens hvergang), men tænker det var nemmere at få den kopieret fra en anden projektmappe makroen kan åbne og kopiere fra.

Dette vil jeg nu arbejde på, og evt. oprette nyt spm hvis jeg får problemer.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 09:43 AI google.com Af Peter Olsen i Andre onlineløsninger
31/0310:22 Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel
30/0313:45 Kablet forbindelse mellem android telefon og windows 11 pc Af 1Dorte i Android
30/0312:04 Elementtype vises - og ikke billedet? Af hkprofil i Billedbehandling
29/0312:08 Problemer med replay af købte kursusvideoer Af annam i Browsere
White papers
Flere white papers »