Hallo,
ich möchte per Macro Spalte A, in der Vor-und Nachname durch ein Komma getrennt sind
automatisch trennen.
Das mache ich mit:
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "Vorname"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Range("B1").Select
ActiveCell.FormulaR1C1 = "Vorname"
Columns("A:B").Select
Range("B1").Activate
Columns("A:B").EntireColumn.AutoFit
Aber wie kann ich nun diesen Warnhinweis der kommt "Zellen überschreiben?" ausstellen?
Also der soll nicht kommen, da die Zellen eh leer sind...