Microsoft Excel

Herbers Excel/VBA-Archiv

Marko durch eine Schleife optimieren | Herbers Excel-Forum


Betrifft: Marko durch eine Schleife optimieren von: edie
Geschrieben am: 03.01.2010 23:36:45

Hallo zusammen,

habe soeben ein einfaches Marko geschrieben und hätte es, wenn’s geht, optimiert
durch eine Schleife.
Der Sachverhalt ist wie Folgt: Wenn z.B. die Zelle A13 leer ist, dann soll in der Zelle A12
das Wort „Beweis2“ stehen. Das gleich mit den Zellen A20 und A19, A27 und A26,
dabei sollte entsprechend "Beweis3" bzw. "Beweis4" stehen u.s.w...

Sub test()
If Range("A13") <> "" Then
Range("A12").Value = "Beweis2"
Else
Range("A12").Value = ""
End If

If Range("A20") <> "" Then
Range("A19").Value = "Beweis3"
Else
Range("A19").Value = ""
End If

If Range("A27") <> "" Then
Range("A26").Value = "Beweis4"
Else
Range("A26").Value = ""
End If

If Range("A34") <> "" Then
Range("A33").Value = "Beweis5"
Else
Range("A33").Value = ""
End If

If Range("A41") <> "" Then
Range("A40").Value = "Beweis6"
Else
Range("A40").Value = ""
End If

End Sub
Kann mir dabei jemand helfen?

Vielen Dank im Voraus.

Grüße

  

Betrifft: AW: Marko durch eine Schleife optimieren von: Josef Ehrensberger
Geschrieben am: 03.01.2010 23:45:56

Hallo Edie,

Sub test()
  Dim lngIndex As Long
  
  For lngIndex = 1 To 5
    If Cells(lngIndex * 7 + 6, 1) <> "" Then
      Cells(lngIndex * 7 + 5, 1).Value = "Beweis" & CStr(lngIndex + 1)
    Else
      Cells(lngIndex * 7 + 5, 1).Value = ""
    End If
  Next
  
End Sub




Gruß Sepp



  

Betrifft: AW: Marko durch eine Schleife optimieren von: edie
Geschrieben am: 03.01.2010 23:53:14

Hallo Sepp,

klappt wie immer einwandfrei.

Vielen herzlichen Dank und einen schönen Abend.

Grüße


Beiträge aus den Excel-Beispielen zum Thema "Marko durch eine Schleife optimieren"