Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Name vom Tabellenblatt automatisch ändern lassen
#1
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


.xls   Kopie von Rechner.xls (Größe: 582 KB / Downloads: 9)
Antworten Top
#2
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • friemel84
Antworten Top
#3
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ß
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste