Excel VBA Bereich

[Michael Yayannis]

Hallo Allerseits!

Zwei Fragen:

-Wie kann ich zb. Activecell "abfragen" in welchem bereich die sich im
Moment befindet?
- Wie kann ich von einem Bereich den/die Range abfragen?

Danke im Voraus mit Gruss

 

[Martin Seelhofer]

Hi Michael

-Wie kann ich zb. Activecell "abfragen" in welchem bereich die sich im
Moment befindet?

ActiveCell.Address
resp.
Replace(ActiveCell.Address, "$", "")
wenn Du die $-Zeichen loswerden willst (ab W2K)

- Wie kann ich von einem Bereich den/die Range abfragen?

Selection.Address
resp.
Replace(Selection.Address, "$", "")


Cheers,
Martin

 

[Michael Yayannis]

Martin,

Danke für die Antwort!
Ich habe mich etwas ungenau ausgedrückt:

Ich habe einem Bereich eine Namen "BereichA" gegeben. wie kann ich erfahren,
ob sich die aktuelle Zelle sich in diesem Bereich befindet? Genauer: ich
möchte als Rückgabewert den Namen (hier "BereichA") haben um mit ihmim Code
weiterzurarbeiten (zB. zu einer String-Variablen zuweisen)

Grüsse

Michi

 

[Martin Seelhofer]

Hi Michael

Danke für die Antwort!
Ich habe mich etwas ungenau ausgedrückt:

Ich habe einem Bereich eine Namen "BereichA" gegeben. wie kann ich
erfahren, ob sich die aktuelle Zelle sich in diesem Bereich befindet?
Genauer: ich möchte als Rückgabewert den Namen (hier "BereichA") haben um
mit ihmim Code weiterzurarbeiten (zB. zu einer String-Variablen zuweisen)

Dann meinst Du wohl eher so etwas:

Function findName(oRange As Range) As String
Dim oName As Name
' Alle Namen der Arbeitsmappe durchackern, in welcher
' sich die angegebene Range befindet
For Each oName In oRange.Worksheet.Parent.Names
If Not Intersect(oRange, oName.RefersToRange) Is Nothing Then
findName = oName.Name
Exit Function
End If
Next
End Function


Anwendungsbeispiel:

Dim bereich As String
bereich = findName(ActiveCell)
If bereich<>"" then
MsgBox "Die aktive Zelle befindet sich im benannten Bereich " & bereich
else
MsgBox "Kein benannter Bereich gefunden"
end if


Gruss,
Martin