Fehlermeldung beim kopieren und einfügen
07.04.2017 00:43:53
Joachim
bekomme bei folgendem Code in der Zeile wo ich kopiere immer einen Fehler.
Kann mir jemand sagen wo der Fehler ist?
Mach jetzt schon Stunden damit rum.
Viiiiiiiiiiiielen Dank.
Sub Schaltfläche1_Klicken()
Dim Eingabe As String
Dim lz As Long
Dim lz1 As Long
Dim i As Long
Dim n As Long
Dim Wkb As Workbook
Dim Wks As Worksheet
Set Wkb = ThisWorkbook
n = 1
Eingabe = InputBox("Bitte geben Sie Ihren Namen ein")
lz = Wkb.Sheets(n).Cells(Rows.Count, 1).End(xlUp).Row
lz1 = Wkb.Sheets("EE-Plan").Cells(Rows.Count, 1).End(xlUp).Row + 1
For n = 1 To Sheets.Count - 1
For i = 1 To lz
If Wkb.Worksheets(n).Cells(i, 1).Value = Eingabe Then
Wkb.Worksheets(n).Range(Cells(i, 1), Cells(i, 9)).Copy Wkb.Worksheets("EE-Plan"). _
Cells(lz1, 1)
End If
Next i
Next n
End Sub
Anzeige