Gleiche Zeile (Active Zeile) aus einem Tabellenblatt in einem neu geöffneten auswählen

Computer: Software & Programmierung Office Software
#1

Hallo zusammen,

ich hoffe das mir einer weiterhelfen kann.

folgendes Problem:
Ich möchte gern eine Zeile im aktiven Arbeitsblatt kopieren.
Ein anderes Tabellenblatt öffnen und in der selben Zeile wie im ersten Tabellenblatt dort wieder einfügen.

folgenden Ablauf habe ich schon:

Sub Daten_übertragen_in_Sicherungsdatei()

'Range("B5:Z10005").Select
'Selection.Copy

'Aktive Zeile einlesen
i = ActiveCell.Row

'markiert Aktive Zeile
ActiveCell.EntireRow.Select
Selection.Copy

Workbooks.Open "Pfad"

Range("i,i").Select

Selection.Paste

'ActiveWorkbooks.Close

End Sub

bis zum öffnen der anderen Tabelle alles kein Problem.
Es wurde die aktive Zeile ausgewählt und als „i“ festgelegt und auch kopiert.

Wie bekomme ich jetzt aber im geöffneten Tabellenblatt die gleiche Zeilennummer eingelesen z.b. über die Variable „i“??

wäre super wenn mir da jemand Helfen kann.

mfg Euer Sumpfbiber

#2

Nur mal so gefragt.
Warum macht du nicht in der Zweiten Tabelle eine aktive Verknüpfung auf diese Zelle?
Dann sparst Du dir diese kopiererei.
the Raccoon

#3

Hallo,

Auf die Schnelle:

Sub machma()
Dim newWb As Workbook
Dim r As Range

'fast alles geht auch ohne select!

ActiveCell.EntireRow.Copy

Set newWb = Workbooks.Open("Pfad")
newWb.Worksheets(1).Rows(i).PasteSpecial (xlPasteAll)
newWb.Close (True)

'ActiveWorkbooks.Close

End Sub

fg

Dirk_P

#4

Hey, Vielen dank,

funkitoniert super.

schönen Tag noch.

Grüße

#5

Hallo,

ich habe jetzt eine andere Lösung gefunden.

Ich will ja eine Sicherungskopie erstellen.

Ich nutze jetzt folgende Anweisung:

        'Meldungen deaktivieren
        Application.DisplayAlerts = False
        
        'Sicherungskopie erstellen
        ActiveWorkbook.SaveCopyAs Filename:="Pfad + Dateiname"
        
        'Meldungen wieder aktivieren
        Application.DisplayAlerts = True

So funktioniert es super.
Es wird jedesmal beim Betätigen des Buttons eine Sicherungskopie der Datei erstellt.