MH_

Jag lyckas aldrig logga in igen när jag har loggat ut från forumet.

Blir tvungen att köra "glömt lösenord" och skapa ett nytt lösenord varje gång jag har loggat ut. Är det någon som har en aning om vad jag gör för fel?  När jag väl är inloggad verkar det extra lösenordet på "kontosäkerhet" funka så det borde inte vara totaldemens (Opera, privat läge). 

Såg att jag missat en detalj

om det redan har bytts till det, byts ut till ingenting,

Om det inte finns mer än ett "_" så är det väl enklast att vända på makrot och börja med att byta ut det sista tecknet till "" (reverse) så är du färdig med den delen.

För formlerna blir det krångligare dey blir svårt om det saknas fler "_" än det första. Hmmm

Du skulle kanske kunna göra något smart med hjälp av

=OMFEL(SÖK("€";BYT.UT(A12;"_";"€";SEKVENS(10)));"")

som ger en matris med positionen för alla "_"

den här formeln som hittar det sista förekomsten av  "_"

=MAX(OMFEL(SÖK("€";BYT.UT(A12;"_";"€";SEKVENS(10)));""))

Men du måste nog krångla till det oavsett. 

VBA-Makrot låter enklare

https://docs.microsoft.com/en-us/office/vba/api/excel.range.areas

Kan användas för att växla mellan områdena 

Selection.Areas(1)
Selection.Areas(2)

Då borde du kunna  skapa en tabbseparerad textvariabel som du sen kan spara undan eller pipa till en text-fil

Sub tjo()
Dim str As String
Dim i As Integer

If Selection.Areas(1).Cells.Count <> Selection.Areas(2).Cells.Count Then
MsgBox "falektig markering, gör om, gör rätt"
Exit Sub
End If

For i = 1 To Selection.Areas(1).Cells.Count
    str = str & Selection.Areas(1).Cells(i, 1).Value
    str = str & vbTab
    str = str & Selection.Areas(2).Cells(i, 1).Value
    str = str & vbCrLf
Next i

MsgBox str

'Open "C:\tmp\Tjoho.txt" For Output As #1


End Sub

Jag surnade till och raderade min profil på det andra forumet  så jag hittar inte gamla inlägg. Men visst hade vi en tråd där du fick en en sån där "Open for Output" att fungera?  Behövs det inte en End of file t.ex...

Här är en tråd du borde kunna sno låna ifrån

https://stackoverflow.com/questions/43655288/vba-code-to-save-excel-sheet-as-tab-delimited-text-file

Formel.

Om du VET att det alltid är det 3:e "-" som skall bytas ut kan du lägga på en byt.ut till

=BYT.UT(BYT.UT(BYT.UT(A12;"_";"-");"-";"_";1);"-";"";3)

Förklaringstexten till BYT.UT är lite förvirrande. "antal förekomster" skall nog vara "Förekomst NR".  Dvs 3:ean betyder att den tredje förekomsten byts ut, inte de tre första

Annars får du räkna ut hur många gånger det förekommer

=LÄNGD(A12)-LÄNGD(BYT.UT(A12;"_";""))-1

och klämma in där 3:an står

=BYT.UT(BYT.UT(BYT.UT(A12;"_";"-");"-";"_";1);"-";"";LÄNGD(A12)-LÄNGD(BYT.UT(A12;"_";""))-1)

VBA har mönstermatchning/regular expression. Då går det att trixa hur man vill (om du ändå skall köra makro).

hhttps://software-solutions-online.com/vba-regex-guide/

https://regexr.com/3hmb6

Men då måste kryssa i att VBA skall använde RegExp osv 

Du kan även använda VBAs egna sök/ersätt och utnyttja att det finns en inverteringsfunktion i VBA StrReverse

Sub tjo()
Dim mintext As String
Dim sistaStreck As Integer
mintext = Selection.Value
'byt ut alla "_" mot "-"
mintext = Replace(mintext, "_", "-")
'byt tillbasks det första "-" mot "_"
mintext = Replace(mintext, "-", "_", , Count:=1)
'Och byt tillbaks det sista "-" mot "" genom att vända på strängen och byta ut första förekomsten
mintext = Replace(StrReverse(mintext), "-", "", , Count:=1)
' och vänd tillbaks texten
mintext = StrReverse(mintext)

End Sub

eller utnyttja att VBA kan söka både framifrån och bakifrån

InStrRev function (Visual Basic for Applications) | Microsoft Docs

och göra något smart som jag inte kommer på...

För övrigt funkar inte notifiering hos mig. Jag fick bara notis om att du hade Messat.

Om du vet att de 16 första tecknen skall lämnas oförändrade så kan du ju dela upp det i två delar:

=VÄNSTER(A12;16)&BYT.UT(EXTEXT(A12;17;LÄNGD(A12));"_";"-")

Men din lösning är mycket elegantare

=BYT.UT(BYT.UT(A12;"_";"-");"-";"_";1)

Hmm, vad kan jag ha kryssat i fel? jag trodde att jag bevakade Office-tråden här, skumt