Søg
Avatar billede Klaus123 Mester
03. februar 2015 - 21:24 Der er 3 kommentarer og
1 løsning

VBA - Dele Tekststreng i to

Hej

Jeg har lavet en userform med en tekstboks som giver mig variablen Emne.

Variablen Emne er en tekst med vilkårlig længde.

Jeg vil gerne have delt teksten op i to variable således

Emne_delEt = kode 'Teksten deles ved et mellemrum således teksten er så lang som mulig men under 45 karakterer

Emne_delTo = kode 'Den sidste del af teksten ligges i variablen. Hvis teksten er over 45 karakterer kommer en fejlmeddelelse op.

Fejlmeddelelsen må gerne komme op ligeså snart kriteriet er overskredet hvis det er muligt.
Avatar billede jens48 Ekspert
03. februar 2015 - 22:45 #1
Jeg har lavet en makro som deler en tekst i celle D1 op i to dele i D2 og D3. Det skulle ikke være svært at rette den til. så den passer til dit ønske.

Sub Macro2()
Dim Emne, Emne1, Emne2 As String
Emne = Cells(1, 4)
For x = 45 To 1 Step -1
If Mid(Emne, x, 1) = " " Then
Emne1 = Left(Emne, x - 1)
Emne2 = Mid(Emne, x + 1, 999)
GoTo A:
End If
Next
A:
Cells(2, 4) = Emne1
Cells(3, 4) = Emne2
End Sub
Avatar billede excelent Ekspert
03. februar 2015 - 23:24 #2
Private Sub TextBox1_Change()
Emne = Me.TextBox1
længde = Len(Emne)
xPos = InStrRev(Left(Emne, 45), " ")
delEt = Trim(Left(Emne, xPos))
delTo = Trim(Right(Emne, længde - xPos))
If Len(delTo) > 45 Then MsgBox "delTo er " & Len(delTo)
End Sub
Avatar billede Klaus123 Mester
09. februar 2015 - 09:29 #3
Hej

Jeg benyttede macroen fra Exelent. Vil du lægge et svar.

Venlig hilsen

Klaus
Avatar billede excelent Ekspert
03. marts 2015 - 20:30 #4
ok
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
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
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Udskrift af ark Af boro23 i Excel 4 17/02/202608:38 18/02/202607:46
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 går 00:56 3 skærme 27 Af bbm i Skærme
20/0316:18 "gratis" "reklamefri" hjemmeside -næsten --som man kan lave i søvne : Af Novice-1 i Andet software
19/0316:52 Proxy router/server Af joki i Routere & Switches
19/0311:04 Icotera vs Nokia fiberboks Af Uvanga i Routere & Switches
18/0323:30 Outlook send/modtag manuelt Af pwn i Office & Kontorpakker
White papers
Flere white papers »