|
Hallo Christion,
das Makro dazu würde lauten
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
Es kopiert immer in Spalte 2. Das Auslösen musst Du selbst organisieren. Ein einfacher Klick wäre sicher ungünstig, ginge nur über SelectionChange-Ereignis und würde dann bei jeder Zellenanwahl stattfinden.
Ein Doppelklick über das BeforeDblClick-Ereignis des Worksheets wäre möglich, dann muss man aber aus dem Bearbeitungsmodus erst wider raus.
Am sinnvollsten wäre m.E. ein Button auf dem Sheet.
Gruß der Martin
|