Supportnet / Forum / Tabellenkalkulation

hi! ich hoffe es kann mir jemand helfen. ich möchte gern ein makro erstellen, der was ein bereich nach allen zellen absucht, wo zB.: "WAHR" steht. weiters soll er bestimmte zellen die rechts vom "WAHR" stehen, ihren inhalt auf zb.:"12 , 00, 22, .." abändern. Bsp.: A1=WAHR dann soll A3=12,A4=00, A6=22,A7=00 C3=WAHR dann soll C3=12,C4=00, C6=22,C7=00 Danke im voraus!

Hi,

Sub zellinhalt_suchen()
    Dim raZelle As Range
        With Worksheets("Tabelle1").UsedRange
            Set raZelle = .Find(True, lookat:=xlWhole, LookIn:=xlValues)
            If Not raZelle Is Nothing Then
                firstAddress = raZelle.Address
                Do
                    raZelle.Offset(2, 0) = 12
                    raZelle.Offset(3, 0) = 0
                    raZelle.Offset(5, 0) = 22
                    raZelle.Offset(6, 0) = 0
                    Set raZelle = .FindNext(raZelle)
                Loop While Not raZelle Is Nothing And raZelle.Address <> firstAddress
            End If
        End With
End Sub

Bis später,
Karin

hi karin!

funktioniert prima! nochmals danke! :)

mfg
SOS

• Excel Zelleninhalte in Wordfile verknüpfen