Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makrofehler bei speichern

Forumthread: Makrofehler bei speichern

Makrofehler bei speichern
22.11.2004 13:01:35
SteffenS
Ich brauche bitte Eure Hilfe!
Und zwar habe ich folgenden Code:
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.FullName &lt&gt ThisWorkbook.FullName Then
Select Case Left(wkb.FullName, InStrRev(wkb.FullName, "\"))
Case Is = ThisWorkbook.path & "\"
If Not wkb.Saved Then wkb.Save
wkb.Close
Case Is = ThisWorkbook.path & "\Transfer\"
If Not wkb.Saved Then wkb.Save
wkb.Close
End Select
End If
Dieser funktioniert auch ab Excel 2000 wunderbar.
Bei Excel 97 habe ich das Problem, dass bei der Zeile
InStrRev(wkb.FullName, "\"))
ein Fehler kommt.
Es wird das Objekt: InStrRev markiert.
Was muss ich tun um den Fehler zu vermeiden?
Danke Euch schonmal
Steffen Schmerler
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makrofehler bei speichern
ypsilon
hi Steffen,
InStrRev gabs in '97 noch nicht
das musst du ein wenig umbauen
cu Micha
wie bekomm ich dies hin....
22.11.2004 13:43:09
SteffenS
ich weiss leider nicht wie?
Danke
Steffen
AW: wie bekomm ich dies hin....
u_
Hallo,
For...Next-Schleife rückwärts und Zeichen auf "\" testen.
Anzeige
AW: wie bekomm ich dies hin....
Ingolf
Hallo Steffen,
so vielleicht?

Sub Speichern()
Dim wkb As Workbook
Dim I1 As Integer
For Each wkb In Workbooks
For I1 = Len(wkb.FullName) To 1 Step -1
If Mid(wkb.FullName, I1, 1) = "\" Then Exit For
Next I1
If wkb.FullName <> ThisWorkbook.FullName Then
Select Case Left(wkb.FullName, I1)
Case Is = ThisWorkbook.Path & "\"
If Not wkb.Saved Then wkb.Save
wkb.Close
Case Is = ThisWorkbook.Path & "\Transfer\"
If Not wkb.Saved Then wkb.Save
wkb.Close
End Select
End If
End Sub

Gruß Ingolf
Anzeige
AW: wie bekomm ich dies hin....
u_
oder so:
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.FullName ThisWorkbook.FullName Then
Select Case wkb.Path
Case Is = ThisWorkbook.Path
If Not wkb.Saved Then wkb.Save
wkb.Close
Case Is = ThisWorkbook.Path & "\Transfer"
If Not wkb.Saved Then wkb.Save
wkb.Close
End Select
End If
Anzeige
VIELEN DANK...
23.11.2004 12:53:47
SteffenS
das ging so!
MFG
Steffen Schmerler
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige