Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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


		

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 12: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 12:19:17
Reinhardt
Hallo Boris,
Unter den ersten 40 Zeilen steht eben noch etwas, und der Count läuft immer bis ans Ende.
:(
Nein
23.10.2010 12: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 12: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 13: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
Danke Hary! o.T.
23.10.2010 15:30:24
Reinhardt
.

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige