Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 15:11:16
Differenz errechnen zum Vortag aus anderem Tabellenblatt
24.10.2025 11:47:33
Shape auf 1 cm und in Zelle zentriert. Code kürzen
24.10.2025 09:22:50
Filter aktualisieren bei Blattaufruf
24.10.2025 09:06:52
Zählenwenn
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

werte aktiver Zeile kopieren, einfügen

Forumthread: werte aktiver Zeile kopieren, einfügen

werte aktiver Zeile kopieren, einfügen
20.01.2021 12:25:05
Reto
Hallo Forum
Ich wollte die Werte aus der aktiven Zeile des Tabellenblatt ("Gesamtliste Teilnehmer"), Spalten A, D, E kopieren und in die erste leere Zeile Tabellenblatt ("Mail, Anmeldung, Kontrolle") in die Spalten A, G, H einfügen.
Meine Bastelei mit einem abgeänderten Code aus dem "Office Forum":

Sub TN_Daten_kopieren()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5)).copy
Sheets("Mail, Anmeldung, Kontrolle").Cells(Sheets("Mail, Anmeldung, Kontrolle").Cells(Rows. _
Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Da komme ich nicht weiter...
Bin ich auf dem richtigen Weg?
Ich danke schon mal für eure Hilfe!
Grüsse
Reto
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: werte aktiver Zeile kopieren, einfügen
20.01.2021 12:43:50
onur
"Da komme ich nicht weiter...Bin ich auf dem richtigen Weg?" - Musst du doch selber wissen.
Bzw. Was läuft denn nicht? Was soll das heissen: "Da komme ich nicht weiter"?
AW: werte aktiver Zeile kopieren, einfügen
20.01.2021 12:57:28
hary
Moin
Mal so aus dem Stehgreif ohne Copy und einfach gestrickt. 
Sub TN_Daten_kopieren()
Dim letzte As Long
With Sheets("Mail, Anmeldung, Kontrolle")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(letzte, "A") = Cells(ActiveCell.Row, "A").Value
.Cells(letzte, "G") = Cells(ActiveCell.Row, "D").Value
.Cells(letzte, "H") = Cells(ActiveCell.Row, "E").Value
End With
End Sub

gruss hary
Anzeige
AW: werte aktiver Zeile kopieren, einfügen
20.01.2021 13:26:04
Reto
@ Hary
Ganz genau das was ich versucht habe.
Vielen Dank!
Gruss Reto
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige