Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Text in Spalte Teilen
10.06.2007 10:31:59
mehmet
Guten Tag zusammen,
ich habe mit dem Makrorecorder folgenden Code gespeichert:

Private Sub Text_Backup_6_Spalte_A_Teilen_in_3_Spalten()
'2 Spalten Einfuegen
Columns("B:C").Select: Selection.Insert Shift:=xlToRight
'Spalte, die geteilt werden soll
Columns("A:A").Select
'Spalte Teilen und als Text formatieren
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(  _
_
Array(0, 2), Array(10, 2), Array(12, 2)), TrailingMinusNumbers:=True
'Spaltenbreite Automatisch anpassen
Columns("A:C").Select: Columns("A:C").EntireColumn.AutoFit
Range("A1").Select
End Sub


Wenn ich es ausfuehren moechte, werde ich gefragt, ob die "destination cells" replaced werden solle.
Wie kann ich das abstellen.
Dank und Gruss
mehmet

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Spalte Teilen
10.06.2007 10:43:42
Josef
Hallo Mehmet,
das geht so.
Private Sub Text_Backup_6_Spalte_A_Teilen_in_3_Spalten()

Application.DisplayAlerts = False

'2 Spalten Einfuegen
Columns("B:C").Insert Shift:=xlToRight

'Spalte, die geteilt werden soll
Columns("A:A").TextToColumns Destination:=Range("A1"), _
    DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 2), _
    Array(10, 2), Array(12, 2)), _
    TrailingMinusNumbers:=True

'Spaltenbreite Automatisch anpassen
Columns("A:C").EntireColumn.AutoFit

Application.DisplayAlerts = True

End Sub

Gruß Sepp

Anzeige
Dank dir. o.T.
10.06.2007 13:48:56
mehmet
.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige