Hallo
Ich bin dabei eine Datei zu machen wo nach in einer reihe nach einem x gesucht wird und dann die Zeile in ein anderes Blatt Kopiert werden soll.
Jetzt habe ich aber das Problem das immer die Formatierung mit übertragen wird. Da in den Kopierten Zeilen Rechnungen Hinterlegt sind bekomme ich dann im Kopierten Blatt keine Zahlen angezeigt. Vieleicht hat hier ja jemand eine Lösung
Hier mein Bisheriger Versuch:
Sub x_kopieren_Tanke()
Dim zelle As Range, zeile As Long
For Each zelle In Range("L23:L600")
If zelle = "x" Then
zeile = zelle.Row
Rows(zeile).Copy Destination:=Sheets("Behälter und Gruben 19").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next
End Sub
|