kopiertes Makro funktioniert nicht
26.04.2007 14:07:06
andreas
Hallo Zusammen
Ich arbeite gerade anner auswertung, anhand einer tabelle.
Dass sieht dann so aus das er anhand von 2 manuell eingegeben daten in einer Tabelle eine Übereinstimmung sucht anhand der spalte und der zeile welche er über die manuellen Daten bekommen hat... das Makro funktioniert auf dem test sheet leider nicht im originalen. Einen Fehler bekomm ich nicht, er schreibt nur die Informationen nicht in die dafür vorgesehenen Felder, besser gesagt er schreibt überhaupt nichts...
Das Makro:
Public Sub Matrix_auslesen()
Dim lZeile_E As Long
Dim Lzeile_M As Long
Dim lFundZei As Long
Dim iFundSpa As Integer
Dim iSpalte As Integer
Application.ScreenUpdating = False
For lZeile_E = 10 To Range("B65536").End(xlUp).Row
'If lZeile_E = 19 Then Stop
For Lzeile_M = 6 To 8
If CDbl(Range("L" & lZeile_E).Value) >= _
CDbl(Range("V" & Lzeile_M).Value) And _
CDbl(Range("L" & lZeile_E).Value) <= _
CDbl(Range("W" & Lzeile_M).Value) + 0.00001 Then
lFundZei = Lzeile_M
Exit For
End If
Next Lzeile_M
Select Case Range("S" & lZeile_E).Value
Case Is < 3999
iFundSpa = 6
Case 4000 To 6000
iFundSpa = 7
Case Is > 6000
iFundSpa = 8
End Select
Range("X" & lZeile_E).Value = Cells(lFundZei, iFundSpa).Value
Next lZeile_E
Application.ScreenUpdating = True
End Sub
das wäre das makro, hoffe ihr könnt mir helfen, ich weiss nichtmal wo ansetzen, da es im anderen sheet funktionierte
Gruss Andreas