Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
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 in nächste leere Zeile

Kopieren in nächste leere Zeile
11.12.2016 20:41:22
Benedikt
Guten Abend Zusammen
Nachfolgender Code fügt den Bereich A1 bis I1 einwandfrei in das Arbeitsblatt Auswertung ein.
Sheets("Auswertung").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 9).Value = Sheets("Titel").Range("A1:I1").Value
Ich möchte aber nur A1,C1 und E1 nach Auswertung übergeben.
Zugleich möchte ich A1,B1,D1,F1,G1,H1 und I1 an Tabelle3 übergeben.
Vielen Dank im Vorraus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in nächste leere Zeile
11.12.2016 22:56:39
KlausF
Hallo Benedikt,
evtl. so:
Sub Kopieren()
Dim wksTitel As Worksheet
Set wksTitel = Worksheets("Titel")
With Worksheets("Auswertung")
wksTitel.Range("A1").Copy Destination:=.Range("A1")
wksTitel.Range("C1").Copy Destination:=.Range("C1")
wksTitel.Range("E1").Copy Destination:=.Range("E1")
End With
With Worksheets("Tabelle3")
wksTitel.Range("A1:B1").Copy Destination:=.Range("A1")
wksTitel.Range("D1").Copy Destination:=.Range("D1")
wksTitel.Range("F1:I1").Copy Destination:=.Range("F1")
End With
Set wksTitel = Nothing
End Sub
Gruß
Klaus
Anzeige
in nächste leere Zeile
11.12.2016 23:05:34
KlausF
Hi,
und falls Du die jeweils erste freie Zeile meinst
(wie ich gerade im Betreff gelesen habe), dann:
Sub Kopieren()
Dim wksTitel As Worksheet
Set wksTitel = Worksheets("Titel")
Dim firstFree As Long
With Worksheets("Auswertung")
firstFree = .Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTitel.Range("A1").Copy Destination:=.Range("A" & firstFree)
wksTitel.Range("C1").Copy Destination:=.Range("C" & firstFree)
wksTitel.Range("E1").Copy Destination:=.Range("E" & firstFree)
End With
With Worksheets("Tabelle3")
firstFree = .Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTitel.Range("A1:B1").Copy Destination:=.Range("A" & firstFree)
wksTitel.Range("D1").Copy Destination:=.Range("D" & firstFree)
wksTitel.Range("F1:I1").Copy Destination:=.Range("F" & firstFree)
End With
Set wksTitel = Nothing
End Sub
Gruß
Klaus
Anzeige
Perfekt - Danke
11.12.2016 23:34:35
Benedikt
Vielen herzlichen Dank Klaus

323 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige