Søg og erstat begrænsning i antal tegn

Hov skulle måske lige nævne at det er Excel 2013

Der er ikke en grænse på 256 tegn. Så dit problem må skyldes noget andet. Kan du beskrive det nærmere eller evt. uploade din fil til gupl.dk?

Prøv i Søg og Erstat boksen at vælge 'Værdier' under 'Søg i' og se om dette løser dit problem.

Hej
Jeg kan ikke vælge værdier, jeg har kun "Formler" jeg kan vælge.

Jeg har en en masse celler (ca. 675 stk.) der indeholder tekst a la det her:

Det anbefales at isolere den massive væg udvendigt med 300 mm isolering. Den udvendige efterisolering afsluttes med en facadepudsløsning eller en hertil godkendt pladebeklædning. dampspærre, samt optimal kuldebroafbrydelse. Facadernes udseende ændres dog markant, og det skal forinden arbejdet igangsættes undersøges, om lokale bestemmelser evt. hindrer en sådan ændring i bygningens udseende.

Hvor jeg vil søge/erstatte denne tekst:

Den udvendige efterisolering afsluttes med en facadepudsløsning eller en hertil godkendt pladebeklædning. dampspærre, samt optimal kuldebroafbrydelse. Facadernes udseende ændres dog markant, og det skal forinden arbejdet igangsættes undersøges, om lokale bestemmelser evt. hindrer en sådan ændring i bygningens udseende.

Filen ligger her:
http://gratisupload.dk/f/8qwcb998w9/

Er det konsekvent alle tekster på ark2, der skal overføres til tilsvarende rækkenummer på første ark?

VBA kunne være en løsning.

Kigger på den. Og ja, der er en begrænsning i størrelsen på den tekst, som skal søges og erstattes. Så meget for min skråsikkerhed - har aldrig selv haft behov for at søge og erstatte tekststrenge på over 300 karakterer.

Nåh, men hvis Supertekst laver VBA'en så gider jeg ikke også bruge tid på det.

Hej, nej de skal ikke flyttes fra det ene ark til det andet. Jeg har bare kopieret et udpluk til ark 2 (for overskuelighedens skyld). Så søg/erstat funktionen på mere end 300 karakter er udfordringen. Jeg får mange andre lign. situationer som dette.
Håbede på man kunne ændre grænsen på de 300 i en reg. nøgle eller lign.

Så kunne der evt. være en mulighed ved anvendelse af en Userform (programmeret dialogboks) - således at en søg og erstat kan efterlignes.

Øhhh, det aner jeg ikke hvad er :)

Hvordan gør man det ?

Det er ved hjælp af VBA -

Har konstrueret en model.
Kunne du prøve at anføre et eksempel på basis af den fil du har uploaded.

Anfør den tekst, som skal søges i kolonne L
Såvel en helt tekst - eller et udsnit.

Anfør den tekst som skal erstatte den søgte tekst.

Hej, så er jeg tilbage efter Påsken :)

L29

Før:
Udvendig efterisolering med 250 mm isolering på massive ydervægge. Den udvendige efterisolering afsluttes med en facadepudsløsning eller en hertil godkendt pladebeklædning. Vinduerne skal muligvis flyttes med ud i facaderne eller alternativt udskiftes helt i forbindelse med dette. En udvendig isoleringsløsning sikrer en tæt dampspærre, samt optimal kuldebroafbrydelse. Facadernes udseende ændres dog markant, og det skal forinden arbejdet igangsættes undersøges, om lokale bestemmelser evt. hindrer en sådan ændring i bygningens udseende.

Efter:
Udvendig efterisolering med 250 mm isolering på massive ydervægge. Den udvendige efterisolering afsluttes med en facadepudsløsning eller en hertil godkendt pladebeklædning.

Hej

Tak for data - afprøver modellen.

Det virker!

Der er fundet 9 rækker med det søgte indhold
Rækkerne er: 29,55,95,121,147,173,199,225,251 - som herefter har fået erstattet teksten.

Fedt :)

Hvordan kommer jeg igang med det ?

Send en mail - så returnerer jeg modellen, som er baseret på din uploaded fil + VBA-kode. @-adresse under min profil.

Mail sendt, tak for hjælpen :)

Hvordan faen er det nu jeg giver dig point og ikke mig selv ?

PS: Kun forslagsstiller afgiver Svar - her er mit svar, som du kan acceptere:

Rem ThisWorkbook
Private Sub Workbook_Open()
    Load UserForm1
    UserForm1.Show 0
End Sub

Rem Userform1
Const søgIkolonne = "L"
Dim antalRæk As Integer, antalFundet As Integer
Private Sub Cb_erstat_Click()
Dim ix As Integer, adr As String, tekst As String
    Application.ScreenUpdating = False
   
    For ix = 0 To Me.ListBox1.ListCount - 1
        adr = Me.ListBox1.List(ix)
        tekst = Range(adr)
        Range(adr) = Replace(tekst, Me.TextBox1, Me.TextBox2)
    Next ix
End Sub
Private Sub Cb_søg_Click()
Dim cc
    antalRæk = Cells(Rows.Count, søgIkolonne).End(xlUp).Row
    antalFundet = 0
    Me.Lab_antalFundet.Caption = ""
   
    For Each cc In Range(søgIkolonne & "1:" & søgIkolonne & antalRæk)
        If InStr(cc.Text, Me.TextBox1) > 0 Then
            antalFundet = antalFundet + 1
            Me.ListBox1.AddItem cc.Address
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = cc
        End If
    Next cc
   
    Me.Lab_antalFundet.Caption = antalFundet
    If antalFundet = 0 Then
        Me.Cb_erstat.Enabled = False
    Else
        Me.Cb_erstat.Enabled = True
    End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.TextBox2 <> "" Then
        Me.Cb_erstat.Enabled = True
    Else
        Me.Cb_erstat.Enabled = False
    End If
End Sub