Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
25.09.2025 14:32:49
Excel-Dateien zusammen führen (Tabellen)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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 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.
:(
Anzeige
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
Anzeige
Danke Hary! o.T.
23.10.2010 15:30:24
Reinhardt
.
;

Forumthreads zu verwandten Themen

erste leere Zelle einer Zeile finden.
Marcel

Hallo zusammen
Ich möchte den Wert der Aktiven Zelle (ohne diese zu verlassen) in die erste leere Zelle der Zeile schreiben.
Kennt jemand den Befehl dafür?
Wäre echt froh um Hilfe.
Danke schon im Voraus
Gruss Marcel
23.09.2009 14:23:15
Thread-ID: 1104940
3 Beiträge
Anzeige
Erste freie Zeile...
Gegga

Hallo an alle...
Wer kann mir folgendes ins VBA übersetzen?
SucheA
Suche erste freie Zeile in Sheet LIEF Spalte 6
Wenn dieser Wert > 71 verwende gefundenen Wert
Wenn der Wert <71 dann Suche erste freie Zeile ab 118
Wenn der Wert <146 dann Suche erste freie Zeile...
13.10.2010 13:50:17
Thread-ID: 1182244
7 Beiträge
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 Beiträge
Anzeige
1. freie Zeile trotz Autofilter finden
Dietmar

Hallo zusammen,
mit folgendem (erkennbar umständlichem) Code übertrage ich Daten in eine Endlos-Tabelle zwecks durchzuführender Auswertungen.
Die Daten aus A28:Z28 resultieren aus Verknüpfungen von anderen Sheets, die ich auf dem Umweg der Umwandlung in Werte in Zeile 30 eintrage (ich w...
21.03.2011 16:52:28
Thread-ID: 1206687
6 Beiträge
erste freie Zeile suchen
René

Hallo,
ich möchte ausgewählte Texte aus ComboBoxen und TextBoxen aus einer UserForm in ein Tabellenblatt übernehmen.
Funktioniert auch mit
Hier nur mal für das Auslesen einer ComboBox. Werden aber mehrere ausgelesen und die Werte stehen dann in Tabelle 1 hintereinander in einer Zei...
24.03.2011 15:50:04
Thread-ID: 1207434
2 Beiträge
erste freie Zeile in Zieltabelle finden
René

Hallo liebe Excelgemeinde,
ich will eine Datentabelle aus einer Datei in eine andere Datei kopieren.
Mein Problem ist das die Daten immer in der Zeiltabelle überschrieben werden weil die erste freie Zeile nicht gefunden wird. Kann mir bitte jemand an der Modifizierung des Makros helfen?...
05.04.2011 18:45:35
Thread-ID: 1209134
7 Beiträge
letzte Zeile in erste freie Zeile
Michel

Hallo zusammen,
wie kann ich die letzte ausgefüllte Zeile, aber nur den Bereich der Zellen G:Q der Tabelle1 kopieren und in die erste freie (nicht ausgefüllte) Zeile des Zellenbereichs B:L der Tabelle 2 einfügen?
Ich hoffe, dass ich mich für mein Anliegen klar ausgedrückt habe.
Ich...
15.05.2011 11:51:08
Thread-ID: 1214532
28 Beiträge
Werte in TATSÄCHLICH erste freie Zeile trotz Filte
Dietmar

Hallo zusammen,
folgender Code funktioniert ganz gut, hat aber noch Verbesserungspotential.
Die Prozedur ist Teil eines übergeordneten Codes; der Aufruf erfolgt mit Application.Run ...
1.) Wenn Filter gesetzt ist werden keine Daten in die erste freie Zeile eingetragen, weil der Show...
17.01.2012 12:51:12
Thread-ID: 1246531
3 Beiträge
erste freie Zeile
Alex

Hallo Leute,ich möchte eine Datenzeile aus einem Worksheet in ein anderes Worksheet übertragen, dort soll diese an einen Datenbestand angehängt werden, sie soll dort in die erste freie Zeile geschrieben werden.
03.06.2002 15:24:56
Thread-ID: 125555
2 Beiträge
in die nächste freie zeile kopieren
Uwe

hallo an die profis
in zeile 5 stehen in 5 zellen errechnete zahlen, welche in zeile10, und ab da immer in die nächste freie zeile kopiert werden sollen (tabellenlänge unendlich. mit makro? ich weiss nicht, wie.
danke für eure hilfe
gruss uwe
23.02.2012 11:08:40
Thread-ID: 1252057
3 Beiträge
erste freie Zeile in Tabelle zeigen
Gerd

Hallo alle,
folgender code soll die erste freie Zeile im aktiven sheet am Monitor anzeigen, sodass ich nicht laufend ganz nach unten scrollen muss.
++++++++++++++++++++++++++ Private Sub workbook_open() Dim ws As Worksheet Application.ScreenUpdating = False With ws Sheets("Tabelle").Sel...
27.06.2012 10:49:42
Thread-ID: 1269065
4 Beiträge
Anzeige
kopieren in nächste freie Zeile
Gisela

Hallo,
ich möchte, dass jeweils auf dem TB "gesamt" in die nächste freie Zeile ab C11 (Spalten A und B können schon mal ohne Inhalt sein) kopiert wird.
Kann mir bitte jemand helfen? Was muss ich wie ändern? Sub zeilenkopieren() Application.ScreenUpdating = False Dim a As Long, i As Lon...
21.07.2012 17:30:58
Thread-ID: 1272106
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige