Vorrücken des Zellinhaltes

Du musst schon die Zeile löschen und nicht den Inhalt.
https://support.microsoft.com/de-de...-tabelle-45dab66c-f6b3-4c92-b2ab-642aa240b9dc
Andreas.

Hallo Olli,

ich habe deine Texte in einen String geschrieben und in ein Array gewandelt. Dann lasse ich eine Schleife über das Array laufen. Wenn sich dann die Suchtext ändern, musst du nur den String verändern:

strText = "Text1, Text2, Text3"

varText = Split(strText, ", ")

ZellInhalt = Cells(ActiveCell.Row, SPALTE_STATUS).Value

If IsNumeric(ZellInhalt) And ZellInhalt < 0 Then

   Ungueltig = True

ElseIf IsNumeric(ZellInhalt) And ZellInhalt > 0 Then

   If ZellInhalt - CLng(ZellInhalt) <> 0 Then Ungueltig = True

Else

   For i = LBound(varText) To UBound(varText)

      If InStr(ZellInhalt, varText(i)) = 0 Then

         Counter = Counter + 1

      End If

   Next

End If

If Counter = UBound(varText) + 1 Then Ungueltig = True

If Ungueltig = True Then

   MsgBox "Ungültiger Wert"

End If

Claus

Hallo Andreas,
nach was suchst du denn? Sind das nicht auch Zellinhalte?
Du kannst auch Teile eines Zellinhaltes mit der bedingten Formatierung finden und die Zelle einfärben.
Poste mal Beispiele deiner Daten und nach was du suchst.
Claus

Hallo Dave,
<br />Über Deine Antwort habe ich mich sehr gefreut, obwohl mein Problem nicht gelöst ist. Ich möchte die Daten der Vormonate speichern:
<br />Zelle D1077 enthält die Ausgaben Jan WENN(A1=Jan; B1053)
<br />Zelle D1078 enthält die Ausgaben Febr WENN(A1=Febr;B1053)
<br />Zelle D1079 enthält die Ausgaben März WENN(A1=März;B1053)
<br />usw.
<br />Zellinhalt B1053 wird monatlich neu berechnet und im Jan in D1077 übernommen. Im Febr wird der neu berechnete Zellinhalt von B1053 in D1078 übernommen. Dann stimmt aber der Zellinhalt von D1077 nicht mehr, weil die Bedingung nicht erfüllt ist und der Zellwert deswegen auf Null gesetzt wird. Genau das soll aber nicht geschehen, der Zellinhalt soll erhalten bleiben, so daß am Jahresende die Monatszahlen aufgelistet sind.
<br />Gibt es vielleicht eine andere Lösung, sich monatlich ändernde Werte für jeden Monat separat zu speichern, also automatische, keine manuelle Übertragung bzw. Speicherung der Monatswerte?
<br />Es würde mich natürlich sehr freuen, wenn Du das Problem aufgreifen könntest. Aus meiner Sicht ist es doch nicht exotisch zu wünschen, daß ein Zellinhalt ausschließlich bei erfüllter Bedingung angepasst wird, ansonsten aber keine Änderung vorgenommen werden soll. Gibt es eine solche SONST-Bedingung WENN(Dann;SONST[behalte den Zellinhalt])?
<br />Vielen Dank nochmal
<br />Manfred ()
<br />

Hallo Olli,

du kannst mit IsNumeric(ZellInhalt) auf Zahl prüfen. Soll auch noch auf Ganzzahl geprüft werden?

Claus