Hallo!
Ich habe das Problem dass ich Datenblätter in Excel schreibe welche jedoch immer am obersten Rand den Namen des Datenblattes haben sollen- nachdem ich das bei20 Seiten nicht immer wieder eingeben will, wüsste ich gerne was ich eingeben muss um das geschriebene aus Tabellenblatt 1 in zb 1.zeile 1.spalte auch in den nächsten Blättern automatisch zu haben.
vielen Dank!
MFG
Viktoria
Hallo, bin kein Experte mache es aber so:
schreibe in Tab 1 A1 „Tabellenblattname“. Dann zu Tabelle 2 A1 schreibe: = dann gehe zu Tabelle 1 A1 und klicke dort an. Enter
Excel übernimmt den Text aus Tabelle 1 A1 in Tabelle 2 A1.
Dann mit F4 die zelle fixieren und das ganze in alle Tabellenblätter kopieren.
Ist möglicherweise nicht die eleganteste Lösung.
hoffe es hilft soweit
gruß running
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Viktoria
Dieses kleine Makro macht die Sache „in einem Aufwasch“:
Option Explicit
Dim i As Integer
Sub titel()
For i = 1 To Sheets.Count
Range("A1").Value = Sheets(i).Name
Next
End Sub
Ich habe doch wohl richtig verstanden: du willst die Tabellenblattnamen jeden Blattes in die entsprechende Zelle A1 schreiben?
Gruss
Erich
Nachtrag
wenn du aber lediglich in jedes Tabellenblatt denselben Namen in A1 schreiben willst:
Option Explicit
Dim i As Integer
Sub tit()
For i = 1 To Sheets.Count
Range("A1").Value = "MeinName"
Next
End Sub
musst natürlich deinen Text anstelle „MeinName“ setzen!