Microsoft Excel

Herbers Excel/VBA-Archiv

Freie Zeile mit Bestimmung ab Zeile



Excel-Version: 9.0 (Office 2000)

Betrifft: Freie Zeile mit Bestimmung ab Zeile
von: Danilo
Geschrieben am: 04.06.2002 - 16:22:32

Hallo !

Eine Frage:

Möchte in nächste Freie Zeile Daten einfügen.
Er soll aber erst ab Zeile 6 beginnen einzufügen. Wie mache ich da.
Meine bisherige Funktion dazu :

Dim iRow As Integer

Sheets("Zwischen").Select
Rows("6:6").Select
Selection.Copy
Sheets("Erfasst").Select
iRow = Worksheets("Erfasst").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Erfasst").Cells(iRow, 1).Select
ActiveSheet.Paste


End Sub

  

Re: Freie Zeile mit Bestimmung ab Zeile
von: Uwe Wassmann
Geschrieben am: 04.06.2002 - 17:55:14

Hi,

Suche ab Zeile 6 in Spalte A :
sub suchen()
for i = 6 to 300
if cells(i,1)="" then exit for
next i

hier jetzt dein Eintrag

end sub

  

Re: Freie Zeile mit Bestimmung ab Zeile
von: WernerB.
Geschrieben am: 04.06.2002 - 18:25:44

Hallo Danilo,

teste mal diesen (selectfreien) Code:


Option Explicit
Sub ZeileKopieren()
Dim iRow As Integer
    iRow = Worksheets("Erfasst").Cells(Rows.Count, 1).End(xlUp).Row + 1
    If iRow < 6 Then iRow = 6
    Sheets("Zwischen").Rows("6:6").Copy
    Worksheets("Erfasst").Rows(iRow & ":" & iRow).PasteSpecial Paste:=xlAll, _
      Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Viel Erfolg wünscht
WernerB.
 

Beiträge aus den Excel-Beispielen zum Thema "Freie Zeile mit Bestimmung ab Zeile"