Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten importieren und formatieren

Daten importieren und formatieren
17.09.2008 18:50:16
marolf
Hallo
Ich habe folgendes Problem:
In einer Textdatei hab ich über je vier Zeilen erstreckend Datensätze die wie folgt ausschauen :
Einkaufsorg. CP01, Buchungskreis CG01, Bestellart UB, abgeb. Werk 9017
Aufteiler 0000265614 ,Position 00010
Bestellposition für: Material: 000000000003714901, Werk: 4251 wurde nicht angele
Status "gesp. für Beschaffung" des Materials 3.714.901 erlaubt keine externe Bes
Einkaufsorg. CP01, Buchungskreis CG01, Bestellart UB, abgeb. Werk 9017
Aufteiler 0000265614 ,Position 00010
Bestellposition für: Material: 000000000003714901, Werk: 4253 wurde nicht angele
Status "gesp. für Beschaffung" des Materials 3.714.901 erlaubt keine externe Bes
Ein neuer Datensatz beginnt also bei "Einkaufsorg."
Nun möchte ich per VBA - Makro diese TXT - Datei einlesen und dann in Excel so formatieren dass ein Datensatz sich jeweils über eine einzige Zeile erstreckt und jeweils bei einem Leerschlag getrennt (also in eine neue Zelle) geschrieben wird.
Der Text, welcher dann hinter der Nummer Material 0000000000....... steht soll dann in eine einzige Zelle dahinter als zusammenhängender Text geschrieben werden.
wenn ich also die Zeile 1 anschauen würde, würde die in etwa so ausschauen:
1A: Einkaufsorg
1B: CP01
1C: Buchungskreis
1D: CG01
1E: Bestellart
1F: UB
1G: abgeb. Werk
1H: 4 stellige Nummer
1I: Aufteiler
1J: 10-stellige Nummer
etc.
etc.
Geht das irgendwie ?
Ich hoffe, meine Frage sei so einigermassen verständlich
HERZLICHEN DANK FÜR EURE HILFE !!!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten importieren und formatieren
17.09.2008 19:02:00
wernernico
Hallo,
das könnte mann über Formeln oder mit VBA erledigen. Das Grundvorgehen wäre in beiden Fällen das gleiche:
1. Datensätze durch suchen von Einkaufsorg aufteilen.
2. Datensätze nach Leerzeichen auftrennen.
Alternative
1. Direkt in der Textdatei Einkaufsorg durch Absatzmarken ersetzen.
2. Text mit Excel öffnen. Leerzeichen als Trennzeichen eingeben
3. Manuell oder über kopieren und Inhalte Einfügen transponieren.
Gruß
Nicolaus
AW: Daten importieren und formatieren
17.09.2008 19:14:00
marolf
Vorerst mal Danke für die beiden Ratschläge.
Natürlich hab ich auch schon beide Varianten selber mal ausprobiert, bin aber auf keinen grünen Zweig gekommen.
Am liebsten möcht ich das natürlich über VBA - Makro lösen.
Gibts evt. irgendwo einen Beispiels-Code für sowas ?
Anzeige
AW: Daten importieren und formatieren
17.09.2008 19:19:59
Daniel
Hi
probier mal das hier:

Sub umgestalten()
Dim i As Long
'--- Zusammenfassen
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Left(Cells(i, 1), 12)  "Einkaufsorg." Then
Cells(i - 1, 1).Value = Cells(i - 1, 1).Value & "," & Cells(i, 1).Value
Rows(i).Delete
End If
Next
'--- Trennzeichen ergänzen (bei Bedarf erweitern)
With Columns(1)
.Replace "fsorg.", "fsorg.,", xlPart
.Replace "Buchungskreis", "Buchungskreis,", xlPart
.Replace "Bestellart", "Bestellart,", xlPart
.Replace "abgeb. Werk", "abgeb. Werk,", xlPart
.Replace "Aufteiler", "Aufteiler,", xlPart
' bei Bedarf weiterführen
.Replace ", ", ",", xlPart
End With
'--- Text in Spalten aufteilen
Columns(1).TextToColumns _
Destination:=Range("A1"), _
DataType:=xlDelimited, _
Comma:=True
End Sub


Gruß, Daniel

Anzeige
AW: Daten importieren und formatieren
17.09.2008 20:12:00
marolf
ES KLAPPT AUF DIESE ART BESTENS !!!!!
Herzlichen Dank !!!
Nun werde ich den Code noch anpassen und weiter ausbauen.
AW: Daten importieren und formatieren
17.09.2008 20:28:00
marolf
es klappt schon ganz gut. Doch einzig bleibt das Makro nach einer Weile stehen bei
Cells(i - 1, 1).Value = Cells(i - 1, 1).Value & "," & Cells(i, 1).Value
Fehlermeldung: Nicht geung Speicher
Kann man das nicht irgendwie umgehen ? - Zugegeben: das Textfile ist einige Zeilen lang !
Zudem: wie bau ich noch ein, dass wenn ich das Makro starte, dann noch ein Dialog ausgegeben wird, auf dem ich das zu importierende Textfile auswählen kann ?
Datei öffnen
Anzeige
AW: Daten importieren und formatieren
17.09.2008 20:58:17
Daniel
Hi
was soll ich dazu sagen? mehr Speicher kaufen?
zum 2. Punkt:
schau dir mal in der Excelhilfe die funkionen:
- GetOpenFileName
- Workbooks.Open
an, das könnte bezgl. Dateiauswahl weiterhelfen
Gruß, Daniel

299 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Makro ohne Pfadbezug erstellen.
George

Hallo,
Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
11.08.2008 08:46:50
Thread-ID: 1000712
3 Beiträge
Monat eingeben und dann
Kurt

Guten Morgen Zusammen,
ich möchte gern in der Zelle "C1" eine Zahl eingeben, z.b. 8, dann soll
in der Zelle C2 der Monat erscheinen u. zwar das ENDE 8 = 31.08.2008,
geht das ?
mfg Kurt
11.08.2008 09:53:00
Thread-ID: 1000728
6 Beiträge
Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
15
2
13
6
2
5
3
3
9
4
9
2
2
5
1
3
15
12
5
2
4
3
6