Laufzeitfehler 9
07.01.2008 13:44:21
Karel
Hallo Forum,
zuhause lauft diese Code Version Excel 2000, aber auf der Arbeit nicht Version Excel 2003
wer weis bescheidt ?
Laufzeitfehler 9
zeile fehler Set rZelle = .Find(sSuchBegr, LookAt:=xlWhole, LookIn:=xlValue)
Option Explicit
Public Sub Kopieren()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim WkSh_X As Worksheet
Dim lZeile_Q As Long
Dim lZeile_Z As Long
Dim lZeile_X As Long
Dim sSuchBegr As String
Dim rZelle As Range
Application.ScreenUpdating = False
Set WkSh_Q = Worksheets("ABC")
Set WkSh_Z = Worksheets("Monats_übersicht")
Set WkSh_X = Worksheets("Markieren")
For lZeile_X = 8 To WkSh_X.Cells(Rows.Count, 2).End(xlUp).Row
If WkSh_X.Cells(lZeile_X, 3).Value = "X" Then
sSuchBegr = WkSh_X.Cells(lZeile_X, 5).Value
With WkSh_Q.Columns(2)
Set rZelle = .Find(sSuchBegr, LookAt:=xlWhole, LookIn:=xlValue)
If Not rZelle Is Nothing Then
lZeile_Z = WkSh_Z.Cells(Rows.Count, 4).End(xlUp).Row + 1
WkSh_Z.Cells(lZeile_Z, 2).Value = WkSh_X.Cells(lZeile_X, 3).Value
WkSh_Z.Cells(lZeile_Z, 4).Value = WkSh_Q.Cells(rZelle.Row, 2).Value
WkSh_Q.Range(WkSh_Q.Cells(rZelle.Row, 15), WkSh_Q.Cells(rZelle.Row, 26)).Copy _
Destination:=WkSh_Z.Cells(lZeile_Z, 6)
WkSh_Z.Cells(lZeile_Z, 20).Value = WkSh_Q.Cells(rZelle.Row, 37).Value
Else
MsgBox "Der Artikel """ & sSuchBegr & _
""" wurde im Blatt 'ABC' nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
End If
Next lZeile_X
Application.ScreenUpdating = True
End Sub
Viele grusse
Karel