Zelleninhalte
07.11.2012 16:49:20
Frank
ich habe eine Tabelle mit über 30000 Zeilen und 18 Spalten.
in den Verschieden Zellen stehen zum Teil Zahlen.
Wenn eine Zelle einen Wert enthält soll der Zellwert 1 sein.
Dies habe ich mit folgendem Code gelöst
Dim CellCount, ColumnCount, X, Y As Integer
CellCount = Cells(Rows.Count, 9).End(xlUp).Row
ColumnCount = Cells(64, Columns.Count).End(xlToLeft).Column
For X = 10 To ColumnCount
For Y = 64 To CellCount
If Cells(Y, X).Value "" Then
Cells(Y, X).Value = 1
End If
Next Y
Next X
Nun soll aber wenn z.B. in einer Zelle in Spalte 10 schon einen 1 steht, in keiner weiteren Zelle in der Zeile der Spalten 11 bis 18 mehr ein Wert stehen.
Sprich es soll immer in nur in der kleinsten Spalte in einer Zeile eine 1 stehen.
ich hoffe ich habe mich einigermaßen verständlich ausgedrückt.
Kann mir jemand einen Lösungsansatz liefern?
Vielen Dank schon mal
Frank