Hallöchen,
Zitat:Wenn ich die Tabellenblätter habe verhaut es weiterhin ein W/qm.
Zwei Fragen:
1)
Sind die Quelldaten korrekt aufgebaut?
2)
Wenn Du die Tabellenblätter nicht hast, verhaut es auch kein W/qm? Welche Blätter stören denn da?
Dass es dir "die W/qm verhaut" liegt schlicht daran, dass deine Textdateien schlecht sind, sieh dir das mal auf dem Bild an. Oben siehst du die Textdatei im Editor und darunter das, was Excel beim Import erkennt.
Das ist aber kein Hokuspokus, du brauchst einfach nur die Überschriften je Tabellenblatt manuell festlegen:
Code:
With ActiveSheet
.Move After:=Sheets(Sheets.Count)
.Range("B2:E2") = "W/qm"
.Range("F2:G2").ClearContents
'...der weitere Code wie bereits gepostet
End With
Hallo Berni, danke Berni! Es liegt an der Textdatei!!!
Hallo zusammen,
ich würde für das folgende Problem kein weiteres Thema aufmachen.
Es geht um folgendes:
ich habe den Code zum Einlesen:
Code:
Sub Datei_öffnen_in_bestimmter_Zelle()
Dim Pfad As String, i As Long, Z As Long, S As Long
Dim Zelle As Range, Bereich As Range
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
If .Cells(i, "A") > 0 Then
Pfad = ThisWorkbook.Worksheets("Tabelle1").Range("C" & i).Value
With Workbooks.Open(Filename:=Pfad)
.ActiveSheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
.Close savechanges:=False 'oder true, wenn Änderungen gespeichert werden sollen
End With
Application.CutCopyMode = False
End If
Next i
End With
Application.ScreenUpdating = False
End Sub
Die erzeugten Tabellenblätter besitzen die Namen ihrer Textdatei.
Die erste knifflige Frage wäre: Ist es Möglich, dass der Tabellenblattname eine Endung wie zum Beispiel "spez" hinzugefügt bekommt. Sodass aus einem eingelesen Textdateinamen Schlafzimmer (Tabellenname bis dato laut Code = Schlafzimmer) etwas wird wie Schlafzimmer_spez ( Tabellenname = Schlafzimmer_spez)?
Die Endung soll für alle eingelesenen Dateien hinzugefügt werden. Das zuvor erarbeitete Makro mit Berni greift auch auf diese Daten zu daher darf die ursprüngliche Textdatei nicht im Namen verändert werden.
Die zweite knifflige Frage wäre:
Ist es möglich wie im Bild unten angefügt ein Fenster in die eingelesene Datei einzubauen, dass mir die Summe , den kleinsten und größten Wert, jeder Spalte darstellt ( rot dargestellt).
Viele Grüße
und danke im voraus!