Registriert seit: 20.10.2014
Version(en): 2010
Hallo Zusammen, ich möchte Zelle in Abhängigkeit von der aktiven Zelle kopieren. Mit: Code: Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6)).Select
kann ich einen Bereich kopieren und dann mittels: einfügen . Ich möchte aber zum Beispiel: Aktive Zelle B3 - nun sollen B3 bis B6,B8,B10 kopiert werden Eingefügt werden sollen diese dann z.b. in F2,F3,F4,F5,.... Danke im Voraus
Registriert seit: 15.04.2014
Version(en): 2003 -2010
Hi Awr ja also mit select hast Du den Bereich ja markiert dann mit selection.copy dann Zielzelle aktivieren und PASTSPECIAL
ABER anstatt der Sache mit dem "SELECT" kannst Du auch gleich ein COPY an die Zeile hängen. Das ist doch schöner und es entsteht nicht so ein "geflacker" auf dem Bildschirm
Also Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6)).Copy Cells(1,1).pastespecial
Probiers mal aus
Gruß Klaus
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
20.10.2014, 12:28
(Dieser Beitrag wurde zuletzt bearbeitet: 20.10.2014, 12:43 von Kuwer.)
Hallo awr, meinst Du es so? Code: Sub aaa() With ActiveCell Application.Union(.Resize(4, 1), .Offset(5, 0), .Offset(7, 0)).Copy .Offset(-1, 5) End With End Sub
Gruß Uwe
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo hier noch eine andere Variante Code: Option Explicit
Sub Test() Dim varX As Variant, lngIndex As Long, lngRow As Long varX = Array(ActiveCell, ActiveCell.Offset(1, 0), ActiveCell.Offset(2, 0), _ ActiveCell.Offset(3, 0), ActiveCell.Offset(5, 0), ActiveCell.Offset(7, 0)) With ThisWorkbook.Worksheets("Tabelle1") lngRow = 2 For lngIndex = 0 To UBound(varX) .Cells(lngRow, "F") = ActiveWorkbook.Worksheets("Tabelle1").Range(varX(lngIndex)).Value lngRow = lngRow + 1 Next End With End Sub
MfG Tom
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo nur gut, dass hier Crossposting ja egal ist aber hier http://www.office-loesung.de/p/viewtopic.php?f=166&t=671028 fragt man sich doch echt, was das soll MfG Tom
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Tom,
Crossposting war es hier nicht, da er erst nach unseren Antworten hier die Frage noch einmal in OL stellte, warum auch immer. :(
Gruß Uwe
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo Uwe
um so schlimmer :@
MfG Tom
Registriert seit: 20.10.2014
Version(en): 2010
Hallo Zusammen, ich habe das nicht als Crossposting gesehen, da ich davon ausgehe, dass in einem anderen Forum andere Leute sind, die andere Ideen haben.... egal zurück zum Thema ich bin der Lösung noch nicht wirklich näher gekommen. Ich Versuche mein Problem/Wunsch nochmal zu erklären.
ich möchte von der Aktiven Zelle aus in der selben Zeile Zellen kopieren und dánn auf einem anderen Blatt einfügen. zum Beispiel
Aktiv: B3. Kopiert werden sollen: B3, B4, B5, B10, B16 Eingefügt dann auf einem anderen Blatt in C1,C2,C3,C4,C5
Danke im Voraus Andreas
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi Andreas, zuerst vornweg - fachlich bin ich nicht in der Lage dir zu helfen. Allerdings ist mir aufgefallen, dass sich deine Problembeschreibung von deinem Eröffnungsbeitrag unterscheidet. Dort hattest du geschrieben: Zitat:Ich möchte aber zum Beispiel: Aktive Zelle B3 - nun sollen B3 bis B6,B8,B10 kopiert werden Eingefügt werden sollen diese dann z.b. in F2,F3,F4,F5,.... Nun gibst du als Beispiel an: Zitat:Aktiv: B3. Kopiert werden sollen: B3, B4, B5, B10, B16 Eingefügt dann auf einem anderen Blatt in C1,C2,C3,C4,C5 Ich kann mir nicht vorstellen, dass es lösbar ist, wenn sich die Zielbereiche ändern. Um den Helfern das nötige Rüstzeug an die Hand zu geben, solltest du (deinem Original gleichend) einen Tabellenausschnitt posten und klar bezeichnen, wo du welche Kopieraktion benötigst
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
21.10.2014, 10:13
(Dieser Beitrag wurde zuletzt bearbeitet: 21.10.2014, 10:13 von Kuwer.)
Hi Günter, die Frage ist wirklich sehr dünn, aber im Beitrag #3 steht eine funktionierende Lösung. allerdings wird in dasselbe Blatt kopiert, weil nichts anderes in der Frage stand. Das wäre aber auch kein Problem. Aber awr ignorierte ja alle Lösungsvorschläge. Gruß Uwe
|