Microsoft Excel

Herbers Excel/VBA-Archiv

einfügen von *

Betrifft: einfügen von * von: Fabienne
Geschrieben am: 01.09.2004 08:29:52

Hallo Leute!
Kann mir jemand helfen den Code zu schreiben, der jeweils in allen 30 Zeilen unterhalb von *Manufacturer ebenfalls ein * vor das dort stehende Wort macht?

Dankeschön!


Sub Sterne_einfügen()
    Dim l As Integer
    For l = 1 To Range("A1000").End(xlUp).Row
    If Range("A" & l).Value = "Manufacturer=" Then Range("A" & l) = "*Manufacturer="
    Next l
    
End Sub

  


Betrifft: AW: einfügen von * von: EtoPHG
Geschrieben am: 01.09.2004 08:56:09

Hallo Fabienne,

Vielleicht so:

Sub Sterne_einfügen()
    Dim l As Integer
    Dim l2 As Integer
    For l = 1 To Range("A1000").End(xlUp).Row
        If Range("A" & l).Value = "Manufacturer=" Then
            Range("A" & l) = "*Manufacturer="
            For l2 = l + 1 To l + 31
                Range("A" & l2).Value = "*" & Range("A" & l2).Value
            Next l2
        End If
    Next l
End Sub


Gruss Hansueli


  


Betrifft: AW: einfügen von * von: Fabienne
Geschrieben am: 01.09.2004 09:12:03

Vielen dank für eure Hilfe!

Hansueli, deine Version funktioniert einwandfrei!


  


Betrifft: AW: einfügen von * von: Fabienne
Geschrieben am: 01.09.2004 09:17:55

Hansueli, kannst du mir noch sagen, was ich machen müsste um alle Zeilen mit einem Stern zu versehen von "Manufacturer" bis "Other data" kommt?

Danke!


  


Betrifft: AW: einfügen von * von: Andi
Geschrieben am: 01.09.2004 09:40:18

Sub Sterne_einfügen()
    Dim l As Integer
    For l = 1 To 500
        If Cells(l, 1).Value = "Other data" Then Exit Sub
        If Cells(l, 1).Value = "Manufacturer" Then
         Cells(l, 1).Value = "*Manufacturer"
        End If
    Next l
End Sub



  


Betrifft: AW: einfügen von * von: Fabienne
Geschrieben am: 01.09.2004 09:45:59

Salut Andi

Merci für deine Hilfe, aber leider macht mir dieser Code nicht vor jedes bestehende Wort zwischen "Manufacturer" und "Other data" ein Stern.


  


Betrifft: AW: einfügen von * bis other data von: EtoPHG
Geschrieben am: 01.09.2004 14:01:36

Hallo Fabienne,

Ich würde sagen, so:


Sub Sterne_einfügen()
    Dim l As Integer
    Dim l2 As Integer
    For l = 1 To Range("A1000").End(xlUp).Row
        If Range("A" & l).Value = "Manufacturer=" Then
            Range("A" & l) = "*Manufacturer="
            l2 = l + 1
            While Range("A" & l2).Value <> "Other data"
                Range("A" & l2).Value = "*" & Range("A" & l2).Value
                l2 = l2 + 1
            Wend
        End If
    Next l
End Sub



Gruss Hansueli


  


Betrifft: AW: einfügen von * von: Andi
Geschrieben am: 01.09.2004 08:56:35

Ist es das:

Sub Sterne_einfügen()
    Dim l As Integer
    For l = 1 To 300
    If Cells(l, 1).Value = "Manufacturer=" Then
     Cells(l, 1).Value = "*Manufacturer="
    End If
    Next l
End Sub


Gruß Andi