wenn ich eine beliebige Zelle in einer Tabelle anklicke - wie starte ich dadurch ein Makro und ordne der angeklickten Zeile eine Variable zu?
Habe mir da etwa szurecht geschustert (mit meinen wenigen Kentnissen :), aber aus irgendeinem Grund kopiert er die Zeile zweimal...
------------------------
Option Explicit
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.Run "Daten_kopieren()"
End Sub
------------------------
Sub Daten_kopieren()
Dim z As Integer
z = ActiveCell.Row
Name = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Tabelle2").Cells(Name, 1) = Worksheets("Tabelle1").Cells(z, 1)
Worksheets("Tabelle2").Cells(Name, 2) = Worksheets("Tabelle1").Cells(z, 2)
Worksheets("Tabelle2").Cells(Name, 3) = Worksheets("Tabelle1").Cells(z, 3)
Worksheets("Tabelle2").Cells(Name, 4) = Worksheets("Tabelle1").Cells(z, 4)
Worksheets("Tabelle2").Cells(Name, 5) = Worksheets("Tabelle1").Cells(z, 5)
End Sub
-------------------------
Kann mir jemand sagen, wo da der Fehler liegt?
Oder wie es "einfacher" geht - mit nur einem Makro?
Gruss
MichiM