Sheet Range B6:B12 für Tab.namen verw

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(6, 2) And Len(Cells(6, 2)) = 1 Then Tabelle11.Name = Target.Text If Target.Address = Cells(7, 2) And Len(Cells(7, 2)) = 1 Then Tabelle12.Name = Target.Text If Target.Address = Cells(8, 2) And Len(Cells(8, 2)) = 1 Then Tabelle13.Name = Target.Text If Target.Address = Cells(9, 2) And Len(Cells(9, 2)) = 1 Then Tabelle14.Name = Target.Text End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...Peter:


If Target.Address = Cells(6, 2) And ... Then

Damit das fkt muss hier in Zelle B6 die Adresse der Zelle stehen, die gerade geändert wird. Offensichtlich ist das aber bei keiner der in der Prozedur verglichenen Zellen der Fall, so dass keine Reaktion erfolgt. Setze doch mal einen Haltepkt und arbeite das dann schrittweise ab!
Falls das so nicht beabsichtigt ist, würde ich es mal mit...


If Target.Address = "$B$2" Then
If Cells(6, 2) = "" Then Tabelle11.Name = "frei 1" Else Tabelle11.Name = Target
ElseIf Target.Address...
End If

...versuchen! Die 2.Zeile kann alternativ auch...


Tabelle11.Name = IIf(Cells(6, 2) = "", "frei 1", Target)

...lauten. Statt = "$B$2" kann auch Cells(6, 2).Address, statt = Target auch = Cells(6, 2) geschrieben wdn, wenn ich mit meiner Vermutung richtig liege.
Gruß Luc :-?

Hallo Peter
so geht es aber ...


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(6, 2).Address And Len(Cells(6, 2)) = 1 Then Tabelle11.Name = Target. _
Text
If Target.Address = Cells(7, 2).Address And Len(Cells(7, 2)) = 1 Then Tabelle12.Name = Target. _
Text
If Target.Address = Cells(8, 2).Address And Len(Cells(8, 2)) = 1 Then Tabelle13.Name = Target. _
Text
If Target.Address = Cells(9, 2).Address And Len(Cells(9, 2)) = 1 Then Tabelle14.Name = Target. _
Text
End Sub

Anmerkung:
Wenn Du z.B. in B6 und B7 den selben Text einträgst, gibt es aber einen Fehler der noch abgefangen werden sollte.
in etwa so:


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fail
If Target.Address = Cells(6, 2).Address And Len(Cells(6, 2)) = 1 Then Tabelle11.Name = Target. _
Text
If Target.Address = Cells(7, 2).Address And Len(Cells(7, 2)) = 1 Then Tabelle12.Name = Target. _
Text
If Target.Address = Cells(8, 2).Address And Len(Cells(8, 2)) = 1 Then Tabelle13.Name = Target. _
Text
If Target.Address = Cells(9, 2).Address And Len(Cells(9, 2)) = 1 Then Tabelle14.Name = Target. _
Text
Exit Sub
Fail:
MsgBox ("Doppelte Namen sind nicht erlaubt!"): Target = ""
End Sub

Gruß Matthias

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("class1").Address And Len(Range("class1")) = 1 Then Tabelle11.Name = _ Target. _ Text If Target.Address = Range("class2").Address And Len(Range("class2")) = 1 Then Tabelle12.Name = _ Target. _ Text If Target.Address = Range("class3").Address And Len(Range("class3")) = 1 Then Tabelle13.Name = _ Target. _ Text If Target.Address = Range("class4").Address And Len(Range("class4")) = 1 Then Tabelle14.Name = _ Target. _ Text End Sub

Beliebteste Forumthreads (12 Monate)

Sheet Range B6:B12 für Tab.namen verw

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread