Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.06.2025 11:36:22
Zeilen Kopieren als "index" und Umwandeln in Zahlen
14.06.2025 01:19:50
Vorhersage Monatsumsatz anhand bereits erfolgter Tagesumsätz
13.06.2025 19:20:06
XVERWEIS nächster Wert bei exakten Match
13.06.2025 18:14:39
Liste erstellen nach bedingt. Formatierung
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
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Leere Zelle finden und ganze Zeilen einfügen

Forumthread: VBA: Leere Zelle finden und ganze Zeilen einfügen

VBA: Leere Zelle finden und ganze Zeilen einfügen
10.06.2016 14:24:10
Juliane
Hallo,
ich möchte gern 7 Zeile an einer anderen Stelle einfügen. Diese andere Stelle befindet sich am Ende der Liste (gleicher Reiter), dort wo Spalte A das erste mal leer ist.
So weit ich weiß, ist das mehr oder weniger "Standard" in VBA. Trotzdem komme ich mit meiner Recherche im Internet nicht weiter. Ich weiß nicht, was für Variabeln ich definieren muss und ich weiß nicht, wie ich beide Teile (Suche letzte Zelle und kopieren ganzer Spalten) richtig verbinde.
Das ist alles was ich bisher weiß:
worksheets("Reiter 1").Range("A1").EntireRow.Copy
Destination:=Workheets ("Reiter 1").Range("?")
für das ? würde ich ihm ja nun gerne sagen, dass es sich in Spalte A in der letzten leeren Zelle befindet.
diese Zelle lässt sich wohl finden über:
cells(1,1).end(xldown).offset(1,0).select
Wie kann ich das Makro sauber aufbauen?
Und warum steht manchmal im Internet als Lösung statt Destination:=Workheets ("Reiter 1").Range("Zelle") plötzlich etwas von
shift:=x1Down

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#kopieren #leerezelle #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: VBA: Leere Zelle finden und ganze Zeilen einfügen
10.06.2016 16:45:44
Fennek
Hallo,
ja, es ist Standard, die erste freie Zelle zu bestimmen. Im Text ist von 7 Zeilen die Rede, im Code dagegen nur 1 Zeile
Versuche:

with sheets("Reiter1")
lr = .cells(rows.count, "A").end(xlup).row + 1
.Range("A1").EntireRow.Copy .cells(lr,1)
end with
mfg

Anzeige
Leere Zelle finden und ganze Zeilen einfügen
11.06.2016 20:14:51
Juliane
Hallo Fennek,
ja das stimmt, es sollen 7 Zeilen sein die kopiert werden und dann an der stelle der ersten freien Zellen eingefügt werden sollen. Was ist "lr"? Muss das noch irgendwo definiert werden? Und wo steht dann bei dir, das einfügen (paste) soll?
Sorry, ich bin was VBA angeht echt ein nup.
VG und noch ein schönes Fußball-Wochenene

Anzeige
AW: Leere Zelle finden und ganze Zeilen einfügen
11.06.2016 20:20:34
Fennek
Hallo,
lr steht für "last row" und wird definiert " lr = ..."
Der "Copy"-Befehl bietet 2 Möglichkeiten:
Range.copy destination
oder
Range.copy
destination.pastespecial...
mfg

AW: Leere Zelle finden und ganze Zeilen einfügen
11.06.2016 20:28:11
Juliane
Ok, vielen Dank.
Mein Code sieht jetzt so aus und scheint zu klappen und siehst du irgendwelche Probleme?:
Sub Kopieren()
With Sheets("sheet1")
lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Range("A2:A3").EntireRow.Copy .Cells(lr, 1)
End With
End Sub
Vielen Dank an dich. Das ist ein schöner kurzer Code.
Dann bin ich mal auf Montag gespannt ;) Denn das war erst der erste Teil des Codes. Leider wird er noch komplexer (zumindest aus meiner Sicht)....
Anzeige

Forumthreads zu verwandten Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
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