Excel formule naar VBA

[Rnie]

Goedenmiddag,

Ik heb de volgende formule in kolom A staan:

=ALS(B2>0;$A1+1;"")

Deze formule heb ik doorgetrokken in kolom A. Deze code zorgt ervoor dat er een regelnummer in kolom A wordt gezet als ik in kolom B een waarde zet. Dit werkt allemaal prima.
Maar ik wil dit eigenlijk in VBA hebben maar kom er niet echt uit.

Groeten,
Rnie

 

[wampier]

Sub lijnnr()
    Dim teller As Long
    teller = 1
    For Each cell In Range([b1], [b50000].End(xlUp))
        If cell.Value <> "" Then
            cell.Offset(0, -1).Value = teller
            teller = teller + 1
        End If
    Next cell
        
End Sub

 

[Rnie]

Thanx voor reactie. Maar als ik deze code invoer gebeurd er niet wat ik wil. Eigenlijk gebeurd er nix. Heb nog wat proberen te wijzigen in regel

For Each cell In Range([b1], [b50000].End(xlUp))

maar helaas zonder resultaat.

 

[wampier]

Kun je dan eventueel een voorbeeld toevoegen? Ik heb dit uiteraard getest voor mijn post en het deed wat ik denk dat je bedoelde, namelijke een oplopend regelnummer toevoeger in kolom A waar een waarde is gegeven in kolom B

 

[Rnie]

Hier een simpel voorbeeldje. Ik kolom A heb ik de formule gezet die ik in VBA wil hebben.

Groet,
Rnie

 

[wampier]

Het belangrijke woord hier is "automatisch"

Mijn sub werkt prima, maar niet automatisch

voeg deze macro in op blad1:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim teller As Long
If Not Intersect(Target, [b:b]) Is Nothing Then
    teller = 1
    For Each cell In Range([b1], [b50000].End(xlUp))
        If cell.Value <> "" Then
            cell.Offset(0, -1).Value = teller
            teller = teller + 1
        Else
            cell.Offset(0, -1).Value = ""
        End If
    Next cell
End If
End Sub

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B:B]) Is Nothing Then
        Target.Offset(, -1) = IIf(Target.Offset(, -1).Address = Range("A1"), 1, WorksheetFunction.Max([A:A]) + 1)
    End If
End Sub

 

[Rnie]

Thanx. Die laatste code doet wat ik wil. :thumb: Die eerste ook trouwens alleen werkt de laatste net iets lekkerder naar mijn zin. Alleen kan laatste code de doortelling niet ongedaan maken als je in kolom B de waarde weer weghaald maar dit is verder geen probleem voor mij.

Ik zet de vraag op opgelost.

Groet,
Rnie.

 

[OctaFish]

Dit is een heel andere vraag, en het is niet netjes om een vraag in een topic van een andere TS te zetten. Bovendien is de vraag opgelost. Maak dus een eigen vraag aan!

 

[huijb]

@afaf hierboven is al aangegeven waarom ik je vraag heb verwijderd.