if-Abfrage
20.05.2003 11:30:04
CHRISTIAN
ich habe eine Tabelle mit ca. 50 Spalten. Ich möchte nun einige dieser Spalten füllen lassen, dabei gibt es in Spalte 4 eine Gesamtübersicht aus der die Daten entnommen werden. In den Einzelnen Spalten danach werden diese Gesamtdaten zu geordnet. Und nur wenn in diesen Spalten noch nichts Steht, soll der entsprechende Wert eingetragen werden. Leider funktioniert es nicht so wie gewünscht.
Mein Code.
Sub Vergleich_SAN()
Dim i, j
Dim LZ
LZ = Cells(Rows.Count, 2).End(xlUp).Row
For i = 4 To LZ Step 1
Cells(i, 9) = "" And Cells(i, 12) = "" And Cells(i, 15) = "" Then
Cells(i, 33).Value = Cells(i, 4).Value
End If
Next i
End Sub
Obwohl in den Spalten 12 und 15 Werte stehen, werden in die Spalte 33 diese Werte nocheinmal eingetragen.
Hat jemand diesbezüglich einen kleinen Tip für mich.