Makro som indsætter en tekst - Excel 2007

Du behøver ikke en makro for at gøre dette. Følgende formel (lavet til dansk Excel 2007/2010) burde kunne gøre det:

=HVISFEJL(HVIS(SØG("*totals*";$A1)=1;"Total";"");"")

Denne formel skal stå i celle B1 og skal så blot kopieres ned i de underliggende celler i kolonne B, hvor der skal ledes efter forekomsten af ordet "totals" (som kan stå hvor som helst i cellen).

Hvis du ikke har formler i kolonne A og B, så kan denne bruges.

Public Sub Total()
    Dim Data As Variant, I As Long
    Data = Range("A1:B" & Range("A1048576").End(xlUp).Row)
    For I = 1 To UBound(Data)
        If InStr(1, Data(I, 1), "Total") > 0 Then
            Data(I, 2) = "Total"
        End If
    Next
  Range("A1:B" & Range("A1048576").End(xlUp).Row) = Data
End Sub

Når jeg kigger nærmere efter, så efterspørger du kun en løsning, der kigger efter, om cellerne i kolonne starter med ordet "totals". Følgende formel vil derfor kunne gøre det:

=HVIS(VENSTRE($A1;6)="Totals";"Total";"")

Tak til jer begge to!

Nogle steder i kolonne B har jeg noget tekst som jeg vil bevare. Jeg skal nok prøve at blive bedre til at beskrive opgaven... Men derfor er Kabbaks løsning den optimale.

Men tak til dig Natkatten for at du har taget dig tid til at give en hjælpende hånd.

Kabbak, vær venlig at sende et svar så jeg kan tildele point!

De bedste hilsner
Den glade førstegangsbruger

et svar ;-))