Hallo Excel Experten,
ich habe das nachfolgende Makro, in dem wird mir die Variable rZelle als nicht definiert angemeckert.
Das kann eigentlich nicht der Fehler sein, der muss woanders stecken, nur sehe ich ihn nicht.
Wer sieht ihn und sagt mir, wo er ist.
Blau markiert wird Set rZelle in der Zeile Set rZelle = .Find(... und es kommt der Hinweis
Fehler beim Kompilieren:
Variable nicht definiert
Option Explicit
Public Sub FindenKopieren()
Dim WkSh As Worksheet
Dim lLetzte As Long
Dim lZeile As Long
Dim rZelle As Range
Application.ScreenUpdating = False
Set WkSh = Worksheets("Archiv")
lLetzte = WkSh.Cells(Rows.Count, 12).End(xlUp).Row
If lLetzte < 11 Then lLetzte = 11
With WkSh.Range("L11:L" & lLetzte) ' Suchbereich in L-Spalte (bis letzte belegte Zeile)
Set rZelle = .Find(WkSh.Range("L2").Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
WkSh.Range("L2:IV2").Copy Destination:= _
WkSh.Range("L" & rZelle.Row & ":IV" & rZelle.Row)
Else
For lZeile = 1 To lLetzte + 1
If Application.CountA(.Range(.Cells(lZeile, 1), .Cells(lZeile, 256))) = 0 Then
WkSh.Range("L2:IV2").Copy Destination:= _
WkSh.Range("L" & lZeile & ":IV" & lZeile)
Exit For
End If
Next lZeile
End If
End With
Application.ScreenUpdating = True
End Sub
Code eingefügt mit Syntaxhighlighter 4.4
Gruß Peter