leere Zelle ist nicht leer
05.08.2005 08:50:04
GeorgK
ich versuche in einer Zeile die Summe verschiedener Zellen zu ermitteln. Solange alle Zellen Werte enthalten, bekomme ich ein Ergebnis. Wenn eine oder mehrere Zellen in der Zeile keinen Wert enthalten, erhalte ich kein Ergebnis. Wenn ich die Zellen, die keinen Wert enthalten, markiere und ENTF. drücke, klappt anschliessend die Berechnung.
Bevor die Berechnung läuft, wird der Inhalt über Sverweis gefüllt.
Ich habe es schon mit folgendem Makro probiert, funktioniert leider nicht.
Sub leeren5()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("cpo").Select
Range("D6:D204,L6:R204").Select
For Each cell In Selection
If Len(cell) = "" Then 'auch schon mit 0 probiert
cell.ClearContents
End If
Next
Application.DisplayAlerts = True
Range("F6").Select
End Sub
Wer kann mir helfen, damit ich das ganze nicht immer händisch machen muß.
Vielen Dank und Grüße
Georg