Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einträge in Fußzeile links und rechts löschen?

Einträge in Fußzeile links und rechts löschen?
02.12.2007 19:41:52
Selma
Hallo Leute,
ich habe ca. 300 XLS-Dateien bei den ich die Einträge in Fußzeile links und rechts löschen möchte.
In Tabelle "reports" habe ich in Zelle A2:A305 die Dateien incl. Patch eingetragen, bei den die Einträge in Fußzeile links und rechts gelöscht werden sollen.
Beispiele:
A20 = c:\prj\2007\reports\Bestellverfolgung.xls
A21 = c:\prj\2006\eingang\vertragsunterlagen\Inhaltsverzeichnis.xls
Wie kann ich das am schnellsten erledigen?
Vielen Dank im Voraus.
Liebe Grüße
Selma

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einträge in Fußzeile links und rechts löschen?
02.12.2007 19:56:00
Daniel
HI
so: 

Sub fusszeile()
Dim Zelle As Range
Dim sh As Worksheet
For Each Zelle In Range("A2:A305")
Application.StatusBar = Zelle.Value
Workbooks.Open Zelle.Value
For Each sh In ActiveWorkbook
With sh.PageSetup
.LeftFooter = ""
.RightFooter = ""
End With
Next
ActiveWorkbook.Close savechanges:=True
Next
Application.StatusBar = False
End Sub


Gruß Daniel
ps. nicht getestet

AW: Einträge in Fußzeile links und rechts löschen?
02.12.2007 19:56:30
Josef
Hallo Selma,
probier mal.
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub selma()
Dim xlApp As Excel.Application
Dim objWB As Workbook
Dim objWS As Worksheet
Dim rng As Range

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.EnableEvents = False

For Each rng In ThisWorkbook.Sheets("reports").Range("A2:A305")
    If rng.Text <> "" Then
        If Dir(rng.Text) <> "" Then
            Set objWB = xlApp.Workbooks.Open(rng.Text)
            
            For Each objWS In objWB.Worksheets
                With objWS.PageSetup
                    .LeftFooter = ""
                    .RightFooter = ""
                End With
            Next
            
            objWB.Close True
        End If
    End If
Next

xlApp.Quit

Set xlApp = Nothing
Set objWB = Nothing
Set objWS = Nothing
End Sub

Gruß Sepp

Anzeige
Vielen Dank Daniel, vielen Dank Sepp!
02.12.2007 21:58:23
Selma
Vielen Dank Daniel, vielen Dank Sepp!
LG
Selma

309 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Formel, rechts #### bis leer Zeichen
mehmet

Hallo Forum,
in Zelle B2 habe ich z.B. "ABC 314 " stehen.
Nun möchte ich in Zelle D2 folgende String darstellen:
zähle von links vier Strings nach rechts "ABC "
mache aus "314 " nun eine vierstellige Zahl "0314 "
entferne die zwei Leerzeichen nach der Zahl "0314 ", so da...
16.09.2008 10:46:00
Thread-ID: 1009991
8 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
5
3
9
3
7
5
1
2
1
6
4
1
4
6
1
3
5
2
11
22
7
4
4