Range prüfen und ggf. Daten ersetzen

Bild

Betrifft: Range prüfen und ggf. Daten ersetzen von: Maik
Geschrieben am: 08.04.2005 16:49:37

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: Range prüfen und ggf. Daten ersetzen von: Herbert H.
Geschrieben am: 08.04.2005 22:41:34

hallo Maik,
wenn "0:00,00" Text ist, geht das:



Sub x()
Dim shS As Worksheet, shD As Worksheet
Dim i%

Set shS = Sheets("Schlüsselwerte")
Set shD = Sheets("FwDv3")

For i = 8 To 18
  If shD.Cells(i, 3) = "" Or _
     shD.Cells(i, 3) = "0:00,00" Then
     shD.Cells(i, 3) = shS.[e25]
  End If
Next

End Sub

     
gruß Herbert


 Bild

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