title image


Smiley Schleife von Zeilenebene auf Spaltenebene erweitern
Hallo,



ich habe mir in Excel VBA folgende Schleife gebaut:

----------

Dim Zähler as Integer



.Range("A1").Select

For Zähler = 1 To 6



If Len(rs.Fields(Zähler).Value) > 0 Then

[ANWEISUNG]

End If



.ActiveCell.Offset(0, 1).Select

Next Zähler

End With

----------



Da diese Schleife jedoch nur die Spalten von A-F in der ersten Zeile durchgeht, möchte ich den VBA-Code nun erweitern, dass auch die nächste Zeile geprüft wird, ob

Daten enthalten sind. Sind auch Daten in der nächsten Zeile enthalten, soll die gleiche [ANWEISUNG] wie für die erste Zeile für die Spalten A-F durchgeführt werden.



Jedoch ist es im voraus nicht bekannt wie viele Zeilen im Tabellenblatt befüllt sind, da dies variabel ist. Auch kann es vorkommen, dass in einer Zeile keine Daten vorkommen, aber in der nächsten.



Freue mich über jede Hilfe, da ich schon am verzweifeln bin!











geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: