Probleme mit Datentyp VBA
14.04.2009 12:05:19
Weiss
Nur beim Kollegen nicht! Er hat das Makro 1:1 übernommen (Kopie) und er bekommt beim
Ausführen eine Fehlermeldung!
Es erscheint die Fehlermeldung "Datentypen unverträglich" (beim Vergleich
mit Value Ausschnitt aus Programmcode:
Dim lngZeile As Variant
Dim lngLetzteZeile As Variant
Dim lngSpalte As Variant
Dim wksA As Worksheet
' alle Zeilen mit nicht bewegt kleiner 2 Wochen werden gelöscht
Set wksA = ActiveSheet
lngSpalte = 30 '=AD
lngLetzteZeile = wksA.Cells(wksA.Rows.Count, lngSpalte).End(xlUp).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For lngZeile = lngLetzteZeile To 6 Step -1 'Elemente aus Auflistungen aller Art immer vom Ende _
her Löschen
If wksA.Cells(lngZeile, lngSpalte).Value