Sub Markierung(ByVal Target As Range)
If Target.Columns.Count < 5 Then //Wenn weniger als 5 Zellen markiert sind wird es nicht als Markierung erkannt
//Hier soll dann der Code rein um den markierten bereich zu ermitteln und in der Variable zu speichern
Else
Modul2.letztezeile //Ermittelt die letzte Zeile wenn nichts markiert ist
End If
End Sub
[b]
iRow = Range(Selection.Address).Row + Selection.Rows.Count - 1[/b]
Wert aus Tabelle anahnd eiens Zahlenbereichs auslesen
GnuuH 11.06.2007 - 132 Hits -
Makro soll die richtige Zeile finden
querkopp 27.06.2007 - 143 Hits - 10 Antworten
letzte beschriebene Zeile kopieren VBA
bokap1975 18.10.2007 - 146 Hits - 10 Antworten