Namensvergabe per VBA

Hallo,
ich verwende untenstehenden Code, um per VBA automatisch Namen zuzuweisen. Wenn in Zeile 1 eines Blattes (die Überschriften enthält) der Wert einer Zelle geändert wird, wird ein Name erstellt aus Blattname + "." + Überschrift (z.B. Umsatz.2008), mit dem Bezug=Blattname!$X$#2, wobei X die entsprechende Spalte ist, also z.B. =Umsatz!$K$2:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim n As Name
If Target.Row = 1 And Target.Cells.Count = 1 Then
If Application.CountIf(Sh.Rows(1), Target) > 1 Then
Application.Undo
Else
On Error Resume Next
Set n = ThisWorkbook.Names.Item(Target.Offset(1, 0).Name.Name)
On Error GoTo 0
If Not n Is Nothing Then n.Delete
If Target  "" Then Target.Offset(1, 0).Name = Sh.Name & "." & Target
End If
End If
End Sub

Frage 1: Anstelle von Bezug=Blattname!$X$#2 würde ich gerne Bezug=INDIREKT(Blattname!$X$#2) zuweisen, weiß aber leider nicht wie...
Frage 2: Zusätzlich zu obigem Code würde ich gerne in einer anderen xl-Datei ein Makro implementieren, dass die gleichen Schritte wie oben ausführt, jedoch nur per Knopfdruck (und nicht über Workbook_SheetChange), weiß aber auch nicht wie...
LG Boris
PS: Der Code wurde mir hier zur Verfügung gestellt, allerdings verstehe ich ihn nicht so richtig:)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'DieseArbeitsmappe Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Row = 1 And Target.Cells.Count = 1 Then AddNames Sh, Target End Sub 'Tabellenblatt Sub ButtonClick() If ActiveCell.Row = 1 Then AddNames ActiveSheet, ActiveCell End Sub 'Modul Sub AddNames(ByVal Sh As Object, ByVal Target As Range) Dim n As Name If Application.CountIf(Sh.Rows(1), Target) > 1 Then Application.Undo Else On Error Resume Next Set n = ThisWorkbook.Names.Item(Target.Offset(1, 0).Name.Name) On Error GoTo 0 If Not n Is Nothing Then n.Delete If Target "" Then ThisWorkbook.Names.Add Name:=Target.Offset(1, 0).Value, RefersTo:= _ "=INDIRECT('" & Sh.Name & "'!" & Target.Offset(1, 0).Address & ")" End If End If End Sub

Also bei mir funktioniert der Originalcode einwandfrei. Meine Sheets und die Überschriften enthalten allerdings auch keine Leerzeichen, sondern nur _. Mehr kann ich dazu leider auch nicht sagen, da ich wie schon erwähnt den Code nicht ganz verstehe.
Ich vermute allerdings, dass es einen erheblichen Unterschied macht, ob man einer Zelle einen Namen gibt oder ob man dort eine Formel (wie mit indirect gewünscht) eingibt.
Ich mache das ganze aus folgendem Grund: In Zelle K1 steht "2008", in Zelle K2 baue ich automatisch einen Bezug zusammen, also z.B. Umsatz_BRD!$K$10:K$2349 (die Tabelle fängt in Zeile 10 an und wird nach unten variabel erweitert). Über die Namensvergabe kann ich nun von jedem anderen Blatt aus z.B. Summe(indirect(Umsatz_BRD.2008)) rechnen lassen, unabhängig davon, ob sich in Umsatz_BRD Spalten ändern und Zeilen gelöscht/hinzugefügt werden.
Vielleicht kann man dies ja auch anders lösen.
Boris

Sub AddNames(ByVal Sh As Object, ByVal Target As Range) Dim n As Name If Application.CountIf(Sh.Rows(1), Target) > 1 Then Application.Undo Else On Error Resume Next Set n = ThisWorkbook.Names.Item(Target.Offset(1, 0).Name.Name) On Error GoTo 0 If Not n Is Nothing Then n.Delete If Target "" Then Target.Offset(1, 0).Name = Sh.Name & "." & Target End If End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Namensvergabe per VBA

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread