Habe einen Eingabebereich von a5:i23. dieser wird Zeilenweise,(jedoch nicht immer alle Zellen)ausgefüllt.Es werden nur zeilen nach bedarf ausgefüllt (nicht immer bis Zeile 23)
nun will ich die Zeilen,die eingegeben worden sind in ein anderes Tabellenblatt übertragen.bisher gelingt es mir nur, in das bestehende Tabellenblatt zu übertragen und auch nur eine Spalte.übertrag ich mehrere Spalten,und ist in irgendeiner Zelle etwas nicht ausgefüllt so wandert diese logischerweise eine Zeile nach oben. Weis jemand Rat
hier mal mein Code den ich derzeit zum spaltenübertragen gebrauche
Sub DatenÜbertragen()
Dim i As Integer
Application.ScreenUpdating = False
Range("A5").Select
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value <> "" Then _
Range("p65536").End(xlUp).Offset(1, 0).Value = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
end sub
Grüsse Harald