Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

1000 Excel Rechnung mit Logo, wie entferne ich alle auf einmal?

Frage Microsoft Microsoft Office

Mitglied: DieNudl

DieNudl (Level 1) - Jetzt verbinden

20.03.2007, aktualisiert 22.03.2007, 6255 Aufrufe, 2 Kommentare

Hallo Community,

habe folgendes Problem bei einem Kunden:

Der Kunde hat seit Jahren Rechnungen per Excel geschrieben, auf der Excel Tabelle befindet sich ein Logo das ca. 1,4 MB groß ist. Ja leider kein JPG sondern BMP. Jetzt muss man sich mal ausrechnen was der an Speicher braucht für die Rechnungen. Einfach Gigantisch. Nun meine Frage:

Kann ich irgendwie das Logo entfernen/löschen/ersetzen ohne jeweils die 1000 Rechnungen einzeln aufzumachen, das Logo zu löschen, speichern und die nächste Rechnung aufzumachen?

Gibt es dafür Programme, irgendwelche Hilfen?

Ihr merkt ich bin total verzweifelt *G Aber sowas hab ich noch nie erlebt...

Bis dann
Nudl
Mitglied: bastla
22.03.2007 um 14:28 Uhr
Hallo Nudl!

Um das Öffnen aller einzelnen Dateien wirst Du wohl nicht herumkommen - aber dafür gibt es ja VBA.

Unter der Annahme, dass für jede Rechnung eine eigene Datei im Ordner "D:\Rechnungen" existiert, könntest Du mit dem folgenden VBA-Code die jeweils erste Grafik der jeweils ersten Tabelle entfernen:
01.
Sub DelPic() 
02.
Const sSourcePath As String = "D:\Rechnungen" 
03.
Dim fso As Object, oFile As Object 
04.
Set fso = CreateObject("Scripting.FileSystemObject") 
05.
'Quell-Ordner durchsuchen 
06.
For Each oFile In fso.GetFolder(sSourcePath).Files 
07.
    'nur .xls-Dateien bearbeiten 
08.
    If LCase(Right(oFile.Name, 4)) = ".xls" Then 
09.
        Application.Workbooks.Open (oFile.Path) 
10.
        'Erste Grafik der ersten Tabelle löschen 
11.
        ActiveWorkbook.Worksheets(1).Shapes(1).Delete 
12.
        ActiveWorkbook.Save 
13.
        ActiveWorkbook.Close 
14.
    End If 
15.
Next 'Datei 
16.
MsgBox "Fertig." 
17.
End Sub
Zum Ausführen des Codes erstellst Du eine neue Excel-Datei (nicht im Ordner "D:\Rechnungen"). Nach einem Rechtsklick auf das Blattregister von "Tabelle1" kannst Du "Code anzeigen" wählen, was Dich in den VBA-Editor bringt. Im Code-Fenster fügst Du den VBA-Code ein und kannst ihn von hier aus starten.

Grüße
bastla
Bitte warten ..
Mitglied: DieNudl
22.03.2007 um 15:05 Uhr
hey danke ich werds gleich morgen ausprobieren und dir sagen obs funktioniert hat!
Bitte warten ..
Ähnliche Inhalte
Rechtliche Fragen
Marketingfrage zum Versand von Rechnungen (11)

Frage von StefanKittel zum Thema Rechtliche Fragen ...

Microsoft Office
gelöst Excel 2013: Formeln entfernen und Ergebnisse stehen lassen (2)

Frage von alhambra zum Thema Microsoft Office ...

JavaScript
Problem Bei JavaSkript Rechnung Division (5)

Frage von HattoriHanzo zum Thema JavaScript ...

Microsoft Office
Rechnungen in Word - zu lange Formel (2)

Frage von traller zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (19)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Windows Server
DC virtualisieren + wie sichern (SingleDC-Environment) (12)

Frage von KMUlife zum Thema Windows Server ...

Festplatten, SSD, Raid
RAID Controller mit Trim-Funktion, wie ermitteln (11)

Frage von pixel24 zum Thema Festplatten, SSD, Raid ...