PDA

Vollständige Version anzeigen : in leere Zellen einer Spalte einen Eintrag schreiben


taito1
28.09.2007, 08:24
Hi!
ich bin gerade am verzweifeln. Wisst ihr, wie man nach leere Zellen einer Spalte (D) sucht und zB: "kein Eintrag" hineinschreibt?

Venom
28.09.2007, 08:29
Eine Möglichkeit wäre


For x = 1 to XXX (Deine Anzahl)
If Sheets("DEINTABELLENNAME").cells(x,4) = "" Then
Sheets("DEINTABELLENNAME").cells(x,4) = "Kein Eintrag"
End if
Next x

jinx
28.09.2007, 18:24
<font size="2" face="Century Gothic">Moin, taito1,

ich hätte da noch einen Zweizeiler, wenn die Zellen wirklich leer sind (keine Formeln mit leerer Rückgabe):

On Error Resume Next
Columns("D:D").SpecialCells(xlCellTypeBlanks).Value = "kein Eintrag"</font>