Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren mit makro

kopieren mit makro
09.07.2008 17:02:00
rolf
hallo
ich bastel an einem makro das zellen in einer markierten zeile kopieren soll.
zb.markiere ich zeile 2 und kopiert werden sollen die zellen ab V bis AJ und dann wieder ab BJ bis BY.
diese sollen in eine andere tabelle eingefügt werden.
dort markiere ich die zeile per hand,und über einfügen sollen die gleichen zellen gefüllt werden.
danke für eure hilfe
mfg rolf

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: der anfang
09.07.2008 18:49:00
hary
Hallo Rolf
Muss leider jetzt zur Arbeit. Hier ist aber das Makro um die zellen zu kopieren.
Zeile anklicken und das Makro ausfuehren.

Option Explicit
Dim i As Long
Sub Test()
i = Selection.Row
Range("V" & i & ":" & "AJ" & i & "," & "BJ" & i & ":" & "BY" & i).Copy
End Sub


Gruss Hary
Kann aber erst morgen weitermachen

AW: kopieren mit makro
09.07.2008 22:31:34
Daniel
Hi
das könnte mit diesen beiden Makros gehen:

Option Explicit
Dim rng1 As Range
Dim rng2 As Range
Sub kopieren()
Set rng1 = Range(Cells(ActiveCell.Row, "V"), Cells(ActiveCell.Row, "AJ"))
Set rng2 = Range(Cells(ActiveCell.Row, "BJ"), Cells(ActiveCell.Row, "BY"))
End Sub
Sub einfügen()
If Not rng1 Is Nothing Then rng1.Copy Cells(ActiveCell.Row, "V")
If Not rng2 Is Nothing Then rng2.Copy Cells(ActiveCell.Row, "BJ")
Set rng1 = Nothing
Set rng2 = Nothing
End Sub


Ablauf:
- Zeile markieren (einzelne Zelle reicht)
- Makro "kopieren" starten
- Blatt wechslen und Zeile markieren
- Makro "einfügen" starten
Gruß, Daniel

Anzeige
AW: kopieren mit makro
09.07.2008 23:10:03
rolf
hallo Daniel
erste versuche sin erfolgreich
danke ! ich melde mich morgen wieder.
mfg rolf

AW: oder in der Art
10.07.2008 13:59:44
rolf
hallo Harry
dein makro funktioniert gut !
danke
mfg rolf

AW: gern geschehen owT
10.07.2008 14:01:21
hary
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige