|
Hallo, das folgende Makro wurde mir freundlicherweise schon zur Verfügung gestellt. Funktioniert perfekt :) Vielen Dank!!!
Leider ist die Datenquelle aber nicht in der gleichen Datei in einem Datenblatt, sondern in einer anderen Excel Datei.
1. Ich würde das Makro in der Zieldatei verwenden und auf die Quelldatei zugreifen wollen. Set Quelle = ... Zugriff auf andere Excel Datei
2. Wie programmiert man ein Eingabefeld, in das ich die Zeilennummer der Quelldatei eingeben kann und das in der Zeile vom Makro
If.Cells(zeile, 1) <>"" Then die Zeilennummer automatisch anpasst?
Sub Kopieren()
Dim zeile As Long, Quelle As Object, Ziel As Object
Const Spalte = 2 'Zielspalte, ggfls. anpassen
Set Quelle = ThisWorkbook.Sheets("Tabelle1") 'ggfls. anpassen
Set Ziel = ThisWorkbook.Sheets("Tabelle2") ''anpassen
'Set Ziel = Workbooks("xyz").Sheets("abc") 'alternativ andere Datei
zeile = ActiveCell.Row
With Quelle
If .Cells(zeile, 1) <> "" Then
Ziel.Cells(1, Spalte) = .Cells(zeile, 2) 'MglNr
Ziel.Cells(2, Spalte) = .Cells(zeile, 1) 'Name
Ziel.Cells(3, Spalte) = .Cells(zeile, 6) 'Name
End If
End With
End Sub
Super, dass es hier so viele VBA Profis gibt!!! Vielen Dank schon mal im Voraus!!!
|