Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1128to1132
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
Inhaltsverzeichnis

kopieren und einfügen per makro

kopieren und einfügen per makro
rolf
hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
AW: kopieren und einfügen per makro
10.01.2010 22:49:24
Gerd
Hallo Rolf,
in tabelle 2 per makro in die erste freie zeile einfügen; IN SPALTE B ?
Gruß Gerd
AW: kopieren und einfügen per makro
10.01.2010 22:55:01
rolf
hallo Gerd
in spalte a beginnen.
und es brauchen nur werte eingefügt werden,keine forrmeln.
mfg rolf
AW: kopieren und einfügen per makro
10.01.2010 22:56:41
Gerd
Hallo Rolf,
in eine Zeile einfügen, also transponieren ?
Gruß Gerd
AW: kopieren und einfügen per makro
10.01.2010 22:59:28
rolf
hallo gerd
ich denke ja
mfg rolf
AW: kopieren und einfügen per makro
11.01.2010 07:19:50
Gerd
Hallo Rolf,
schauen wir mal, ob ich dich richtig verstanden habe.
Tabelle2.Cells(Tabelle2.Rows.Count, 2).End(xlUp).Offset(1, -1).Resize(1, 77) = Application.Transpose(Tabelle1.Range("A3:A79"))
Gruß Gerd
AW: kopieren und einfügen per makro
11.01.2010 08:22:13
rolf
hallo Gerd
ich bekomme nur die meldung methode oder datenobjekt nicht gefunden.
mfg rolf
Anzeige
AW: kopieren und einfügen per makro
11.01.2010 20:30:49
Gerd
Hallo Rolf,
wie heist deine Tabelle?
Gruß Gerd
AW: kopieren und einfügen per makro
11.01.2010 21:53:26
rolf
hallo Gerd
aus Abst_FN kopieren u.in Abstammungen einfügen.
mfg rolf
AW: kopieren und einfügen per makro
11.01.2010 23:17:22
Gerd
Halo Rolf,
schauen wir.
Sub nochmal()
Dim Wb As Workbook
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim lngRowLast As Long
Dim rngQuellbereich As Range
Dim rngZielZelleEins As Range
Dim rngZielBereich As Range
Set Wb = ThisWorkbook
Set wsQuelle = Worksheets("Abst_FN")
Set wsZiel = Worksheets("Abstammungen")
Set rngQuellbereich = wsQuelle.Range("A3:A73")
MsgBox "zu kopierende Werte in " & rngQuellbereich.Address(external:=True)
lngRowLast = wsZiel.Cells(Rows.Count, 2).End(xlUp).Row
MsgBox "letzte Zeile mit Wert in ""B"" der Zieltabelle: " & lngRowLast
Set rngZielZelleEins = wsZiel.Cells(lngRowLast + 1, 1)
MsgBox "ZielzelleLinks: " & rngZielZelleEins.Address(external:=True)
Set rngZielBereich = rngZielZelleEins.Resize(1, 71)
MsgBox "Zielbereich: " & rngZielBereich.Address(external:=True)
rngZielBereich = Application.WorksheetFunction.Transpose(rngQuellbereich)
End Sub
Gruß Gerd
Anzeige
AW: kopieren und einfügen per makro
12.01.2010 22:08:51
rolf
hallo Gerd
danke für deine hilfe.
ich habe das makro noch etwas verändert.nun funktioniert alles prima.
mfg rolf

351 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige