Zellinhalte prüfen und ggf. ersetzen

Bild

Betrifft: Zellinhalte prüfen und ggf. ersetzen von: M. Klink
Geschrieben am: 08.04.2005 19:25:18

Hallo,

ich möchte Zellen dahingehend prüfen, ob sie gänzlich "leer" sind oder ob 0:00,00 eingetragen ist. Sollte einer der beiden Fälle erfüllt sein, soll aus einem Tabellenblatt mit der Bezeichnung "Schlüsselwerte" der Wert aus der Zelle E 25 genommen und in die jeweilige Zelle eingetragen werden.
Die zu prüfenden Daten stehen in der Tabelle mit Namen "FwDv3" in den Zellen
C 8 bis C 18.

Danke schon mal im voraus.

Maik

Bild


Betrifft: AW: Zellinhalte prüfen und ggf. ersetzen von: Martin
Geschrieben am: 09.04.2005 14:04:34

Wenn du die Prüfung per Knopfdruck realisieren willst, dann weise einem Button folgenden Code zu:


Private Sub Zellwert_Prüfen()
Dim i As Range
For each i in Sheets("FwDv3").Range("C8:C18")
If i = "" or i = "0:00,00" Then
i.Value = Sheets("Schlüsselwerte").Range("E25").Value
End If
Next i
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellinhalte prüfen und ggf. ersetzen"