Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle nach unten kopieren, klappt nicht

Forumthread: Zelle nach unten kopieren, klappt nicht

Zelle nach unten kopieren, klappt nicht
05.09.2024 20:31:06
norbert
Guten Abend zusammen,
die aktuelle Zelle ist z.B. ActiveCell.Offset(0, 0).Select .
(steht gerad in A22)
jetzt soll in Spalte 11 die enthaltene Formel nach unten kopiert werden.
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(-1, 11).Copy ActiveCell.Offset(1, 11)
ActiveCell.Offset(-1, 13).Copy ActiveCell.Offset(1, 13)
ActiveCell.Offset(-1, 14).Copy ActiveCell.Offset(1, 14)

leider wird nichts kopiert, was habe ich FALSCH gemacht.

mfg norbert
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Habe es selbst gefunden -)
05.09.2024 20:49:38
norbert
Guten Abend,
habe es gefunden:
ActiveCell.Offset(-1, 11).Copy ActiveCell.Offset(0, 11)
ActiveCell.Offset(-1, 13).Copy ActiveCell.Offset(0, 13)
ActiveCell.Offset(-1, 14).Copy ActiveCell.Offset(0, 14)

so klappt es.
gr norbert
AW: Zelle nach unten kopieren, klappt nicht
05.09.2024 21:06:28
Yal
Hallo Norbert,

eigentlich nichts falsches. Überraschenderweise scheint der Copy-Paste-Vorgang ein nicht nachvollziehbares Problem mit dem Code zu haben.

Es hat bei mir bei ersten Lauf nicht funktioniert. Ich habe dann mit einem With versucht: 
Sub test()

    With ActiveCell

        .Offset(-1, 11).Copy .Offset(1, 11)

        .Offset(-1, 13).Copy .Offset(1, 13)

        .Offset(-1, 14).Copy .Offset(1, 14)

    End With

End Sub

Es hat funktioniert.

Dann war ich neugierig und habe ActiveCell mal auf die Copy (linke Teil), mal auf Paste Teil (rechte Teil), mal auf beiden: 
Sub test()

    With ActiveCell

        ActiveCell.Offset(-1, 11).Copy .Offset(1, 11)

        .Offset(-1, 13).Copy ActiveCell.Offset(1, 13)

        ActiveCell.Offset(-1, 14).Copy ActiveCell.Offset(1, 14)

    End With

End Sub

Alle 3 Versionen haben funktioniert.

Dann bin ich zurück auf das original, ohne With, und es hat auch funktioniert. Ratlos.

Ich schlage vor, übernehme einfach den erste Code mit "With ActiveCell". Es ist sowieso die lesbarere Version.

ActiveCell.Offset(0, 0).Select hat übrigens nur einen Bedeutung, wenn davor etwas anderes selektiert wäre und Selection.Copy gerufen wäre.
Offset(0,0) ist auch ohne Wirkung. Man benutze es höchstens in einer Reihe, um einen bildlich koherenten Code zu haben (aber nur für das Auge): 
...

    .Offset(0, 0).Value = ...

    .Offset(1, 0).Value = ...

    .Offset(2, 0).Value = ...

    ...usw


VG
Yal


Anzeige
Hallo Yal, danke für die Beispiele... -)
06.09.2024 15:47:28
norbert
Hallo Yal,
danke für die Beispiele.
Habe meines immer wieder getestet, läuft auch.

mfg norbert
AW: Zelle nach unten kopieren, klappt nicht
06.09.2024 08:53:58
GerdL
Moin,
noch ein Gedicht. 
        Dim x As Long

        

        x = ActiveCell.Row

        If x = 1 Then Exit Sub

        Cells(x - 1, 12).Copy Cells(x, 12)

        Cells(x - 1, 14).Resize(1, 2).Copy Cells(x, 14)

Gruß Gerd
Anzeige
Hallo Gerd, danke auch Dir für dein Beispiel -)
06.09.2024 15:48:50
norbert

Forumthreads zu verwandten 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
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
Gleiche Werte nach rechts kopieren
Erwin_Geer

Guten Morgen,
ich habe Tabellen, die z. B. 5 Spalten breit und manchmal mehrere 1.000 Zeilen lang ist.
Dabei kann es vorkommen, dass z. B. in Spalte A manchmal gleiche (eindeutige) Werte (Aktenzeichen oder Namen) untereinander stehen können, aber in den Spalten B, C, D, E andere Werte d...
18.11.2009 09:25:07
Thread-ID: 1118190
5 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
Formel nach unten kopieren
chris58

Hallo!
Ich habe eine Verknüpfung auf einem Tabellenblatt. Da immer wieder Zeilen dazukommen, würde ich gerne die untenstehende Formel immer wieder weiter nach unten auf die nächsten Zeilen ziehen.
Wenn ich das $ - Zeichen weglasse, dann kommt nicht das richtige Feld in die Verknüpfte Da...
25.06.2011 22:11:54
Thread-ID: 1219689
19 Beiträge
Formel für oben nach unten
Schmausi

Salü Zusammen,
Ich habe folgende Formel: =SUMME(D5*F5) die rechnet mir die Stückzahl mal Preis aus, so habe ich dann den Gesamtpreis aller Stuckzahlen. Jetzt bräuchte ich aber noch die Formel für oben nach unten: alle Gesamtpreise zusammen.
wer kann mir da helfen?
Gruss
Schmausi...
03.10.2011 18:11:30
Thread-ID: 1232444
3 Beiträge
Spalte nach unten ausfüllen, Bezug auf Zellen
Janet

Hallo Zusammen
Seid einigen Tagen versuche ich das nun hinzubekommen.
Ich finde einfach keine Lösung trotz lesen div.Berichte ect.
Nun hoffe ich auf Eure Hilfe.
Es betrifft folgendes:
Tabelle Übersicht mit Spalten (ich nenne sie Tab1)
A B C D E
Tabelle Verzeichnis mi...
08.08.2012 11:40:12
Thread-ID: 1274205
4 Beiträge
vba foreln nach rechts kopieren
Manu

Hallo Profis,
ich brauche wieder einmal Eure Hilfe.
Ich habe in den Zellen B20:B32 Formeln und möchte diese nun per Makro nach rechts kopieren, wobei die letzte benutzte Spalte variabel ist.
Ich habe es mit autofill versucht, bekomme es aber nicht hin.
Könnt Ihr mir helfen?
...
09.12.2012 17:52:57
Thread-ID: 1289961
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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