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!
