Woorden weghalen

[bagyman]

Hallo ik heb een database bijgevoegd en het gaat om het volgende:

Dit zijn maar een paar regels. 1ste regel:

mach mach

nou moet ik er met een code of zo zorgen dat alleen de dikgedrukte tekst blijft, dus alle andere (schuine) tekst wordt weggehaald. ik heb ongeveer 50.000 regels die zo lijken. is het mogelijk om met 1 code of iets dergelijks te doen????en als het zo is wat dan???

:shocked:

 

[Wigi]

Komt er ergens na de schuine tekst nogmaals vette tekst voor?

 

[Wigi]

Onder mijn vorige assumptie, werkt dit:

Sub haalschuinweg()
Dim i As Integer, c As Range, mystr As String

For Each c In Range("A1", Range("A65536").End(xlUp))
    If mystr <> "" Then
        mystr = c
        j = 1
        Do
            j = j + 1
        Loop Until j = Len(c) - 1 Or c.Characters(j + 1).Font.Italic = True
        
        Mid(mystr, j + 1) = ""
        c = mystr
    End If
Next
End Sub

Wigi

 

[bagyman]

sorry te laat gelezen... nee dat was het enige tekst die weggehaald moet worden...effe kijken hoe ik die code moet zetten...

 

[bagyman]

enneee...waar moet ik de code in plaatsen???srry heb niet al te veel verstand van excel...

 

[Wigi]

In je file druk je Alt-F11. Je komt in de VBA omgeving.
Kies Invoegen > Module
Plak de code die ik schreef in het scherm.
Sluit dit scherm af zodat je terugkeert naar Excel.
Kies Alt-F8, klik op haalschuinweg en kies Uitvoeren

You're done!

Gaat het?

Wigi

 

[bagyman]

hmm. ik heb alles gedaan maar hij haalt de woorden nie weg. ik hem engels versie van excel zou dat probleem geven????

 

[Wigi]

Heb je echt alles gedaan (de equivalenten in het Engels dan) tot en met Alt-F8 (scherm met de macro's), daar de macro laten uitvoeren?

Zet anders eens tijdelijk deze regel eens onderaan in de macro:

msgbox "De macro is uitgevoerd."

Dus plaats die tussen Next en End Sub.

Run de macro opnieuw (Alt-F8 enz.) en kijk of de message box op het scherm verschijnt. Als alles goed gaat kan je die regel later wegnemen.

Wigi

 

[bagyman]

ja ik zie de massage wel, alleen de schuigedrukte woorden zijn er nog steeds...???alles geprobeert maar lukt me niet...

 

[Wigi]

Bij mij lukt het anders wel. Met het bestand die jij zelf gegeven hebt.

 

[Wigi]

Bij mij lukt het anders wel. Met het bestand die jij zelf gegeven hebt.

Het lukte bij mij met deze code:

Sub haalschuinweg()
Dim i As Integer, c As Range, mystr As String

For Each c In Range("A1", Range("A65536").End(xlUp))
    mystr = c
    If mystr <> "" Then
        j = 1
        Do
            j = j + 1
        Loop Until j = Len(c) - 1 Or c.Characters(j + 1).Font.Italic = True
        c = Mid(mystr, 1, j - 1)
    End If
Next
End Sub

Die is ietsje anders en ik denk dat het probleem dan nu ook verholpen is. Laat ons weten of dat zo is.

Wigi

 

[bagyman]

HEHE YEPPPPPPPP!!!!!!!!!!!!!!!!!!!!:thumb:

echt top...bedankt voor alle moeite!!! dit kan alleen een expert doen... ongelofelijk...!!!

 

[bagyman]

hey sorry WiGi maar zou ik dit ook andersom kunnen doen, dat ik alleen Bold weghaal!!!!

 

[bagyman]

iemanddd?????

 

[Wigi]

Sorry, vergeten. Vanavond normaal gezien een oplossing.

 

[Wigi]

Voilà:

Sub haalweg()
Dim i As Integer, c As Range, mystr As String, keep As String
keep = InputBox("Wat wilt u weghalen? Typ schuin voor de schuine tekst en vet voor de vette reeks.")
For Each c In Range("A1", Range("A65536").End(xlUp))
    mystr = c
    If mystr <> "" Then
        j = 1
        Do
            j = j + 1
        Loop Until j = Len(c) - 1 Or c.Characters(j + 1).Font.Italic = True
        If keep = "schuin" Then
            c = Mid(mystr, 1, j - 1)
        ElseIf keep = "vet" Then
            c = Mid(mystr, j + 1)
            c.Font.Bold = False
            c.Font.Italic = True
        End If
    End If
Next
End Sub

Wigi