Excel-Problem

Question

Hallo,
wie kann ich erreichen, dass bei einer vorhandenen Tabelle automatisch nach jeder Spalte eine zusaetzliche Spalte eingefuegt wird, die ein "&" enthaelt? Bzw. wenn das nicht direkt moeglich ist, wie kann ich automatisch nach jeder vorhandenen Spalte eine zusaetzliche einfuegen?
Danke.

Answer 1

Hallo Unbekannte(r),

die Spalte danach markieren, rechte Maustaste, Zellen einfügen, neuen Salte markieren, in Bearbeitungsleiste & eingeben und Strg+enter

Gruß Hajo

Answer 2

Ja, ich weiß, aber ich habe keine Lust, das 10 mal hintereinander zu machen. Ich wollte wissen, wie ich das mit einmal für die ganze Tabelle ausführen kann.

Answer 3

Hallo Unbekannte(r),

Option Explicit

Sub Unbekannt()
Dim LoZeile As Long
Dim LoSpalte As Long
Dim LoI As Long
LoZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For LoI = LoSpalte To 1 Step -1
Columns(LoI).Insert Shift:=xlToRight
Range(Cells(1, LoI), Cells(LoZeile, LoI)) = "&"
Next LoI
End Sub

Ich habe jetzt nicht für die gesamte Spalte & eigetragen sondern nur für den benutzten Breich.

Gruß Hajo

Answer 4

Cool, funktioniert. Danke dafür!