Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1812to1816
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range in nächste freie Zeile kopieren

Range in nächste freie Zeile kopieren
18.02.2021 18:30:52
Jörn
Hallo,
ich möchte den Range(A3:P3) in die nächste freie Zeile als unveränderbare Werte kopieren.
Es wäre nett, wenn mir jemand helfen könnte, Ich habe nur VBA recorder Kenntnisse und damit bekommt man das nicht hin.
Gruß
Jörn

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range in nächste freie Zeile kopieren
18.02.2021 19:14:49
Hajo_Zi
Hallo Jörn,
Range(A3:P3).copy
LoZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row+1
Range("A" & LoZeile).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

AW: Range in nächste freie Zeile kopieren
19.02.2021 08:58:03
Jörn
Hallo Hajo,
vielen Dank für die schnelle Antwort. Die Lösung funktioniert leider noch nicht richtig. Der Range ("A3:P3") wird nicht in die nächste freie Zeile Kopiert, sondern in die Zeile 1097. Auf dem Sheet History ist alles ab der 5. Zeile frei. Kannst du vielleicht noch einmal schauen was falsch ist?
Gruß
Jörn
Dies ist das Makro, das ich verwendet habe: 
Sub History1()
' History1 Makro
' Tastenkombination: Strg+p
Sheets("History").Select
Range("B1").Select
Range("A3:P3").Copy
LoZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Range("A" & LoZeile).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Anzeige
AW: Range in nächste freie Zeile kopieren
19.02.2021 09:54:30
Nepumuk
Hallo Jörn,
ist deine Tabelle als "Tabelle" formatiert?
Gruß
Nepumuk
AW: Range in nächste freie Zeile kopieren
19.02.2021 15:08:48
Hajo_Zi
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren
Gruß Hajo
Anzeige
AW: Range in nächste freie Zeile kopieren
19.02.2021 17:34:34
Jörn
Hallo Hajo,
ich habe das Problem lokalisiert. Auf der Seite, auf der der Range kopiert werden soll, verwende ich in Zeile 2 Max Funktionen, die bis zur Zelle 1093 reichen, dadurch wird immer in die Zeile 1094 kopiert.
Da mein worksheet ein Programm zur Analyse von Tennis Matches riesig ist, habe ich den relevanten Teil nachgebaut und hochgeladen:
https://www.herber.de/bbs/user/144080.xlsm
Ich würde die Max Werte der Spalten gern weiter ermitteln, vielleicht hast du oder jemand eine Lösung dafür.
Gruß
Jörn
AW: Range in nächste freie Zeile kopieren
19.02.2021 17:45:49
Hajo_Zi
Gut Du hast also festgestellt das es richtig ist.
Es ist kein Einsatz von mir notwendig.
Gruß Hajo
Anzeige
nein, wirklich nicht, von dir nicht. o.w.T.
19.02.2021 17:51:59
dir
AW: Range in nächste freie Zeile kopieren
19.02.2021 17:51:04
Werner
Hallo,
dann lass doch das Feststellen der letzten belegten Zelle über UsedRange weg. Stell doch die letzte belegte Zelle in Spalte A fest. Oder sind dort auch Formeln drin? 
Sub Rangetest()
Dim loZeile As Long
With Worksheets("History")
.Range("A3:P3").Copy
loZeile = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
.Range("A" & loZeile).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
AW: Range in nächste freie Zeile kopieren
19.02.2021 18:13:25
Jörn
Hallo Werner,
das ist die Lösung!!
Vielen Dank!
Hajo auch noch einmal vielen Dank für die Hilfe!!
Gruß
Jörn
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
19.02.2021 18:31:04
Werner

310 Forumthreads zu ähnlichen Themen

Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
Anzeige
Werte aktualisieren oder in nächster freie Zeile
Frank

Hallo!
Ich möchter gerne per VBA einen vorhandenen Datensatz aktualisieren oder in der nächsten freien Zeile anlegen.
Leider bin ich VBA Deep, dass ist mein Versuch:
Private Sub CommandButton6_Click() Dim LngZ As Long Dim Found1 As Range Dim Found2 As Range Set Found1 = Sheets("A...
02.03.2009 19:24:29
Thread-ID: 1055699
7 Beiträge
Automatisch beim öffnen in nächste leere Zeile
chris58

Hallo !
Ich habe diesen Code gefunden der mir ermöglicht nach dem öffnen einer Datei in die nächste freie Zeile zu springen. Nun meine Frage: Kann man das automatisch machen. Also ich öffne die Datei und der Courser steht automatisch in der nächsten freien Zeile der Spalte A.
Danke für...
19.06.2009 13:24:19
Thread-ID: 1082886
8 Beiträge
Anzeige
Datenbloecke in Zeilen schreiben
VolkerM

Hallo Forum
Ich möchte mehrere hundert "Datenblöcke" in Zeilen schreiben.
Diese "Datenblöcke" bestehen immer aus 4 Zeilen und 6 Spalten.
Dann folgt immer eine Leerzeile.
Die einzelnen Zellen sind mal leer mal befüllt.
Auch der Inhalt ist unterschiedlich (Datum Uhrzeit Ziff...
27.10.2009 07:30:13
Thread-ID: 1112385
3 Beiträge
wert per VBA in nächste leere zelle schreiben
Michael

hallo!
ich brauche bitte hilfe. ich habe eine leere tabelle und möchte diese mit werten füllen. allerdings nur so, dass kein wert doppelt vorkommt. habe folgenden ausdruck, hänge jetzt aber. die kontrolle funktioniert, nur das einfügen in die nächste leere zelle der spalte A bekomme ich nic...
26.06.2010 09:55:04
Thread-ID: 1164138
6 Beiträge
Daten aus einem Bereich in eine Zeile schreiben
Stefan

Hallo liebe Excel-Profis,
ich habe ein kleines Problem und hoffe ihr könnt mir dabei helfen.
Ich möchte Namen, die in einem Bereich J2:Q15 verstreut stehen, in eine Zeile nebendran, sagen wir S2:Z2, schreiben.
Maximal 8 Namen sind es, aber ich bekomm es einfach nicht hin, dass jede...
28.12.2010 14:06:57
Thread-ID: 1193062
4 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
Rahmen in die nächste leere Zeile
Heinz

Hallo Leute
Habe unteres Makro das mir ab A6:L einen Rahmen setzt.
Ich möchte gerne wenn zb. in A10 ein Wert steht,das mir dann in A11:L11 der Rahmen gesetzt wird.
Also immer immer die nächste leere Zelle von A.
Könnte mir dazu bitte jemand helfen?
Gruß
Heinz
Private...
27.02.2011 19:42:52
Thread-ID: 1203245
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
6
7
4
2
5
3
2
8
5
6
3
18
4
20
6
1
2
2
1
2
2
2
2