Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Range prüfen und ggf. Daten ersetzen"
Einige Zeilen in einer sequentiellen Datei ersetzen Alle #DIV/0!-Fehlerwerte in Tabelle durch 0 ersetzen
Zellkontextmenü durch Jahreskalender ersetzen Suchen in 2. Tabelle und Ersetzen der Quelldaten
Tabellen vergleichen und Zeilen ersetzen Errechneten Wert durch nächsthöheren ersetzen
Wert aus Gültigkeitsliste durch eine Zahl ersetzen Bundesländernamen durch Abkürzungen ersetzen
Telefonnumern mit Liste vergleichen und durch Namen ersetzen Doppelt vorkommende Anführungszeichen in Textdatei ersetzen