Office: Zellenverweis in VBA

Hallo, ich habe folgendes Makro erstellt in Excel2010

************************************************

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B3").Address Then

Call Tabelle2.TabName
End If
End Sub

Sub TabName()
Dim pw As Variant
pw = "passwort"
ActiveWorkbook.Unprotect (pw)
On Error GoTo errorMsgExcel
If Range("B3") <> "" Then ActiveSheet.Name = Range(Left("B3", 6))
End
errorMsgExcel:
MsgBox ("Bitte gültige Zeichen Auswählen" & Chr$(13) & Chr$(13) & _
Range("B3") & Chr$(13) & Chr$(13) & _
"ist leider nicht zulässig als Tabellenname"), 16, "Fehler"

ActiveWorkbook.Protect Password:=pw, structure:=True
End Sub


************************************************

funktioniert soweit ganz gut. Nun soll also "Auslöser" nicht Zelle "B3" verwendet werden, sondern in der gleichen Mappe in einer Zelle einer anderen Arbeitsmappe.

Genauer auf Zellenverweis

"=Cover!C31"

gebe ich das so in das Makro ein, funktioniert es nicht. Die Syntax in VBA ist da wohl eine andere.

Ich bin mir sicher, diese Frage ist ein Klacks für euch. Ich danke om voraus für eure Hilfe!

 

Hi,

wenn du das Worksheet_Change Ereignis verwendest, kannst du das Target (Zielzelle für die Eingabe) nicht einer Zelle eines anderen Tabellenblattes zuweisen - dieses Ereignis reagiert nur im aktiven Tabellenblatt. Du kannst höchstens den Inhalt dieser anderen Zelle auswerten.

Bis später,
Karin

 

Hi Karin,

soll heißen ich kann z.B. folgendermaßen vorgehen:

Anfangs ist die Zelle in dem Template immer leer. Wenn also nicht mehr leer, dann führe Makro aus?

Wie übersetze ich dies im konkreten Fall?




Alternativ wäre es auch möglich auf das gleiche Arbeitsblatt zu verweisen. Allerdings wäre Zelle "B3" eine Formel. Diese hat einen Zellenbezug "=Cover!C31".

Wenn sich also das Ergebnis der Formel ändert, dann soll das Makro auslösen.
Da sich die Formel an sich nicht ändert, löst er nicht aus, wenn ich nur auf "B3" der gleichen Mappe verweise.


Habe mal das Dokument hochgeladen. Könnt damit spielen, wenn ihr möchtet.


Danke soweit!

 

Hi,

dann musst du die Zelle C31 im Tabellenblatt Cover mit dem dortigen Worksheet_Change Ereignis überwachen - also deinen Code ins Codemodul von Cover schreiben und anstelle von Target.Address = Range("B3").Address dieses schreiben Target.Address = Range("C31").Address.

Bis später,
Karin

 

lösche deinen Code und schreibe folgenden Code ins Codemodul des Tabellenblattes Cover:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim pw As String
   pw = "passwort"
   If Target.Address = "$C$31" Then
      If IsNumeric(Target) Then
         ActiveWorkbook.Unprotect (pw)
         Worksheets(Tabelle2.Name).Name = "Storage Temperature " & Target & "°C"
         ActiveWorkbook.Protect Password:=pw, structure:=True
      End If
   End If
End Sub

Bis später,
Karin

 

Hi Karin,

das hat super gefunzt!!! DANKE!