Thema Datum  Von Nutzer Rating
Antwort
Rot Erkennen einer Range?
 19.05.2006 14:40:51 John26_de
NotSolved
20.05.2006 08:17:35 schnolli
NotSolved
26.05.2006 16:28:29 Stefan
NotSolved

Ansicht des Beitrags:
Von:
John26_de		 Datum:
19.05.2006 14:40:51		 Views:
1583		 Rating:
     
Antwort:
  Ja
Thema:
Erkennen einer Range?
Hi,
dies ist Teil des Codes meines kleinen Programmes. Beim öffnen dieses Workbooks öffnet es ein weiteres Excel Workbook und kopiert Daten aus den Spalten B und C in das erste Workbook.
Das funktioniert auf meinem PC auch alles einwandfrei.
Sobald ich allerdings auf einen anderen NetzwerkPC ausweiche, der auf die Quelldatei ebenfalls Zugriff hat, gibt mir das Programm einen Fehler wieder. Der Debugger zeigt an, dass sich der Fehler in folgender Zeile befindet: Tabelle1.Range("B1").Select (4. von unten)


Sub Auto_open()

Cells.Select
Selection.ClearContents

Tabelle1.Cells(1, 1).Value = "Ticker"
Worksheets("Tabelle1").Range("A1").Font.Bold = True
Tabelle1.Cells(2, 1).Value = "ISIN"

folderspec = "H:\SEKRET\BONDS\Praktikanten\Claus\EN00\en00-Neu_Stefan\"


' Files definieren
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files

' alle definierten Files ansprechen
For Each f1 In fc
Name = f1.Name

' Bedingung, dass CSV-Datei
If Right(Name, 3) = "csv" Then
Name = folderspec + Name

' Mappe öffnen
Workbooks.Open (Name)
Range("B5:C530").Select
Selection.Copy
Workbooks(1).Activate
Tabelle1.Range("B1").Select
ActiveSheet.Paste
End If
Next

Er öffnet also auch auf diesem PC die Quelldatei korrekt, markiert das Ziel, kopiert es, scheint aber dann nicht die Zieldatei zu erkennen. Hat jemand eine Idee, warum er das auf dem einen PC kann, auf dem anderen aber nicht?
Bin über jeden Tip Sehr dankbar. Lg Stefan

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot Erkennen einer Range?
 19.05.2006 14:40:51 John26_de
NotSolved
20.05.2006 08:17:35 schnolli
NotSolved
26.05.2006 16:28:29 Stefan
NotSolved