Søg
Avatar billede witzke Nybegynder
18. november 2009 - 13:41 Der er 2 kommentarer

Tekst i Excel på højt niveau!

Jeg skal sammenkæde nogle tekststykker i et excel ark, men pga. de store mængde tekst skal jeg finde en måde at gøre følgende på.


Lad os sige at i A1 står første del af teksten, f.eks. A1="Jeg skal have"

A2-A4 står tre forskellige varianter af tekstens anden del, f.eks. A2="And", A3="Flæskesteg", A4="Vegetar"

Og i A5 står så den sidste del af teksten, A5="til julefrokosten"

I B kolonnen er lig deltagernes valg, dvs. B1 er Kurt, der vælger and og B2 er Jens, der vælger Flæskesteg, osv.

Nu til spørgsmålet:

I C1 vil jeg gerne sammenkæde teksten, så C1 er det eneste sted man kan læse hele teksten. Dvs. jeg vil gerne finde en løsning på, hvordan jeg får teksten til at ændre sig efter det felt jeg nu har markeret.

F.eks. hvis jeg har markeret B1 skal teksten i C1="Jeg skal have And til julefrokosten" og hvis jeg markerer B2 bliver teksten i C1="jeg skal have Flæskesteg til julefrokosten"


Findes der en måde at gøre dette på?
Avatar billede tjacob Juniormester
18. november 2009 - 14:07 #1
Hvis du skal have en celle til at ændre sig ved selection er du nødt til at bruge VB:

Åben VB med Alt+F11
I ruden til venstre dobbeltklik på det aktuelle ark
I den store rude til højre indsæt følgende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim sMad As String
    Select Case Target.Address
        Case "$B$1"
            sMad = Range("A2").Value
        Case "$B$2"
            sMad = Range("A3").Value
        Case "$B$3"
            sMad = Range("A4").Value
        Case Else
            Exit Sub
    End Select
    Range("C1").Value = Range("A1").Value & " " & sMad & " " & Range("A5").Value

End Sub
Avatar billede tjacob Juniormester
18. november 2009 - 14:21 #2
Her er en bedre version: Du kan have så mange retter og navne det skal være. Det er en forudsætning at antal navne er lig antal retter, og at navne starter i B1 og at der ikke er huller i A eller B-kolonnen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Not Target.Column = 2 Then Exit Sub
    If Target.Row > Range("B1").End(xlDown).Row Then Exit Sub
    Dim sMad As String, i As Long
    sMad = Range("A" & CStr(Target.Row + 1)).Value
    i = Range("A1").End(xlDown).Row
    Range("C1").Value = Range("A1").Value & " " & sMad & " " & Range("A" & CStr(i)).Value

End Sub
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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
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 3 23/03/202613:24 07/05/202614:01
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
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
07/0514:15 PHP Html Af Asky i Programmeringsværktøjer
07/0511:06 Rufus mange muligheder - valg ved install Windows Af Uvanga i Windows
06/0516:53 HTML Af Asky i Programmeringsværktøjer
06/0510:01 Mister internettet efter slumre, Af valby i Windows
05/0513:02 Lille smart tingest Af nu_igen i Fitness & Smartwatches
White papers
Flere white papers »