Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
128to132
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aufteilen

Aufteilen
22.06.2002 20:08:28
Joachim S
Habe dieses makro die letzten Tage aus dem Forum bezogen
funktioniert klasse

es beginnt in Spalte g und trennt mir A?B in A B
nur sollte es nicht die ganzen Spalten dursuchen sondern erst ab Zeile 7

Vielen für eure Hilfe
Schöne Grüße vom Bodensee
Gruß Josi

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

Betreff
Datum
Anwender
Anzeige
Re: Aufteilen
23.06.2002 16:25:41
Martin
Hallo Josi,
du kannst das Makro so ausbauen:
Sub Aufteilen()
Dim Spalte As Integer
Dim zeilen As Long
Dim R As Range

zeilen = Rows.Count

On Error Resume Next
For Spalte = 7 To 30 Step 2
Range(Cells(7, Spalte), Cells(zeilen, Spalte)). _
TextToColumns Destination:=Cells(7, Spalte), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
Other:=True, OtherChar:="?", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Next Spalte

End Sub

Grüße
Martin

Vielen Dank :-)
24.06.2002 00:21:44
Joachim S
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige