Name vom Tabellenblatt automatisch ändern lassen

[friemel84]

Guten Abend,

ich bin gerade dabei mir einen Tilgungsrechner aufzubauen, um die vielen schönen Dinge von Excel auszuprobieren. Leider werde ich beruflich in Sachen Excel nicht gefordert, daher die private Spielerei mit dem Tilgungsrechner und weil ich mich an VBA wagen möchte. Ich möchte ihn so aufbauen, dass ich den Plan theoretisch verschicken könnte und die Personen sich diesen nach ihren Anforderungen anpassen können. Daher werden einige Fragen diesbezüglich auftauchen.

Nun zur ersten Frage:

- ich möchte die Namen der Tabellenblätter 2-4 (Tb2 = der Bankname von Kredit 1; Tb3 = Bankname von Kredit 2 ;...) automatisch anpassen lassen, wenn ich die Namen auf der Hauptseite (Tabellenblatt1) für Tb2 in E3; Tb3 in E4 und Tb4 in E5 änder. Mit google hatte ich ein VBA Code gefunden welcher mir allerdings nur den Namen vom aktuell geöffneten Sheet ändert. Daher die Frage wie ich dies über VBA lösen kann. Und bitte beschreibt mir wo ich genau was eintragen muss. Danke :19:

-> am weitesten mit meiner Anpassung bin ich im Tabellenblatt "Bank" evtl könnt ihr mal reinschauen und etwas ausprobieren und mir sagen was euch gut gefällt und was nicht. (wie gesagt wenn ich mehr über VBA weiß dann sollen noch Schaltflächen etc eingefügt werden) Das mit der Restschuld haut auch noch nicht hin, aber das wird dann meine zweite Frage werden.

Erstmal Danke

Schönen unfallfreien Start in die neue Woche

Grüße Robert


  Kopie von Rechner.xls (Größe: 582 KB / Downloads: 9)

[schauan]

Hallöchen,

wenn Du im Netz codes findest und testest, kannst Du die auch zur Weiterentwicklung und Erklärung hier einstellen. Ich gehe nun erst mal davon aus, dass Du den Code ausprobiert hast.

Dort steht vermutlich
ActiveSheet.Name = ...

Du benötigst für ein beliebiges Blatt z.B.
Sheets("AlterName").Name = "NeuerName"

oder

Sheets(1).Name = "NeuerName"

Letzteres ist dahingehend flexibel, dass Du dir den Namen nicht merken musst. Allerdings spielt hier die Reihenfolge eine Rolle. Könnte also etwas durcheinander gehen.

Eine ALternative wäre dann

Tabelle1.Name

Tabelle1 wäre die Bezeichnung, die Du im Projektexplorer siehst und die vor dem Klammerausdruck kommt, z.B.
Tabelle1 (AlterName)

In einer neuen Datei steht dort z.B. Tabelle1 (Tabelle1), da kann man das nicht so nachvollziehen.

[friemel84]

Hallo schauan,

danke für deine Hilfe. Heute konnte ich mich an meinen Rechner setzen und deine Hilfe umsetzen. Ich habe folgenden Code 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$3" Then
   On Error Resume Next
   Me.Name = Target.Value
 End If
End Sub



in den hier umgewandelt:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$E$3" Then
    On Error Resume Next
    Tabelle2.Name = Target.Value
  End If
 
  If Target.Address = "$E$4" Then
    On Error Resume Next
    Tabelle3.Name = Target.Value
  End If
 
  If Target.Address = "$E$5" Then
    On Error Resume Next
    Tabelle4.Name = Target.Value
  End If
End Sub


und es hat funktioniert. Danke dir

Guten Start in die Woche

Gruß