|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.11.2010 10:14:05 |
- |
|
|
|
17.11.2010 10:45:17 |
Severus |
|
|
|
17.11.2010 13:20:22 |
- |
|
|
 Aw:Datei Erkennung nur durch die ersten 10 Zeic |
17.11.2010 14:16:50 |
Severus |
|
|
Von:
Severus |
Datum:
17.11.2010 14:16:50 |
Views:
792 |
Rating:
|
Antwort:
|
Thema:
Aw:Datei Erkennung nur durch die ersten 10 Zeic |
- schrieb am 17.11.2010 13:20:22:
Sub DateiOeffnen()
Const SUCHORDNER As String = "C:\SapWorkDir"
Dim FSO As New Scripting.FileSystemObject
Dim Ordner As Scripting.Folder
Dim DateiListe As Scripting.Files
Dim Datei As Scripting.File
Dim strDatei As String
Dim SuchString As String
Dim xlWB As Excel.Workbook
Set Ordner = FSO.GetFolder(SUCHORDNER)
If Ordner Is Nothing Then Exit Sub
Set DateiListe = Ordner.Files
If DateiListe Is Nothing Then Exit Sub
SuchString = Application.InputBox("Belegnummer eingeben:", "Datei öffnen...", , , , , , 2)
SuchString = UCase(SuchString)
SuchString = "00" & SuchString & "-D-SPT-"
For Each Datei In DateiListe
strDatei = UCase(Datei.Name)
If strDatei <> UCase(ThisWorkbook.Name) Then
If InStr(1, strDatei, SuchString, vbBinaryCompare) <> 0 Then
Set xlWB = Workbooks.Open(SUCHORDNER & "\" & Datei.Name)
xlWB.Activate
ThisWorkbook.Sheets(1).Range("E3") = xlWB.Sheets(1).Range("F14")
Set xlWB = Nothing
Exit For
End If
End If
Next
Set DateiListe = Nothing
Set Ordner = Nothing
End Sub
Super, das läuft soweit und nun möchte ich gerne noch von der neu geöffneten Datei 2 immer die Zelle F14 in die Datei 1, Zelle E3 kopieren (bei beiden jeweils das erste Tabellenblatt betreffend).
Ich bräuchte dann zwar noch mehr Zellen, die kopiert werden müssen, aber das kann ich ja dann selber einfügen, müsste ja immer das selbe sein.
Danke!
Siehe oben.
Und noch etwas: Wenn Du eine Lösung suchst, dann beschreibe bitte das GANZE Problem in einem Task! Es geht mir tierischen auf den ... wenn nach einer Anfrage dann immer noch tausend Nachträge der Form
...und dann möchte ich noch daß...
...und es wäre schön wenn man das auch noch könnte...
...und vielleicht ginge auch noch...
und so weiter und so weiter...
Das kostet mich nur unnötig Zeit! Und ich habe auch noch was anderes zu tun.
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.11.2010 10:14:05 |
- |
|
|
|
17.11.2010 10:45:17 |
Severus |
|
|
|
17.11.2010 13:20:22 |
- |
|
|
Aw:Datei Erkennung nur durch die ersten 10 Zeic |
17.11.2010 14:16:50 |
Severus |
|
|