Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1560to1564
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
Kopieren und einfügen ohne Select?
13.06.2017 11:49:50
Marco
Mahlzeit alle. Ich habe nur ein kleines Problem und zwar kopiere per Button eine Zeile von A nach B das klappt wunderbar aber ich mich stört das die kopierte Zeile markiert bleibt. Bekommt man das irgendwie weg?
Private Sub CommandButton21_Click()
Dim LRow As Integer
LRow = Sheets("Tracking Liste").Cells(Rows.Count, 3).End(xlUp).Row + 1
Range("C" & LRow).Select
Selection.EntireRow.Insert
Range("C9:N9").Copy
Range("C" & LRow).Select
ActiveSheet.Paste
ThisWorkbook.Worksheets("Tracking Liste").Cells(8, 3).Select
End Sub

Ich war der Meinung das ich das mit dem unten aufgeführten Befehl umgehen kann aber leider hat das nicht funktioniert. Danke schon mal an alle.
ThisWorkbook.Worksheets("Tracking Liste").Cells(8, 3).Select

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und einfügen ohne Select?
13.06.2017 11:55:51
UweD
Ungetestet...
Private Sub CommandButton21_Click()
Dim LRow As Integer
With ThisWorkbook.Worksheets("Tracking Liste")
LRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
.Range("C" & LRow).EntireRow.Insert
.Range("C9:N9").Copy .Range("C" & LRow)
.Cells(8, 3).Select 'wenn du das brauchst
End With
End Sub

LG UweD
AW: Kopieren und einfügen ohne Select?
13.06.2017 12:20:45
Marco
Getestet und für GUT befunden =D danke
Prima! Danke für die Rückmeldung. owT
13.06.2017 12:56:57
UweD
Anzeige

345 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige