Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren nicht nach rechts sondern nach unten

Kopieren nicht nach rechts sondern nach unten
13.11.2017 14:43:24
David
Hallo,
mein Script funktioniert soweit gut, allerdings müchte ich es etwas abgewandelt haben.
Aktuell sucht er die nächste freie Zelle rechts und fügt den Inhalt dort ein.
Nun nöchte ich aber das er die nächste freie Zelle nach unten hin findet und den Inhalt immer darunter einfügt.
Vielen Dank schonmal. LG 
Sub Sichern()
Dim Spalte As Integer
Spalte = Sheets("Bode History").Cells.Find("*", Sheets("Bode History").[XFD1], , , xlByColumns,  _
_
xlPrevious).Column + 2
With Sheets("Bode Senden")
Selection.SpecialCells(xlCellTypeVisible).Select
.Range("C5:E167").Copy
Sheets("Bode History").Cells(1, Spalte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Frage
13.11.2017 16:15:59
Werner
Hallo David,
und in welcher Spalte soll die letzte belegte Zelle ermittel werden?
Warum ermittelst du die letzte belegte Zelle mit der Find Methode? Sind da Formeln vorhanden, die ggf. einen Leerstring ausgeben?
Gruß Werner
AW: Kopieren nicht nach rechts sondern nach unten
15.11.2017 08:44:59
David
Hallo Werner & guten Morgen,
das Script hatte ich vor Jahren mal erstellt und hier anpassen lassen.
Ich habe eine Datenbank. Aus dieser Datenbank werden mir in einer anderen Arbeitsmappe mit sverweis
verscheidene Produkte als Übersicht ausgegeben. Es gibt 3 Spalten die Kopiert werden sollen.
Ich bereite mir auf diesem Weg Bestellungen vor. Nun möchte ich diese Bestellung archivieren.
Mit dem Script oben funktiont das, allerdings nach rechts. Besser um später die Filterfunktion effektiver nutzen zu können wäre wenn die Daten unternander gelegt werden. Sie sollen aber nicht überschrieben werden. Um deine Frage zu beantworten, es sollte Spalte A,B,C sein.
Vielen Dank
LG
David
Anzeige
AW: Kopieren nicht nach rechts sondern nach unten
15.11.2017 09:49:44
Werner
Hallo David,
du sprichst jetzt von Spalte A,B,C. In deinem Code werden aber die Spalten C,D,E kopiert. Das habe ich in meinem Code jetzt mal so übernommen.
Teste mal: 
Sub Sichern()
Dim loLetzteQ As Long, loLetzteZ As Long
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Set wsQuelle = Worksheets("Bode Senden")
Set wsZiel = Worksheets("Bode History")
loLetzteZ = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
Application.ScreenUpdating = False
With wsQuelle
'Ermitteln der letzten belegten Zeile Quellblatt Spalte C
loLetzteQ = .Cells(.Rows.Count, 3).End(xlUp).Row
'Kopieren Quellblatt C5 bis E-letzte belegte Zelle
.Range(.Cells(5, 3), .Cells(loLetzteQ, 5)).Copy
'Einfügen in Zielblatt, Spalte A-erste freie Zelle
wsZiel.Cells(loLetzteZ, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'Kopierameisen abschalten
Application.CutCopyMode = False
End With
Set wsQuelle = Nothing: Set wsZiel = Nothing
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: Kopieren nicht nach rechts sondern nach unten
15.11.2017 15:26:43
David
Hallo Werner,
vielen lieben Dank, es funktioniert alles genau so wie ich mir das vorgestell habe :)!!!!!
VIELEN VIELEN DANK ! Ich freue mich gerade sehr:):)
LG DAVID
Gerne u. Danke für die Rückmeldung. o.w.T.
15.11.2017 18:33:17
Werner

303 Forumthreads zu ähnlichen Themen

Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Anzeige
Kopieren in nächst freie Spalte
Wolle27

Hallo liebe Excel-Gemeinde,
vielleicht kann mir jemand helfen.
Ich mache bestimmte Eingaben, in eine Excel Tabellenblatt. z.B. Spalte A
Spaltenkopf ist heutiges Datum.
Nachdem alle Eingaben erledigt sind, sollen die daraus erzeugten Ergebnisse in eine andere Tabelle mit Spaltenk...
19.09.2009 15:56:11
Thread-ID: 1104091
6 Beiträge
Zellen nach unten ziehen
welga

Hallo,
ich glaube ich stehe zur Zeit voll auf dem Schlauch.
Ich habe in Spalte A die Zahlen 1 bis 1024. Dann habe ich noch B1=A1, B2=A4, B3=A7, B4=A10. Da es aber zu mühsam ist die einzelnen Zellen in Spalte B von Hand zu füllen, habe ich versucht alle ausgefüllten Zellen zu markieren u...
22.09.2009 11:14:07
Thread-ID: 1104593
3 Beiträge
Anzeige
Spalte mit VBA um eine Spalte nach rechts kopieren
Hagen

Hallo zusammen,
ich benötige mal eure Hilfe!
Ich möchte mit einem VBA Code den Bereich A10:A20 nach B10:B20 kopieren, bei erneutem Ablauf des Macros sollte dann der Bereich von B nach C und das nächte mal von C nach D usw Kopiert werde
Ich habe dazu aber leider keine Lösung! und hof...
24.02.2010 12:35:31
Thread-ID: 1141023
8 Beiträge
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Formeln in gefilteter Liste nach unten kopieren
Mary

Hallo Cracks,
ich habe eine riesige Excel-Datei und aus dieser auf einem neuen Tabellenblatt eine Pivot-Tabelle per VBA erstellt. Darin erstelle ich dann (wieder über Makro) Formeln in der 4. Zeile. Nun filtere ich die Pivot nach einer bestimmten Spalte und möchte die Formeln der 1. Zeile (...
20.08.2010 10:51:53
Thread-ID: 1173298
4 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
Nach rechts kopieren von gestern vielleicht Peter
gestern

Guten Abend allerseits, hatte gestern ein Problem, was Peter (Peter Feustel) gelöst hatte.
Nun habe ich festgestellt, wenn eine Zahl in der 1. Spalte nicht drin steht, wird diese Reihe
(Zeile) nicht kopiert.
Vielleicht kann jemand schauen, habe in der Zelle C30+C33 mal die Zahl gelö...
20.06.2011 21:22:51
Thread-ID: 1219028
7 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
3
6
5
2
4
7
2
3
3
6
18
2
6
3
5
5
4
1
5
1
3
7
1
1
1