Microsoft Excel

Herbers Excel/VBA-Archiv

Vereinfachen

    Betrifft: Vereinfachen von: LUCIEN
    Geschrieben am: 26.08.2003 10:46:19

    Hallo

    Ich habe mir folgenden Code gebastelt.
    Sheets("Januar").Select
    If Range("H18").Text = "Hallo" Then
    Range("I1").Value = Range("C18").Value
    End If
    If Range("H19").Text = "Hallo" Then
    Range("I1").Value = Range("C19").Value
    End If
    If Range("H20").Text = "Hallo" Then
    Range("I1").Value = Range("C20").Value

    Dies musste ich jetzt 30 mal wiederholen

    Kann man dies vereinfachen??

    Danke im voraus
    Gruss Lucien

      


    Betrifft: Schleife von: sergiesam
    Geschrieben am: 26.08.2003 10:56:11

    Hallo,

    versuchs damit:
    Sub Schleife()
      Dim i As Byte
      For i = 18 To 48
        If Range("H" & i) = "Hallo" Then
          Range("I1") = Range("C" & i)
        End If
      Next i
    End Sub
    


    Gruß aus Linz,
    Sam


      


    Betrifft: AW: Schleife von: LUCIEN
    Geschrieben am: 26.08.2003 11:02:46

    Hallo Sam

    Das ist genau das was ich brauche

    Vielen Dank für die prompte Antwort

    Gruss Lucien


      


    Betrifft: AW: Vereinfachen von: Ingo
    Geschrieben am: 26.08.2003 11:00:20

    nicht getestet:
    Sheets("Januar").Select
    For i = 18 To 50
    If Sheets("Januar").Cells(i, 8) = "Hallo" Then
    Sheets("Januar").Range("I1") = Sheets("Januar").Cells(i, 3)
    End If
    Next i
    Durchsucht alle Zellen vomn H18 bis H50 und wenn da hallo steht wird in I1 der Inhalt aus C in der gleichen Zeile reingeschrieben

    m f G Ingo


     

    Beiträge aus den Excel-Beispielen zum Thema " Vereinfachen"