habe wieder mal meinem engen VBA Horizont erreicht.
Habe alles versucht die Variable MyRow ins Modul zu übernehmen.
Ist immer leer. Was muss ich a noch definieren. Hab´s mit Public usw versucht. Nix.
Jetzt schon meinen Kotau für die Antwort.
Reimund
Code Tabellenblatt "Liste"
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
myRow = Target.Row
End If
Call Emailsenden
End Sub
Makro Modul "Emailsenden"
Sub Emailsenden()
'Selektierten Satz aus Blatt Liste in Blatt Senden kopieren
Sheets("Senden").Select
Cells.Select ' alles löschen
Selection.Delete Shift:=xlUp
Sheets("Liste").Select
Range("A" & MyRow & ":Z" & MyRow).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senden").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub