Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

autom. Änderung Rasterwert (Muster)

autom. Änderung Rasterwert (Muster)
13.11.2004 13:49:13
Robert
Hallo Leute,
folgendes Problem:
ich muß bei über 200 Excelmappen in x-Zellen (variabel je Mappe) den vorhandenen
Rasterwert(Muster) auf einen anderen Wert (bei alle Wert gleich) ändern.
Hat jemand eine Idee ?
Vielen Dank für viele Anregungen.
Robert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: autom. Änderung Rasterwert (Muster)
ransi
hallo robert
liegen die dateien alle im selben verzeichniss?
sind die x-zellen in den dateien in verschiedenen blättern?
sind die rasterwerte mit der bedigten formatierung erstellt?
wie sind die werte von den vorhandenen rastern?
wie sind die werte von den rastern die gesetzt werden sollen?
hast du schreibberechtigung in den dateien?
wenn das alles bekannt ist, dann könnte es so gehn:
die erste schleife öffnet die datei,
die zweite öffnet ein blatt nach dem anderen in der datei,
die dritte sucht den rasterwert in den zellen und ersetzt ihn.
am besten lädst du mal 2 oder 3 KLEINE beispieldatein hoch.
ransi
Anzeige
AW: autom. Änderung Rasterwert (Muster)
Robert
Hi ransi,
ich kann die Dateien in ein Verzeichnis kopieren, habe volle Rechte.
Darf aber aus datenschutzgründen nur Testdatei zeigen.
siehe:
https://www.herber.de/bbs/user/13495.xls
Die Rasterausgangswerte sind immer gleich, Ergebnis muß auch immer gleich sein.
vielen Dank
AW: autom. Änderung Rasterwert (Muster)
Robert
noch offen
code
ransi


      
Hallo
versuchs mal mit diesem code und einer kopie von dem ordner
klappt aber nur wenn die patterns keine bedingten formatierungen sind.
ausserdem dürfen die datein selber und die blätter nicht geschützt sein.
Sub pattern_ersetzen()
      Dim i As Integer
      Dim datei
      Dim blatt As Worksheet
      Dim zelle As Range
With Application
      .ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
      .DisplayAlerts = False 'Alarmmeldungen ausschalten
End With
datei = Dir("Dein kompletter Pfad zu den dateien\*.xls")'hier noch den kompletten Pfad eingeben
For i = 1 To 300 'erste schleife
Workbooks.Open (datei)
      For Each blatt In Workbooks(datei).Worksheets 'zweite schleife
            For Each zelle In Range(Cells.SpecialCells(xlCellTypeLastCell), Cells(1.1)) 'dritte schleife
                  If zelle.Interior.Pattern = xlGray25 Then 'prüfung
                        If zelle.Interior.ColorIndex = 2 Then 'prüfung
                              If zelle.Interior.PatternColorIndex = 15 Then 'prüfung
                                    zelle.Interior.ColorIndex = 15 'ersetzen
                              End If
                        End If
                  End If
             Next
          Next
Workbooks(datei).Close savechanges:=True
datei = Dir
Next
With Application
      .DisplayAlerts = True
      .ScreenUpdating = True
End With
End Sub
Ransi 
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige