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"