Ich habe aus einer Buchführung einen Teil ausgedruckt. Nun komme ich weder an die Datei, die noch besteht und unter Druckvorschau zu sehen ist, nicht mehr heran. Dasselbe gilt für andere Excel-Dateien. Keine läßt sich mehr allgemein öffnen. Was kann ich tun bei Excel 2003?

Munteres Moin moin in die Runde, Ich hatte mir von der Seite des Computerwissen Clubs die Excel-Datei „Termin Export.xla“ heruntergeladen, um Bereiche des Outlook-Kalenders in eine Exceltabelle zu exportieren. Leider scheint diese Datei nur für 32 bit Systeme ausgelegt zu sein, denn ich erhalte jedes Mal beim Öffnen folgende Fehlermeldung: „Fehler beim Kombilieren: Der Code in diesem Projekt muss für die Verwendung auf 64-bit Systemen aktualisiert werden. Überarbeiten und aktualisieren Sie Declare-Anweisungen, und markieren Sie sie mit dem Ptrsafe Attribut.“ Leider für mich nur Kauderwelsch. Falls mir jmd. helfen könnte wäre ich sehr dankbar. In Verwendung: Outlook 2013 Windows 7 64 bit beste Grüße und herzlichen Dank vorab. Stephan Hier der Quelltext: ´ ´(C) Martin Althaus 2004 ´ Declare Function GetWindowsDirectoryA Lib „KERNEL32“ (ByVal Puffer As String, ByVal groesse As Integer) As Integer Declare Function GetWindowsDirectory Lib „KERNEL32“ (ByVal Puffer As String, ByVal groesse As Integer) As Integer Private Declare Function ShellExecute Lib „shell32.dll“ Alias „ShellExecuteA“ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Public Type PfadTyp hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Declare Function SHGetPathFromIDList Lib „shell32.dll“ Alias „SHGetPathFromIDListA“ (ByVal pidl As Long, ByVal pszPath As String) As Long Declare Function SHBrowseForFolder Lib „shell32.dll“ Alias „SHBrowseForFolderA“ (lpBrowseInfo As PfadTyp) As Long Public Declare Function FindFirstFile Lib „KERNEL32“ Alias „FindFirstFileA“ _ (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Public Declare Function FileTimeToSystemTime Lib „KERNEL32“ _ (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long Declare Function FileTimeToLocalFileTime Lib „KERNEL32“ _ (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long Public Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Public Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Long End Type Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type Sub WebSiteAufrufen(Url As String) On Error Resume Next ShellExecute 0&, vbNullString, Url, vbNullString, vbNullString, vbNormalFocus On Error GoTo 0 End Sub Function WaehleVerzeichnis(Optional Meldung) As String On Error Resume Next Dim bInfo As PfadTyp Dim path As String Dim r As Long, x As Long, pos As Integer bInfo.pidlRoot = 0& If IsMissing(Meldung) Then bInfo.lpszTitle = „Wählen Sie einen Archivierungspfad:“ Else bInfo.lpszTitle = Meldung End If bInfo.ulFlags = &H1 x = SHBrowseForFolder(bInfo) path = Space$(512) r = SHGetPathFromIDList(ByVal x, ByVal path) If r Then pos = InStr(path, Chr$(0)) WaehleVerzeichnis = Left(path, pos – 1) Else WaehleVerzeichnis = „“ End If On Error GoTo 0 End Function Sub auto_open() On Error Resume Next MenuBars(xlWorksheet).Menus(4).MenuItems.Add OnAction:=“TermineEinfuegen“, Caption:=“Outlook-&Termine als Liste importieren“ On Error GoTo 0 End Sub Sub auto_close() On Error Resume Next MenuBars(xlWorksheet).Menus(4).MenuItems(„Outlook-Termine als Liste importieren“).Delete On Error GoTo 0 End Sub Sub TermineEinfuegen() On Error Resume Next UserForm1.Label7.Caption = „Startdatum für den Import: (nicht festgelegt)“ UserForm1.Label8.Caption = „Enddatum für den Import: (nicht festgelegt)“ UserForm1.Show On Error GoTo 0 End Sub Sub Lesen() On Error Resume Next Dim oOL As Object Dim myitem As Object Dim oEntry As Object Dim iCounter, startzeile, anzahl, canzahl, i, j, tzaehler As Integer Dim datum, betreff, ort, beginn, ende, ganztaegigeinaus, erinnerungeinaus, erinnerungszeitpunkt, importieren As Boolean Dim bln, zesp As Boolean Dim Bereich As Range Dim tw, tw2, ne As Worksheet ´UserForm1.Hide bln = Application.DisplayStatusBar Application.DisplayStatusBar = True Application.ScreenUpdating = False Set oOL = CreateObject(„Outlook.Application“) Set tw = ThisWorkbook.Worksheets(1) If UserForm1.OptionButton1 = True Then Set ne = ActiveWorkbook.Worksheets.Add Else Set ne = Workbooks.Add.Worksheets(1) End If i = 1 With UserForm1 If .CheckBox1 = True Then datum = True ne.Cells(1, i).Formula = „Datum“ i = i + 1 Else datum = False End If If .CheckBox4 = True Then betreff = True ne.Cells(1, i).Formula = „Betreff“ i = i + 1 Else betreff = False End If If .CheckBox5 = True Then ort = True ne.Cells(1, i).Formula = „Ort“ i = i + 1 Else ort = False End If If .CheckBox7 = True Then beginn = True ne.Cells(1, i).Formula = „Beginn“ i = i + 1 Else beginn = False End If If .CheckBox6 = True Then ende = True ne.Cells(1, i).Formula = „Ende“ i = i + 1 Else ende = False End If If .CheckBox8 = True Then ganztaegigeinaus = True ne.Cells(1, i).Formula = „Ganztägig Ein/Aus“ i = i + 1 Else ganztaegigeinaus = False End If If .CheckBox3 = True Then erinnerungeinaus = True ne.Cells(1, i).Formula = „Erinnerung Ein/Aus“ i = i + 1 Else erinnerungeinaus = False End If If .CheckBox2 = True Then erinnerungszeitpunkt = True ne.Cells(1, i).Formula = „Erinnerungszeitpunkt“ i = i + 1 Else erinnerungszeitpunkt = False End If End With With ThisWorkbook.Worksheets(1) .Range(„e16“).Formula = UserForm1.Label7.Caption .Range(„e17“).Formula = UserForm1.Label8.Caption End With Set myNamespace = oOL.GetNamespace(„MAPI“) Set mytermine = myNamespace.GetDefaultFolder(9).items ´olfoldercalendar canzahl = mytermine.Count i = 2 For j = 1 To canzahl ThisWorkbook.Worksheets(1).Range(„a1“) = mytermine(j).Start If ThisWorkbook.Worksheets(1).Range(„e8“).Value = True Then ´Termin liegt im Bereich? importieren = False If UserForm1.OptionButton10 = True Then importieren = True If (UserForm1.OptionButton7 = True) And (mytermine(j).reminderset = True) Then importieren = True If (UserForm1.OptionButton8 = True) And (mytermine(j).reminderset = False) Then importieren = True If importieren = True Then importieren = False If UserForm1.OptionButton9 = True Then importieren = True If (UserForm1.OptionButton5 = True) And (mytermine(j).alldayevent = True) Then importieren = True If (UserForm1.OptionButton6 = True) And (mytermine(j).alldayevent = False) Then importieren = True End If If importieren Then k = 1 If datum Then ne.Cells(i, k).Formula = tw.Range(„a4“).Value k = k + 1 End If If betreff Then ne.Cells(i, k).Formula = mytermine(j).Subject k = k + 1 End If If ort Then If mytermine(j).Location = „“ Then ne.Cells(i, k).Formula = „(kein)“ Else ne.Cells(i, k).Formula = mytermine(j).Location End If k = k + 1 End If If beginn Then ne.Cells(i, k).Formula = tw.Range(„a5“).Text k = k + 1 End If If ende Then tw.Range(„e10“).Value = mytermine(j).Duration ne.Cells(i, k).Formula = tw.Range(„e12“).Text k = k + 1 End If If ganztaegigeinaus Then ne.Cells(i, k).Formula = mytermine(j).alldayevent k = k + 1 End If If erinnerungeinaus Then ne.Cells(i, k).Formula = mytermine(j).reminderset k = k + 1 End If If erinnerungszeitpunkt Then If mytermine(j).reminderset = True Then tw.Range(„e10“).Value = mytermine(j).reminderminutesbeforestart ne.Cells(i, k).Formula = tw.Range(„e13“).Text End If k = k + 1 End If i = i + 1 End If End If Next j ne.Cells(1, 1).EntireRow.Font.Bold = True ne.Activate ne.Range(„a1“).Select Selection.AutoFilter For j = 1 To k – 1 ne.Cells(1, j).EntireColumn.AutoFit Next j ne.Range(Cells(1, 1), Cells(i – 1)).Sort Key1:=Range(„A2“), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Set oOL = Nothing Application.StatusBar = False Application.DisplayStatusBar = bln Application.ScreenUpdating = True ´ UserForm1.Hide On Error GoTo 0 End Sub

Warum funktioniert in Excel oder in Calc eine Formel die auf einen Text in einer anderen Tabelle verweist plötzlich nicht mehr, während der Verweis auf ein Zahlenfeld weiterhin funktioniert?

erstmal ein frohes neues jahr. meine frage– ich arbeite seit kurzem mit Excel- tabellen-tageszettel 🙁 🙁 Monat für Monat.habe dies bis dato manuell gemacht. jan febr märz- je vom 1ten bis 31ten usw. habe gottseidank bei ihnen eine makroformel gefunden die mir das doch etwas erleichtert.doch noch nicht ganz funktioniert. mit der formel (tabellenblatt mit Datum- geht nur aktuell datum also jetzt januar) ok,aber ich möchte schon vorarbeiten für das ganze jahr.Monat für Monat.- .gibts da auch eine formel die ich in mein makro eingeben kann?? oder die sie mir senden können zum kopieren?? für eine antwort wär ich doch dankbar. lg ilka

Gibt es ein auf Linux basiserendes Programm mit dem ich die gleiche Anwednungen durchführen kann wie mit Excel-Add-in PowerPivot auf Excel 2010 oder 2013? Gruß Frank J. Kontz

In einer Exel-Datei, die aus mehreren Blättern besteht, die miteinander verknüpft sind, also in Blatt 1 erfolgt die Dateneingabe, die anderen Blätter sind sozusagen passiv. Beim Umformatieren habe ich ein grafisches Objekt entdeckt (Rectangle). In Blatt 1 konnte ich das Objekt löschen, in den anderen Blättern war dies nicht möglich. Es entsteht bei jedem löschen neu. Da Problem habe ich gelöst, indem ich die Blätter komplett gelöscht und neu formatiert habe. Trotzdem würde es mich interessieren, wie diese Figur entstanden ist und vor allem, wie man dies wieder ggf. löschen kann.

Ich habe seit einiger Zeit Probleme mit dem Öfnnen von EXCEL und auch von vorhandenen EXCEL-Dateien. Ich benutze die Version 2003, die ich zusammen mit WORD und PUBLISHER von einer seinerzeit gekauften CD installiert habe und die auch auf WINDOWS 7 – 64 bit – Version funktioniern. WORD und PUBLISHER lassen sich normal durch Doppelklick öffnen auch die damit hergestellten Dateien, nur bei EXCEL und EXCEL-Dateien treten die Schwierigkeiten auf. Wenn die Dateien dann offen sind, läuft alles wie gewohnt. Ich habe die erscheinenden Anzeigen auf dem Anhang dargestellt und beschrieben. Vielleicht liegt es einfach daran, dass das Zertifikat erneuert werden müsste, ich weiß aber nicht, wie das zu machen wäre, durch Reparatur oder Neuinstallation ist das offensichtlich nicht möglich, das habe ich schon versucht.

Ich habe einen Kontoauszug meiner Bank in Excel kopiert. Leider fängt sie für den Monat 09 mit dem 30ten an. Ich habe versucht über sortieren den Monatsanfang nach oben zu stellen. Leider stimmen dann die Saldozahlen nicht mehr. wer kann mir helfen, eine fehlerfreie Sortierung zu erstenn. Danke

Excel 2007 konfiguriert bei jedem Start. Wie kann ich das abstellen?

Sehr geehrter Herren. die Excel-Tabelle ist plötzlich verschwunden. Im Papierkorb ist sie nicht. In der Liste am Bildschirm sind die Dateien aufgeführt. Wenn ich eine Datei aufrufen will, erscheint die Meldung, dass diese nicht zu finden ist. Was ist zu tun ? die Tabelle mit den Daten muß doch noch vorhanden sein ? Ich bitte um Ihre Hilfe . Danke ! Carl-Ernst Arp Kd-Nr. 82-oo5202-07

ich habe folgendes Excel-Problem: Ich will eine Urlaubsplanung für 45 Mitarbeiter aus 4 Bereichen (für jeden Bereich soll es dann eine weitere Tabelle geben) erstellen. In Tabelle 1 sollen für alle 45 Mitarbeiter eingetragen werden: Urlaub, Gleitzeit, Seminar, Bildungsurlaub, Dienstreise, Feiertage Geplant ist in Spalte B das Datum, ab Spalte C sollen jeweils die Namen der Mitarbeiter (C3 = Name, C2 = Bereich, C1 = Unterbereich), nächster Name in Spalte D usw. Gepflegt werden soll nur Tabelle 1, wobei die Eingabe z. B. U, GZ usw. aus Tabelle 1 in die jeweiligen Bereichstabellen 2 ,3,4,5 (De3finitionn über C2, D2 … ) automatisch übertragen werden sollen. Würde es auch funktionieren, statt z. B. U eine Farbe einzugeben? (Evtl. mit Wenn – dann, oder komfortabler über S-Verweis?) Es wäre gut, wenn die Jahres-Daten in Spalte B sich einfach durch ändern der Jahreszahl aktualisieren würden und auch die Wochenenden farblich markiert werden würden. Ich hoffe, ich habe mich verständlich ausgedrückt und kann das leidige Thema dank Ihrer Hilfe bald als endlich erledigt ansehen.