Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Range prüfen und ggf. Daten ersetzen

Range prüfen und ggf. Daten ersetzen
08.04.2005 16:49:37
Maik
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range prüfen und ggf. Daten ersetzen
08.04.2005 22:41:34
Herbert
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige