• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Edit (F2) in macro

Status
Niet open voor verdere reacties.

Albatros

Gebruiker
Lid geworden
4 nov 2001
Berichten
388
Hoi,

Via een CSV bestand krijg ik na openen in Excel, en na "tekst naar kolommen", in rij A een datum te staan die door Excel niet wordt herkend.
Nadat ik op "F2" en "enter" druk, herkent excel deze wel als datum. Vermenigvuldigen in een cel gaat ook goed. Echter via een macro wil dit allemaal niet lopen.
Zie voorbeeld.
Wie weet raad?

Albatros
 

Bijlagen

Hoi

Zo zou ik het doen:

Code:
Dim r As Range
    
    For Each r In Range("A3:A42")
    
        If r.Value <> "" Then
            
            r.Value = DateValue(r.Text)
            
        End If
    
    Next

Wigi
 
Bedankt voor je reactie.
Ik krijg echter de foutmelding: Compileerfout, for zonder next.

Albatros
 
Dan heb je misschien niet alle code gekopieerd. De For en de Next staan er wel degelijk hierboven.
 
Hoi,

Wigi, klopt! Ik had de code niet volledig gekopieerd.
De macro werkt!
Bedankt!:thumb::thumb:

Albatros
 
Toch nog een vraagje:
De code van Wigi werkt, maar hoe selecter ik een bereik vanaf A10, en alles wat er onder staat in deze macro?
Zelf had ik het volgende, maar dat werkt niet

Sub Macro13()
'
Dim r As Range

Application.Goto Reference:="R10C1"
For Each r In Range
Range(Selection, Selection.End(xlDown)).Select
If r.Value <> "" Then
r.Value = DateValue(r.Text)
End If
Next
End Sub


Wie kan mij op weg helpen, en waar kan ik mij verdiepen in het selecteren van bereiken?

Albatros
 
Code:
Sub Macro13()
'
    Dim r As Range
    
    For Each r In Range("A10", Range("A" & Rows.Count).End(xlUp))
        
        If r.Value <> "" Then
            r.Value = DateValue(r.Text)
        End If
        
    Next
End Sub

Wigi
 
Wie kan mij op weg helpen, en waar kan ik mij verdiepen in het selecteren van bereiken?

Zoek in de helpfiles naar die End(xlUp) en zo. Ook op internet en dit forum komt dat "en masse" voor.

Wigi
 
Hoi Wigi,

Wederom bedankt!
De macro werkt perfect (nu in een keer goed gekopieerd :))
En thnx voor de tip!:thumb::thumb:

Albatros
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan