Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

erste freie Zeile suchen aber nur bis Zeile 40

Forumthread: erste freie Zeile suchen aber nur bis Zeile 40

erste freie Zeile suchen aber nur bis Zeile 40
Reinhardt
Hallo,
ich möchte mit u.a.Code ein "PASTE" in die erste freie Zeile in Spalte G durchführen.
Jedoch soll nur der Bereich bis Zeile 40 berücksichtigt werden.
Wie schreibt man so etwas?
Gruß aus Lübeck
Reinhardt.
Sub Schritt02()
'Eintragen zur Vorbereitung für ArchivB
Sheets("ArchivB").Select
Range("G1:L1").Select
Selection.Copy
Range("G" & Cells(Rows.Count, 7).End(xlUp).Row + 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End 

Sub


		
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: erste freie Zeile suchen aber nur bis Zeile 40
23.10.2010 14:13:40
{Boris}
Hi Reinhardt,
Range("G" & Cells(Rows.Count, 7).End(xlUp).Row + 1)
Was liefert denn Rows.Count?
Und wie könnte man das jetzt anpassen? ;-)
Grüße Boris
Zeile 598 !
23.10.2010 14:19:17
Reinhardt
Hallo Boris,
Unter den ersten 40 Zeilen steht eben noch etwas, und der Count läuft immer bis ans Ende.
:(
Anzeige
Nein
23.10.2010 14:25:49
{Boris}
Hi Reinhardt,
Du meinst anscheinend das Ergebnis von
Cells(Rows.Count, 7).End(xlUp).Row
Ich fragte aber nur nach
Rows.Count
Da kommst Du drauf ;-)
Grüße Boris
AW: Zeile 598 !
23.10.2010 14:31:51
{Boris}
Hi Reinhardt,
bin jetzt mal weg - daher:
Range("G" & Cells(41, 7).End(xlUp).Row + 1)
Grüße Boris
P.S.: Künftig VBA-Level ändern ;-)
Anzeige
AW: bis Zeile 40
23.10.2010 15:15:19
hary
Hallo Rheinhard
so?

Sub n()
Dim a As Long
For a = 2 To 40
If Cells(a, 7) = "" Then
Sheets("ArchivB").Range("G1:L1").Select
Selection.Copy
Range("G" & a).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Exit For
End If
Next
Application.CutCopyMode = False
End Sub

gruss hary
Anzeige
Danke Hary! o.T.
23.10.2010 17:30:24
Reinhardt
.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige