Cells Bereich mit Variablen -VBA
23.01.2018 13:40:49
Hendrik
ich sitze hier schon etwas eine Stunde und komme nicht auf meinen Fehler.
Ich möchte eine bestimmte Zeile von Tabellenblatt 1 in Tabellenblatt 2 übertragen.
Da die Zeile variabel sein muss habe ich es mit Range(Cells.... versucht. Ich bekomme jedoch einen Anwendungsfehler: Laufzeitfehler '1004' zurück.
Kann mir jemand Licht ins Dunkle bringen?
Vielen Dank schon mal vorab!
Hier der Code zum Verständnis:
Sub eliminieren()
Worksheets("T-und S-Nummern").Select
Dim i As Integer
Dim Max As Long
Dim zeile As Long
Dim Wort As String
Dim w As Integer
w = 0
Max = Worksheets("Tabelle3").Range("AR1")
For i = 1 To Max
Dim obGef As Object
Wort = Worksheets("Tabelle3").Range("AO" & 2 + w)
With Worksheets("T-und S-Nummern").Columns(8) 'anpassen
Set obGef = .Find(Wort, LookIn:=xlValues, Lookat:=xlPart)
If Not obGef Is Nothing Then
Worksheets("Tabelle3").Range("AP2").Value = obGef.Row
End If
End With
zeile = Worksheets("Tabelle3").Range("AP2").Value
Worksheets("Tabelle3").Range(Cells(zeile + i, 1), Cells(zeile + i, 24)) = Worksheets("T-und S- _
Nummern").Range(Cells(zeile, 1), Cells(zeile, 24))