Office: aktive ZEILE ? activeRow?

ActiveCell gibt die aktive Zelle zurück.

Ich brauch aber die aktive ZEILE! activeRow gibts nicht!

wie heißt der befehl?

gruß

ene

:)

 

Hallo, ene,

es gibt aber ActiveCell.Row.

Gruß
LS

 

hat sich erledigt.

activeCell.Row

gruß

ene

 

Kann ich diesen VBA-Befehl auch benutzen, um den Bereich oberhalb bis einschließlich der Aktiven Zeile zu markieren.

 

Moin, netzwerk,

ActiveCell schon, aber markieren ist idR überflüssig, da sich die Aktionen auch direkt in einen Bereich durchführen lassen:

Code:

 

Mein schließender Code lautet wie folgt:
...
Cells.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True). _
Activate
ActiveCell.Offset(-1, -2).Select
ActiveCell.EntireRow.Select
....


e.g.: mir fehlt von dieser, als aktiv definierten Zeile, der obere Bereich bis Zeile 1. Dieses komplette "Feld" möchte ich dann selektieren und löschen. ActiveCell.EntireRow ist aber variabel, also nicht definiert; mein Vorschlag
in der Form,
Range("1:1,ActiveCell.EntireRow").select
ist nicht zulässig

 

habe unbedarft dein Makro eingesetzt und abgewandelt.
Die restlichen Elemente ergänzt und bin am Ziel, auch wenn
mir die
With/End With Anweisung nicht klar ist.

Cells.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True). _
Activate
ActiveCell.Offset(-1, -2).Select
With ActiveCell
Range(Cells(1, .Column), Cells(.Row, 256)).Select
End With
Selection.Delete Shift:=xlUp
Columns("C:C").Select
Selection.ClearContents
Range("C1").Select
ActiveWorkbook.Save
End Sub

Bin vorangekommen und deshalb, danke!