Hallo zusammen
Das Forum hat mir schon viel geholfen, jetzt meine erste aktive Frage:
Ich möchte hunderte Dateien von .xls auf das neue Format .xlsm konvertieren. (Weniger Speicherplatz und läuft schneller). Dies mache ich ganz einfach beim Einstieg über die Schaltfläche von Office / Konvertieren. (hab keine Lösung gefunden, die es mir erlaubt diesen Vorgang direkt in ein Makro zu integrieren, da der Makrorekorder immer den aktuellen Dateinamen aufzeichnet, was für mich unbrauchbar ist).
Der Einstieg in die Excel Datei erfolgt über einen Button mit Makro. Darin will ich eine Prüfung vornehmen, ob die Datei bereits auf das neue Format konvertiert worden ist. Wenn ja, läuft das Makro zur nächsten Prüfung weiter (welche funktioniert), wenn nein soll die Meldung "Datei zuerst konvertieren" erscheinen. Das Problem ist nun, dass diese Meldung immer erscheint, egal ob die Datei bereits konvertiert worden ist oder nicht.
Danke für eure Hilfe
Gruss Daniel
If Right(ThisWorkbook.Name, 5) = ".xlsm" Then
If Range("E12") = "update nicht aktuell!" Or Range("C38") <= 2 Then
MsgBox "Auftrag zuerst updaten!"
Else
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Application.DisplayFullScreen = True
Sheets("Auftragsübersicht").Select
Range("A1").Select
End If
Else
MsgBox ("Datei zuerst konvertieren")
End If
End Sub