Office: Target.Address mit benannter Zelle

User · 14. April 2008

Hallo zusammen,

cih möchte ein Ereigniss auslösen, wenn sich eine Zellen ändert. Diese Zellen ist benannt: Min.

Nun weiß ich nicht wie ich mit Worksheet_Change ein Makro auslösen kann, wenn ich keine "Adresse" wie z.B. A1 habe sondern ein Name. Kann mir jemand helfen?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
MsgBox "hallo"
End If
End Sub

Ich möchte also nicht "$A$1" sonder Range("Min") oder so haben...

Vielen Dank! Cathérine

:)

pefeu · 16. April 2008

Hallo Cathérine,

so könnte es gehen:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sAdr As String

sAdr = Range("Min").Address

If Target.Address = sAdr Then
MsgBox "ja, geändert"
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit

jinx · 16. April 2008

Moin, Cathérine,

zum Einen ist Min ein Excel-Schlüsselwoprt, zum Anderen funktioniert es so nur, wenn Du eine Zelle mit einem Namen belegst. Außerdem wird das Change-Ereignis "sauer", wenn die Änderung mehrere Zellen umfasst - diese müssen einzeln abgeprüft werden.

Code:

Option Compare Text

Public Function fncAusgabeBereichFürNamen(varZellreferenz As Variant) As String

Dim oName As Name
Dim wbAufruf As Workbook
Dim blnSchalter As Boolean
Dim strAusgabeBereiche As String

On Error Resume Next
If TypeOf varZellreferenz Is Range Then
varZellreferenz = varZellreferenz.Address
End If

If Not varZellreferenz Like "*!$" Then
varZellreferenz = Application.Caller.Parent.Name & "!" & varZellreferenz
If Err = 424 Then varZellreferenz = Range(varZellreferenz).Parent.Name & "!" & varZellreferenz
Err.Clear
End If

Set wbAufruf = Workbooks(Application.Caller.Parent.Parent.Name)

If Err = 424 Then Set wbAufruf = ActiveWorkbook
On Error GoTo 0

For Each oName In wbAufruf.Names
If oName.RefersTo = "=" & varZellreferenz Then
fncAusgabeBereichFürNamen = oName.Name
Set wbAufruf = Nothing
Exit Function
ElseIf Not Intersect(Range(varZellreferenz), Range(oName.RefersTo)) Is Nothing Then
strAusgabeBereiche = strAusgabeBereiche & "'" & oName.Name & "', "
fncAusgabeBereichFürNamen = _
"Schnittbereich von " & Left(strAusgabeBereiche, Len(strAusgabeBereiche) - 2)
blnSchalter = True
End If
Next

Err_Exit:
If Not blnSchalter Then fncAusgabeBereichFürNamen = "nicht gefunden"
Set wbAufruf = Nothing

End Function

Sub BeispielAufruf()

MsgBox fncAusgabeBereichFürNamen("$A$1")

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Target.Address mit benannter Zelle

Target.Address mit benannter Zelle

Target.Address mit benannter Zelle

Target.Address mit benannter Zelle - Similar Threads - Target Address benannter

2x Worksheet_Change(ByVal Target As Range)

SVerweis mit wechselnden benannten Bereich

Filterregel für Absender im Suffix (rechts von @)

2x Private Sub Worksheet_Change(ByVal Target As Range)

Target/Range verkehrt?

Address-Eigenschaft (Adresse)

Serienbrief-Mail weiterleiten, aber mit falscher Addresse!!!