Gibt es For-Next-Schleifen, die Spalten durchlaufen?

rudi73 · 01.04.2005

Hi, ich kenne nur For-Next-Schleifen, die Zeilen durchlaufen. Suche nun nach einer Möglichkeit, Schrittweise Zellen in aufeinanderfolgenden Spalten zu durchlaufen und eine Aktion durchzuführen, wenn dort ein bestimmter Wert eingetragen ist.

Danke

Matjes · 01.04.2005

Hallo rudi73,

als kleines Beispiel, die Überschriften der Zeile 1 ausgeben.

Gruß Matjes

Code:

Sub Zeile1DurchsuchenBeispiel()
  Dim sp As Long
  For sp = 1 To 255
    If ActiveSheet.Cells(1, sp).Value &lt;>  Then
      MsgBox ( _
        Dies ist die Überschift von Spalte  &amp; sp &amp; vbLf &amp; _
        ActiveSheet.Cells(1, sp).Value)
    End If
  Next
End Sub

Gibt es For-Next-Schleifen, die Spalten durchlaufen?

rudi73

Matjes

Gibt es For-Next-Schleifen, die Spalten durchlaufen?

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums