Verbindung von Zellinhalten

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 Olli,

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

Claus

Hallo Claus,

ich habe einige Tage die "Konsolidierung" ausführlich getestet. Innerhalb der "Konsolidierung" muss man, wenn die Ursprungszellen zweier Tabellen immer gleich sind, eine Funktion auswählen, wie diese Zelleninhalte konsolidiert werden sollen, z.B. durch Summebildung.

Aber ich möchte z.B zwei Zellinhalte der Ursprungszelle A1 aus zwei Tabellen nicht zusammenfassen, sondern beide Zellinhalte in eine neue Tabelle untereinander kopieren.

Insofern scheint "Konsolidieren" nicht der richtige Weg zu sein oder?

Gruß Dieter

Hallo Andreas,

wie ist die Einstellung bei der Suche? Wenn du z.B. nachfolgende Leerzeichen in der Zelle hast, aber im Suchendialog keine Leerzeichen und die Einstellung "Gesamten Zellinhalt vergleichen" wird nichts gefunden.

Mit freundlichen Grüßen

Claus

Guten Morgen Claus,

Vielen Dank für Deine Hilfe! Es funtioniert nun. Ich habe xlValues durch xlFormulas ersetzt, da der entsprechende Zellinhalt einem Funtionswert entspricht. Also nochmals Vielen Dank!

Freundliche Grüße

Heiko