OpenOffice.info

String klappt auch nicht... Ich warte ;)

Ich hab das Problem nähmlich schon in ein VBA Forum gepostet und die habe bisher auch noch keine Lösung...


------ EDIT: ------
Hat nun geklappt...

Hier der Code zur Lösung:
AltesDatum = "04.12.2007" 'Beispieldatum

Dim Unterschied As Long
Unterschied ...

Hallo
Na dann liefer mal den kompletten Code damit wir nachschauen können wo es klemmt.

Gruß Karo

Bitte, es wird zwar leicht unüberschaubar weil ihr die Tabelle mit den Einträgen nicht habt aber, vlt findet ja einer den Fehler...

Rem Attribute VBA_ModuleType=VBADocumentModule
Option ...

Karolus hat geschrieben:Hallo
Du bist etwas knausrig mit deinen Informationen !
Funktionierts mit:

Code: Alles auswählen

...
TEX = CStr(Cells(R, 3).formulalocal)
....

Gruß Karo

Nep da kommt als Fehlermeldung bei der Zeile:

BASIC-Laufzeitfehler.
Eigenschaft oder Methode nicht gefunden.

hm und die Lösung für das Problem??? Kann man das dann nicht umwandeln??

Hi,

MsgBox("R: " & R & Chr(13) & "DAT: " & DAT & Chr(13) & "TEX: " & TEX)

DAT = CStr(Date)
TEX = CStr(Cells(R, 3).Value)

MsgBox("R: " & R & Chr(13) & "DAT: " & DAT & Chr(13) & "TEX: " & TEX)

TEM = CInt((Mid(DAT, 4, 2)) - CInt(Mid(TEX, 4, 2)))

If ( TEM >= 3 ) Then

Die MsgBoxen dienen ...