Find tekst

Du har 2 spørgsmål om samme enme:
http://www.eksperten.dk/spm/862204
/Be_Nice

Prøv denne her :o)

Sub Fed()
Application.ScreenUpdating = False

Range("a1").Select ' Eller hvor du nu vil starte løkken

    Do
        If ActiveCell.Value = "Kontonummer" Then
            ActiveCell.offset(-2,0).Select
            Selection.Font.Bold = True
            ActiveCell.Offset(3, 0).Activate
        Else
            ActiveCell.Offset(1, 0).Activate
        End If
       
    Loop Until ActiveCell.Value = ""
   
End Sub

Hvad så hvis der er flere felter i kolonnen som er tomme som varierer med antallet.

Kan jeg lave en Loop until row = 30000?

Har prøvet men så fejler ActiveCell.Offset(1, 0).Activate


Eller hvad vil være det nemmeste?

Den kommer her,

Ny løkke - du sætter bare slut værdien til den række du vil have den skal stoppe. Husk værdien af tekst er case sensitive dvs. der er forskel på "kontonummer" og "Kontonummer"

Koden er her - håber du kan bruge den.

Sub Fed()
Application.ScreenUpdating = False

Range("a1").Select ' Eller hvor du nu vil starte løkken

Dim start As Integer
Dim slut As Integer

start = 1
slut = 3000 ' eller hvor den nu skal slutte



For start = 1 To slut
        If ActiveCell.Value = "Kontonummer" Then
            ActiveCell.Offset(-2, 0).Select
            Selection.Font.Bold = True
            ActiveCell.Offset(3, 0).Activate
        Else
            ActiveCell.Offset(1, 0).Activate
        End If
       
    Next
   
End Sub

Det virker.. tusind tak for hjælpen :)