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

Fehlermeldung seit Umstellung auf 2007

Fehlermeldung seit Umstellung auf 2007
13.05.2008 11:25:00
artuk
Guten morgen,
ich habe ein Problemchen, seit der Umstellung auf Office 2007 kriege ich eine Fehlermeldung bei diesem Makro ( dies ist ein Auszug mit der Stelle, welche die Fehlermeldung verursacht - Laufzeitfehler 1004-, fett markiert):

Function GetCFCondition(cell As Range) As Integer
Dim mycell As Range
Dim myVal, myVal_1, myVal_2
Dim i As Integer
Dim done As Boolean
GetCFCondition = 0
Set mycell = cell(1)
mycell.Select
myVal = mycell.Value
For i = 1 To cell.FormatConditions.Count
With cell.FormatConditions.Item(i)
myVal_1 = GetCFVal(mycell, cell.FormatConditions.Item(i), False)
If .Type = 1 Then
  If .Operator = xlBetween Or .Operator = xlNotBetween Then _
myVal_2 = GetCFVal(mycell, cell.FormatConditions.Item(i), True)
End If
If .Type = 1 Then
Select Case .Operator
Case xlBetween
done = (myVal >= myVal_1 And myVal = myVal_2 And myVal  myVal_1
Case xlGreaterEqual
done = myVal >= myVal_1
Case xlLess
done = myVal  myVal_1 And myVal > myVal_2)
Case xlNotEqual
done = myVal  myVal_1
Case Else
MsgBox "Unbekannter Operator: " & .Operator, , "PANIC: In 

Function GetCFCondition"
Exit Function
End Select
ElseIf .Type = 2 Then
done = myVal_1 = True
Else
MsgBox "Unbekannter Typ: " & .Type, , "PANIC: In 

Function GetCFCondition"
Exit Function
End If
On Error GoTo 0
If done Then
GetCFCondition = i
Exit Function
End If
End With
Next
End Function


Für Hilfe wäre ich sehr sehr dankbar.
Vielen Dank im Voraus!
Gruss
artuk

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung seit Umstellung auf 2007
15.05.2008 23:50:00
Tino
Hallo,
dein Code läuft so auch nicht unter 2003!
Was ist „GetCFVal“, kommt dies aus einem Speziellen Verweis?
Fehler End With ohne With, irgendwo ist ein Fehler in den If Abfragen.
Hat dieser Code so wirklich mal Funktioniert?
Ich wage dies zu bezweifeln!
Gruß
Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige