Hallo zusammen,

ich habe einen Code der mir zwei Spalten hinzufügt in meiner Tabelle, der Code sieht so aus,

Sub NeueSpalten()
Dim Sheet As Worksheet

For Each Sheet In ActiveWorkbook.Worksheets

Sheet.Columns("B:C").Insert

Next Sheet
End Sub

Jetzt ist mein Problem, dass die Spalten Spalte1 (B) und Spalte2 (C) benannt werden. Wie muss ich mein Code so ergänzen das die Name von Spalte 1 Nummer wird und die von Spalte 2 Vor- u. Nachname?

Vielen Dank im Voraus

LG
xGT86

Die Adressköpfe der Spalten kannst du nicht beliebig verändern.
Du kannst sie maximal als Nummern anzeigen lassen.

Normalerweise trägt man die Header in die erste Zeile ein.

Was du machen kannst, ist eine Tabelle einzufügen.
Dann werden beim Scrollen die Adressen durch die jeweiligen Tabellen-Header überlagert.

Hallo petaod

vielen Dank für die Antwort


Das Heißt ich kann die rot Markierten nicht per VBA ändern?

LG
xGT86

Keine Ahnung, was du da für eine Ansicht hast.
Jedenfalls sieht mir das nicht nach normalem Tabellenblatt aus.

Hallo petaod,

Ich habe im Anhang meine Mappe angehängt, in der Mappe habe ich beschrieben was ich genau meine.

Ich hoffe das hilft dir weiter

Lg
xGT86

Das sind doch ganz normale Zellen.


Wie hast du denn die Formeln reingeschrieben?
Da musst du doch auch Code verwendet haben.

Hallo petaod,

Vielen dank für deine Mühe ich habe meinen Chef überredet das man die Zeilen einfach Spalte 1 und Spalte 2 nennen.

Schönen Abend wünsche ich dir noch.

LG
xGT86