05.08.2016, 17:14
Top Uwe, danke.
Habe das verarbeiten können.
Neues Problem: Ich führe verschiedene txt-Files jeweils mit Daten in mehreren Spalten zusammen. Normalerweise haben alle Files die gleiche erste Spalte, dh. im Fall einer technischen Zeichnung wären das die Benennungen von Maßen. In der 2. bzw. 3. Spalte sind jeweils Werte vermerkt. In dem Gesamttabellenblatt, in welchem sie zusammengeführt werden, steht dann eben ganz links die Benennung und dann in den folgenden Spalten die verschiedenen Werte aus den Txt-Files.
Gibt es eine Möglichkeit, dass mir jedes mal, wenn eine neue Benennung dazu gekommen ist, in dem Gesamtblatt eine neue Zeile hinzugefügt und die Benennung eingefügt wird? Ich möchte dabei keine Änderung der bestehenden Sortierung haben sondern direkt an der Stelle eine Zeile mit der neuen Benennung einführen.
Bsp:
txt1:
BA;1;10;
CA;1;10;
DS;1;34;
BB;3
C;3
txt2:
BA;2;4;
CA;3;44;
FF;3;231;
DS;1;33;
GG;
BB;3
C;3
txt3:
BA;3;32;
CA;3;3;
GG;
BB;3
C;3
GESAMT:
BA;
CA;
FF;
DS;
GG;
BB;
C;
Ich kann nicht einfach danach gehen, welche txt die längste Spalte hat, sondern muss wirklich immer alle txts auf Vorhandensein der Spaltenwerte vergleichen.
Kann ich mir die Spaltenwerte der 1. Spalte aus allen txt Files sortieren , diese in das Gesamttabellenblatt einfügen lassen und dann über SVERWEIS wiederum zu den Einzeltabellenblättern verweisen?
Wäre klasse wenn mir jmd helfen kann.
Mein Code sieht bis jetzt so aus:
die
Gruß und danke,
Vince
Habe das verarbeiten können.
Neues Problem: Ich führe verschiedene txt-Files jeweils mit Daten in mehreren Spalten zusammen. Normalerweise haben alle Files die gleiche erste Spalte, dh. im Fall einer technischen Zeichnung wären das die Benennungen von Maßen. In der 2. bzw. 3. Spalte sind jeweils Werte vermerkt. In dem Gesamttabellenblatt, in welchem sie zusammengeführt werden, steht dann eben ganz links die Benennung und dann in den folgenden Spalten die verschiedenen Werte aus den Txt-Files.
Gibt es eine Möglichkeit, dass mir jedes mal, wenn eine neue Benennung dazu gekommen ist, in dem Gesamtblatt eine neue Zeile hinzugefügt und die Benennung eingefügt wird? Ich möchte dabei keine Änderung der bestehenden Sortierung haben sondern direkt an der Stelle eine Zeile mit der neuen Benennung einführen.
Bsp:
txt1:
BA;1;10;
CA;1;10;
DS;1;34;
BB;3
C;3
txt2:
BA;2;4;
CA;3;44;
FF;3;231;
DS;1;33;
GG;
BB;3
C;3
txt3:
BA;3;32;
CA;3;3;
GG;
BB;3
C;3
GESAMT:
BA;
CA;
FF;
DS;
GG;
BB;
C;
Ich kann nicht einfach danach gehen, welche txt die längste Spalte hat, sondern muss wirklich immer alle txts auf Vorhandensein der Spaltenwerte vergleichen.
Kann ich mir die Spaltenwerte der 1. Spalte aus allen txt Files sortieren , diese in das Gesamttabellenblatt einfügen lassen und dann über SVERWEIS wiederum zu den Einzeltabellenblättern verweisen?
Wäre klasse wenn mir jmd helfen kann.
Mein Code sieht bis jetzt so aus:
die
Code:
Sub Import_txt1()
With Sheets("txt1").QueryTables(1)
.TextFilePromptOnRefresh = True
On Error Resume Next
.Refresh
On Error GoTo 0
End With
Application.ScreenUpdating = False
Dim i As Long
Dim Start As String
Dim Ende As String
Dim Temp As String
Dim erlaubt As String
Start = Time
erlaubt = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!§$%&/[]()=?*#ß\ÄÖÜ@,-_:.+;<>°'"""
Sheets("txt1").Select
Range("D1:E100").Select
For Each C In Selection
With C
Temp = ""
For i = 1 To Len(.Text)
If InStr(1, erlaubt, Mid(.Text, i, 1), vbTextCompare) > 0 Then
Temp = Temp & Mid(.Text, i, 1)
End If
Next i
.Value = Temp
End With
Next C
Sheets("Tablet drawing").Select
Application.ScreenUpdating = True
Ende = Time
End SubGruß und danke,
Vince
