Hi Experten,
ich hab da gerade mal ein kleines Problemchen bzw eine Frage, ob das geht… 
Und zwar wird aus einem Programm, das mehrere Mitarbeiter verwenden ein regelmässiger Export gemacht…
Dummerweise ist das Programm nicht in der Lage einen konstanten Tabellenblattsnamen zu verwenden und beharrt darauf, dass es sich Export061031143655 zu nennen.
Sprich das Jahr, Monat, Tag, Stunden, Minuten und Sekunden als „Anhängsel an den Sheetnamen…“
Nun würde ich gerne die Daten aus diesem Sheet in einem neuen Sheet nochmal zusammensammeln um daraus eine auswertung zu machen, aber das ist ein wenig doof irgendwie, wenn man das alles Händisch machen muss…
Was würdet ihr vorschlagen?
In VBA gibts glaub ich ne Möglichkeit das (einzige!) sheet direkt mit sheets(1) oder so anzusprechen, aber damit kann ich ja schlecht importieren, wie? :-/
Vielen Dank für alle Lösungsansätze…
Munich
Hi Munich,
Und zwar wird aus einem Programm, das mehrere Mitarbeiter
verwenden ein regelmässiger Export gemacht…
Dummerweise ist das Programm nicht in der Lage einen
konstanten Tabellenblattsnamen zu verwenden und beharrt
darauf, dass es sich Export061031143655 zu nennen.
Sprich das Jahr, Monat, Tag, Stunden, Minuten und Sekunden als
„Anhängsel an den Sheetnamen…“
Was ist das für ein Programm? Excel? Es erzeugt ein Tabellenblatt? In welcher Datei?
Nun würde ich gerne die Daten aus diesem Sheet in einem neuen
Sheet nochmal zusammensammeln um daraus eine auswertung zu
machen, aber das ist ein wenig doof irgendwie, wenn man das
alles Händisch machen muss…
Was würdet ihr vorschlagen?
In VBA gibts glaub ich ne Möglichkeit das (einzige!) sheet
direkt mit sheets(1) oder so anzusprechen, aber damit kann ich
ja schlecht importieren, wie? :-/
Klar geht das, sofern du den Dateinamen rausrückst *g
Gruß
Reinhard
Hi Reinhard
Was ist das für ein Programm? Excel? Es erzeugt ein
Tabellenblatt? In welcher Datei?
Das Prgramm gab es mal als Freeware - inzwischen aber nimmer…
Es kann in Excel und txt Dateien exportieren…
Excel 8.0 ist dabei das letztmögliche Format…
Klar geht das, sofern du den Dateinamen rausrückst *g
der ist doch irrelevant
den kann man ja frei einsetzen
Huber.xls z.b.
Das Problem ist eher, dass das Sheet darin eben den komischen Namen trägt…
Grüße
Munich
Hallo Munich,
Was ist das für ein Programm? Excel? Es erzeugt ein
Tabellenblatt? In welcher Datei?
Das Prgramm gab es mal als Freeware - inzwischen aber
nimmer…
Es kann in Excel und txt Dateien exportieren…
Excel 8.0 ist dabei das letztmögliche Format…
Schwierig aus den Angaben den Programmnamen auszudeuten. Arbeitest du in Pullach oder benutzt ihr das Programm „schwarz“? 
Klar geht das, sofern du den Dateinamen rausrückst *g
der ist doch irrelevant
den kann man ja frei einsetzen
Huber.xls z.b.
Schon wieder Gedanken an Pullach *g
Das Problem ist eher, dass das Sheet darin eben den komischen
Namen trägt…
Kein Problem,
Option Explicit
Sub Import()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Application.DisplayAlerts = False
If ws.Name = "Kurz" Then ws.Delete
Application.DisplayAlerts = True
Next ws
Workbooks.Open "C:\test\Huber.xls"
Worksheets(1).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = "Kurz"
Workbooks("Huber.xls").Close savechanges:=False
'Jetz haste in Blatt "Kurz" die Daten aus dem ersten Blatt von Huber.xls und kannst sie massakrieren
End Sub
Gruß
Reinhard
1 „Gefällt mir“
huhu
Schwierig aus den Angaben den Programmnamen auszudeuten.
Arbeitest du in Pullach oder benutzt ihr das Programm
„schwarz“?
nicht dass ich wüsste
zumindest hat mein Chef mir das Programm „TimeCore“ geschickt
Klar geht das, sofern du den Dateinamen rausrückst *g
der ist doch irrelevant
den kann man ja frei einsetzen
Huber.xls z.b.
Schon wieder Gedanken an Pullach *g
*grins*
na wenn ich den Namen doch aber selbst noch ned weiss
Wir fangen ja erst an das zu nutzen
Ausserdem sind es ja mehrere Dateien hintereinander - für jeden Kollegen eben eine…
Das Problem ist eher, dass das Sheet darin eben den komischen
Namen trägt…
Kein Problem,
'Jetz haste in Blatt „Kurz“ die Daten aus dem ersten Blatt von
Huber.xls und kannst sie massakrieren
danke…
aber was ich dabei nicht verstehe ist, warum Du das worksheet nicht explizit löschst, sondern alle durchgehst…?
werd mich am Montag dran vergnügen denk ich
Grüße
Munich
Menno… 
Ich hab ein Problem…
Wenn ich Dein Makro verwende (klappt zwar super…)
dann verlieren beim löschen der alten Daten die Zellen, die darauf referenzieren ihren Bezug
hmmm… untoll…
Muss ich mir noch nen workaround ausdenken fürchte ich…
Wenn ich Dein Makro verwende (klappt zwar super…)
dann verlieren beim löschen der alten Daten die Zellen, die
darauf referenzieren ihren Bezug
Muss ich mir noch nen workaround ausdenken fürchte ich…
Hallo Munich,
mein Code löscht nicht, wer löscht denn da was und wo?
Kannst du mal 3 kleine Beispiledateien basteln, die die Dateien der anderen darstellen.
und eine Datei die deine Sammeldatei darstellt.
Und dann irgendwie dadrin nachvollziehbar darstellen was du da vorhast,
auch paar Verknüfungen rein, die die da gelöscht werden.
*hmmh* von hier aus kann ch schlecht sagen was da alles rein muss, du siehst das besser.
Hochladen dann bei rapidshare.de oder so.
Gruß
Reinhard
Gruß
Reinhard
Hi Reinhard,
mein Code löscht nicht, wer löscht denn da was und wo?
doch tut er…
For Each ws In ThisWorkbook.Worksheets
Application.DisplayAlerts = False
If ws.Name = „Kurz“ Then ws.Delete
Application.DisplayAlerts = True
Next ws
dadurch verliert das Sheet „all“, das eine Formel auf das Tabellenblatt „Kurz“ hat den Bezug…
Der Import selbst ist davon noch nicht mal betroffen…
Also glaub ich brauchts das hochladen einer Musterdatei nicht wirklich (zumal ich die auch erst mal zusammenbasteln müsste, weil ich absolute Pfade drin hab und so…)
Gruß
Munich