Supportnet / Forum / Tabellenkalkulation
Makro über mehrere Dateien
Frage
Hallo!
Ich habe einen Ordner mit mehreren Excel-Dateien. Der Aufbau der Dateien ist immer gleich nur der Inhalt der Zellen variiert.
Nun möchte ich mir das z.B. die Zellen B3:E9 in allen Dateien auf Fett und Schriftgröße 18 formatiert werden.
Da mir das manuelle Ändern der Formatierung bei der Vielzahl von Dateien zu zeitaufwendig ist, habe ich mir gedacht, das man das doch auch mit einem Makro bewerkstelligen könnte.
Meine Frage also: Wie könnte so ein Makro aussehen und wie muss ich es starten? (Einfach irgendeine Exceldatei aufmachen?)
Habe leider nur Grundkenntnisse in VBA.
gruß
ocin_letreo
Antwort 1 von Saarbauer
Hallo,
zeichne ein entsprechendes Makro auf und dan kannst du es in allen geöffneten Tabellen verwenden.
Gruß
Helmt
zeichne ein entsprechendes Makro auf und dan kannst du es in allen geöffneten Tabellen verwenden.
Gruß
Helmt
Antwort 2 von schnallgonz
N´abend, da ist vielleicht noch folgendes zu ergänzen:
Wenn Du ein Makro aufzeichnest, das später allen Dateien zur Verfügung stehen soll, musst Du als Speicherziel wählen:
persönliche Makro-Arbeitsmappe = PERSONL.XLS
falls noch nicht vorhanden, legt Excel sie beim ersten Aufzeichnen an. Die Makros in dieser Datei stehen Dir in allen Dateien zur Verfügung, sie ist ausgeblendet und muss zur Bearbeitung eingeblendet werden.
Das und alles weitere, um Dein Makros einen Button zuzuweisen findest Du sehr schön erklärt auf der HP von Coros
www.excelbeispiele.de
unter Anleitungen, in Deinem Fall Nr. 4, 7 und 9
MfG
schnallgonz
Wenn Du ein Makro aufzeichnest, das später allen Dateien zur Verfügung stehen soll, musst Du als Speicherziel wählen:
persönliche Makro-Arbeitsmappe = PERSONL.XLS
falls noch nicht vorhanden, legt Excel sie beim ersten Aufzeichnen an. Die Makros in dieser Datei stehen Dir in allen Dateien zur Verfügung, sie ist ausgeblendet und muss zur Bearbeitung eingeblendet werden.
Das und alles weitere, um Dein Makros einen Button zuzuweisen findest Du sehr schön erklärt auf der HP von Coros
www.excelbeispiele.de
unter Anleitungen, in Deinem Fall Nr. 4, 7 und 9
MfG
schnallgonz
Antwort 3 von nighty
hi all :))
wie gewünscht :)))
gruss zardoz
Sub makro01()
Application.DisplayAlerts = False
Dim zaehler1 As Integer
With Application.FileSearch
.NewSearch
.LookIn = "C:\test3\"
.SearchSubFolders = False
.Filename = "*.*"
If .Execute() > 0 Then
For zaehler1 = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(zaehler1)
With Workbooks(2).Sheets(1).Range("B3:E9 ").Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Workbooks(2).Save
Workbooks(2).Close
Next zaehler1
End If
End With
Application.DisplayAlerts = True
End Sub
wie gewünscht :)))
gruss zardoz
Sub makro01()
Application.DisplayAlerts = False
Dim zaehler1 As Integer
With Application.FileSearch
.NewSearch
.LookIn = "C:\test3\"
.SearchSubFolders = False
.Filename = "*.*"
If .Execute() > 0 Then
For zaehler1 = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(zaehler1)
With Workbooks(2).Sheets(1).Range("B3:E9 ").Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Workbooks(2).Save
Workbooks(2).Close
Next zaehler1
End If
End With
Application.DisplayAlerts = True
End Sub
Antwort 4 von nighty
hi all :))
gruss nighty natuerlich grrr
wirrkopf laesst gruessen
gruss nighty :))
gruss nighty natuerlich grrr
wirrkopf laesst gruessen
gruss nighty :))
Antwort 5 von ocin_letreo
@nighty
Genau das habe ich gesucht. Ich danke dir tausend Mal.
1,2,3 ... 1000 Dank. ;-)
gruß
Nico
Genau das habe ich gesucht. Ich danke dir tausend Mal.
1,2,3 ... 1000 Dank. ;-)
gruß
Nico