Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro von 2003 auf 2007´geht nicht mehr

Forumthread: Makro von 2003 auf 2007´geht nicht mehr

Makro von 2003 auf 2007´geht nicht mehr
2003
Hallo Zusammen,
ich hatte mir unter Excel 2003 ein Makro zusammengebaut, dass jetzt nach dem Umstieg auf 2007 nicht mehr funktioniert. Ich hoffe, ihr könnt mir einen Tipp geben, woran das liegt.
Anbei der Code: 

Sub Daten()
Dim strDateien(44) As String
Dim i As Long
ThisWorkbook.Sheets("EVN").Cells.Clear
strDateien(1) = "D:\Telefon\T-Mobile\Daten_2011_11\EVN_
strDateien(2) = "D:\Telefon\T-Mobile\Daten_2011_11\EVN_
( die anderen 42 Dateien habe ich rausgelöscht )
For i = 1 To 44
Workbooks.Open strDateien(i), ReadOnly:=True

Anzeige
Fehlermeldung? owT
25.05.2012 10:53:12
Rudi
AW: Makro von 2003 auf 2007´geht nicht mehr
25.05.2012 10:58:47
2003
Hallo,
ich kann da kein Syntax-Fehler entdecken.
Ein Test mit hier vorhandenen Dateien brachte kein Debug.
Die Dateien sind alle noch an der gleichen Stelle?
Willst du ALLE Dateien einlesen, die in einem Verzeichnis liegen?
Denn lässt sich das mit einer Schleife besser bewerkstelligen als 44 einzelne Dateien anzugeben.
Die Dateien sind bestimmt nach bestimmten (gleichen) Kriterien benannt.
Gruß Ralf
Anzeige
AW: Makro von 2003 auf 2007´geht nicht mehr
25.05.2012 11:59:09
2003
Hallo Ralf,
das war mein Fehler, ich habe das Verzeichnis Daten_2011_11 nicht geändert, da kann das ja nicht gehen.
Ich möchte aber deinen Lösungsansatz mit der Schleife hinterfragen. In dem Verzeichnis liegen von T-Mobile Einzelverbindungsnachweise, aber auch andere Dateien z.B. im PDF Format. Die Exel Dateien unterscheiden sich im Dateinamen in der Kartennr. von T-Mobile. Lässt sich das mit der Schleife bewerkstelligen, das nur die Exceldateien genommen werden, die mit EVN anfangen?
Danke und Gruß Gunter
Anzeige
AW: Makro von 2003 auf 2007´geht nicht mehr
25.05.2012 12:04:44
2003
Hallo,
nach diesem Schema: 
Sub aaa()
Dim sDatei As String, sPfad As String
sPfad = "D:\Telefon\T-Mobile\Daten_2011_11\"
sDatei = Dir(sPfad & "EVN_*.xls")
Do While sDatei  ""
Workbooks.Open sPfad & sDatei, ReadOnly:=True
'weiterer Code
Workbooks(sDatei).Close False
sDatei = Dir
Loop
End Sub

Gruß
Rudi
Anzeige
AW: Makro von 2003 auf 2007´geht nicht mehr
25.05.2012 13:07:00
2003
Hallo Gunter,
in Ergänzung zu Rudis Vorschlag meiner aus einem aktuellen Projekt von mir.
Um nicht immer das makro ändern zu müssen.
Sub DATEN_UEBERNAHME()
'übernahme der daten aus den dateien
'im unterverzeichnis
Dim Pfad As String          'pfad zu den rohdaten
Dim DN As String            'dateiname
Dim PfadDN As String            'pfad und dateiname der rohdaten
Jahr = InputBox("Welche Jahr soll ausgewertet werden?", , Year(Date))
Monat = InputBox("Welcher Monat soll ausgewertet werden? Format: MM", , Month(Date) - 1)
'falls der pfad immer gleich ist, ansonst kannst du auch eine inputbox hierfür machen
Pfad = "D:\Telefon\T-Mobile\Daten_" & format(jahr, "yyyy") & "_" format(monat, "00") & "\"
DN = Dir(Pfad)          'erste datei im verzeichnis ermitteln
Do
if dn ="" then msgbox "keine Datei im Pfad " & vblf & pfad & vblf & "vorhanden!",  _
vbexlamation
PfadDN = Pfad & DN
Workbooks.Open PfadDN, true                               'datei öffnen
'   dein code
Workbooks(DN).Close, false
DN = Dir()
Loop Until DN = ""
End Sub
Gruß Ralf
Anzeige
AW: Makro von 2003 auf 2007´geht nicht mehr
25.05.2012 13:12:08
2003
es fehlt noch was:
DN = Dir(Pfad & "EVN*.xls")
AW: Makro von 2003 auf 2007´geht nicht mehr
25.05.2012 14:00:40
2003
Hallo Ralf und Rudi,
vielen Dank für eure Vorschläge. Ich komme heute leider nicht mehr dazu diese VBA Codes
in meiner Datei auszuprobieren. Das werde ich dann nächste Woche.
Ich sage euch Danke und ein schönes Pfingstwochenende.
Gruß Gunter
Anzeige
;

Forumthreads zu verwandten Themen

Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
Stephan

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
25.01.2009 12:52:00
Thread-ID: 1043550
11 Beiträge
Tabelle läßt sich nicht mehr speichern
Judith


Hallo,
habe eine ziemlich große Excel Tabell (3,499KB) mit 10 tabellenblättern, in die ich jeden Monat Werte eintrage. Bis dato hat immer alles funktioniert. Seit heute läßt sie sich nicht mehr speichern. Die angehängte Fehlermeldung erscheint.
Hatte das Problem schon mal mit Exce...
10.03.2009 15:31:15
Thread-ID: 1058724
6 Beiträge
wenn Bild hinterlegt, geht nichts mehr (Userform)
Reinhard

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...
29.04.2009 08:10:29
Thread-ID: 1071763
4 Beiträge
PrintOut copies:= geht nicht mehr
Jupp

Hallo.
Ich habe vor längerer Zeit ein größeres Makro geschrieben, bei dem unter anderem bei einem Button-Klick entsprechende Seite gedruckt werden.
Meine User rufen das Makro aus einer xls via Terminal Server auf. Bisher war dies ein W2k3x86-Server mit Excel 2003 SP2. Nun habe ich neue...
11.05.2009 12:33:18
Thread-ID: 1074308
3 Beiträge
To-Do Liste Code funktioniert nicht mehr? Wieso?
Jessi

https://www.herber.de/bbs/user/62106.xls
Hallo zusammen,
die oben gelinkte Datei sollte eigentlich beim Drücken des "START-BUTTONS" eine E-Mail versenden, sofern die Deadline überschritten wurde. Irgendwie funktioniert nichts? Woran kann das liegen? Dieser Code lief vor 2 Monaten in ei...
28.05.2009 19:15:48
Thread-ID: 1078037
6 Beiträge
Anzeige
Kann Beiträge nicht mehr bestätigen
NoNet

Hallo @alle,
dies ist nur ein Test :
Ich kann meine Beiträge plötzlich nicht mehr absenden : Nach der Vorschau fehlt der "Absenden"-Button :-((
Gruß, NoNet
12.06.2009 21:33:11
Thread-ID: 1081185
12 Beiträge
Anzeige
Dropdown geht nicht mehr
stephan.schwander@wander.ch

Guten Tag zusammen,
in einer Tabelle von mir geht auf eimal der zellendropdown (Spalte G und H) nicht mehr.
Ich habe überhaupt keine Ahnung an was dies liegen kann?
Die Tabelle im Anhang ist ein Auszug einer komplexen Auswertung.
https://www.herber.de/bbs/user/62837.zip
Bes...
30.06.2009 13:26:59
Thread-ID: 1085347
4 Beiträge
Anzeige
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Anzeige
TreeView lange Einträge - Mausklick geht nicht
Alfons

Hallo,
in einem TreeView stehen einige Dateinamen die länger sind als das TreeView breit ist
und deshalb rechts nicht komplett angezeigt werden.
Bei Mausklick soll die Datei im WebBrowser1 angezeigt werden.
Das geht bei den langen Dateinamen nur dann wenn ich erst mit dem horizo...
28.07.2009 10:37:09
Thread-ID: 1091606
2 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Makro, das vorher ging, geht jetzt nicht mehr
diplingoec

Hallo,
ich hatte im Internet vor einiger Zeit ein Makro gefunden zum Auslesen von Google Ergebnissen.
Das funktionierte Prima. Jetzt kommt immer eine Fehlermeldung (Laufzeitfehler 1004) und ich habe keine Ahnung woran das liegen könnte.
Kurz zum Hintergrund: Ich möchte meine Recher...
15.09.2009 15:00:59
Thread-ID: 1102892
4 Beiträge
Makro geht nach Blattschutz nicht mehr
Reimund

Habe ein einfaches Makro, wo Zeilen ausgeblendet werden sollen wenn ein bestimmtes Wort in einer bestimmten Zelle steht.
Geht auch. Abr wenn ich den Blattschutz eingeschaltet habe geht´s nicht mehr. Und dann auch nicht wenn der Schutz wieder raus ist. Hängt schon im ersten Teil.
Hier bi...
23.09.2009 15:24:10
Thread-ID: 1104971
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige