Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

HILFE Formelfehler im Code!!!!!

HILFE Formelfehler im Code!!!!!
Tom
Liebe Forumer,
bin mit meinem Latein am Ende.
Nachstehende Formel (der ausgezifferte Teil funzt nur der nicht ausgezifferte irgendwie nicht) im Makro bricht immer ab, bin ratlos und frustiert.


Sub Formeln()
    Dim intRow As Integer
    intRow = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
    'Range("Archiv!D2").FormulaLocal = "=WENN(C2="""";"""";TEXT(C2;""TT.MM.JJJJ""))"
    'Range("Archiv!D2:D" & intRow).FillDown
    'Range("Archiv!D:D") = Range("Archiv!D:D").Value
    
    'Range("Archiv!F2").FormulaLocal = "=WENN(E2="""";"""";TEXT(E2;""TT.MM.JJJJ""))"
    'Range("Archiv!F2:F" & intRow).FillDown
    'Range("Archiv!F:F") = Range("Archiv!F:F").Value
    
    Range("Archiv!L2").FormulaLocal = "=WENN(Oder(D2<(Heute()-366);F2<(Heute()-366));""älter1Jahr"";""""))"
    Range("Archiv!L2:L" & intRow).FillDown
    Range("Archiv!L:L") = Range("Archiv!L:L").Value
    
End Sub


Wer kann mir bitte helfen.
Danke Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: HILFE Formelfehler im Code!!!!!
Mac4
Hallo Tom,
bei mir läuft folgendes:

Sub Formeln()
Dim intRow As Integer
intRow = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
Range("Archiv!D2").FormulaLocal = "=WENN(C2="""";"""";TEXT(C2;""TT.MM.JJJJ""))"
Range("Archiv!D2:D" & intRow).FillDown
Range("Archiv!D:D") = Range("Archiv!D:D").Value
Range("Archiv!F2").FormulaLocal = "=WENN(E2="""";"""";TEXT(E2;""TT.MM.JJJJ""))"
Range("Archiv!F2:F" & intRow).FillDown
Range("Archiv!F:F") = Range("Archiv!F:F").Value
Range("Archiv!L2").FormulaLocal = "=WENN(Oder(D2<(Heute()-366);F2<(Heute()-366));""älter1Jahr"";"""")"
Range("Archiv!L2:L" & intRow).FillDown
Range("Archiv!L:L") = Range("Archiv!L:L").Value
End Sub

Die Formel in Zeile Range("Archiv!L2").FormulaLocal = "=WENN(Oder(D2 habe ich was die Klammersetzung angeht etwas verändert!
Marc
Anzeige
AW: Formelfehler im Code!
Nike
Hi,
ich nehme mal an er haengt sich an dem TEXT auf,
definiere mal diese Variable und wenn's keine ist, dann setzte sie in ""
Unten hast du ja auch den Text "älter1Jahr" in Anfuehrungszeichen...
Bye
Nike
AW: HILFE Formelfehler im Code!!!!!
25.03.2004 12:03:07
Tom
Hallo Marc,
hallo Nike,
vielen Dank, jeder hat auf seine Art recht. Jetzt funzt es prima. Puuuh
Gruß
Tom

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige