also die Zeile lautet:
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
Weiss nicht ob es Text ist?!
Ich kann dann noch mit Hilfe von "(RowAbsolute:=False)" das Dollarzeichen weg machen, so dass nur $A1 steht
AW: aus Adresse die zeile auslesen
K.Rola
Hallo,
zwar nicht ganz klar wozu es gut ist, aber so z.B.:
Sub Zeile_aus_Adresse()
Dim addr As String
addr = ActiveCell.Address
MsgBox Range(addr).Row
End Sub
Gruß K.Rola
Anzeige
AW: aus Adresse die zeile auslesen
11.02.2005 17:34:28
Jonny
Mein Code
Dim addr As String
addr = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address(RowAbsolute:=False)
ActiveSheet.Shapes(Application.Caller).Delete
Range(addr).Row.Delete
Es funkt leider nicht...
AW: aus Adresse die zeile auslesen
K.Rola
Hallo,
Rows(Range(addr).Row).Delete
Gruß K.Rola
Klappt immer noch nicht...
11.02.2005 17:42:56
Jonny
Es klappt immer noch nicht richtig...
ich fang gleich an zu weinen.... :o(((
Ich will ein Makro für ein Button schreiben. Dieser Button soll die Zeile, in der es liegt komplett löschen.
mehr will ich doch gar nciht...