Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
per Makro pro Datei Aufgaben ausführen
zurück: Zellen mit variablen Werten nach unten springen weiter: Textdatei erstellen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
stebo69
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Feb 2012, 13:11
Rufname:

per Makro pro Datei Aufgaben ausführen - per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Hallo Forumgemeinde,

vermutlich wieder für Einige "Kinderkrams", für mich aber nicht, da ich kein Programmierer bin.

in Spalte A meiner Exceltabelle stehen Dateinamen anderer Exceldateien,
in Spalte B stehen untereinander die Aufgaben, in Spalte C, ob die Aufgabe ausgeführt werden soll, oder nicht.

A B C
datei1.xls Aufgabe1
Aufgabe2 nicht aktiv

datei2.xls Aufgabe1 nicht aktiv

datei3.xls Aufgabe1
Aufgabe2 nicht aktiv
Aufgabe3
...

*** ENDE ***
(siehe beigefügtes Attachment)

Nach jeder Datei mit seinen Aufgaben - ich nenne das mal Dateiblock - befindet sich eine Leerzeile. Könnte aber beim Erstellen auch weggelassen werden.
Am Ende der Auflistung in Spalte A steht ein *** ENDE ***, könnte auch weggelassen werden....

Das Makro soll nun die entsprechende Datei öffnen, die Aufgaben ausführen, welche aktiv sind, die Datei speichern, schliessen und nächste Datei öffnen....

Sicherlich irgendwas mit For each.... next oder Do... loop, oder so.
Bastele da schon seit 2 Tagem rum, aber mir fehlt da die "Eingebung" (bin halt zu blöd dazu...) ;)

Wäre nett, von Jemanden einen Ansatz zu bekommen...

Vielen Dank & viele Grüße,
Stefan



ScreenShot025.jpg
 Beschreibung:
Beispiel
 Dateigröße:  80.29 KB
 Angeschaut:  215 mal

ScreenShot025.jpg


Phelan XLPH
Fortgeschritten


Verfasst am:
27. Feb 2012, 14:26
Rufname: Phelan


AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Zitat:
Das Makro soll nun die entsprechende Datei öffnen, die Aufgaben ausführen, welche aktiv sind, die Datei speichern, schliessen und nächste Datei öffnen....


und wie soll das aussehen?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
stebo69
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Feb 2012, 14:50
Rufname:

AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Hallo Phelan,

Vielleicht erinnerst du dich an meine Anfrage, wie man die in einem Exceldokument verwendeten Farbranges ermitteln kann?

In einerm ersten Teil des Makros werden die Farbranges aller Exceldateie eines angegebenen Verzeichnisses ermittelt. Die gewonnene Infomration (Farbe & Bereich) werden in der Spalte 'Aufgabe' ausgegeben. Das funktionert dank Hilfe dieses Forums auch.

die Aufgabe des Makros besteht also darin, geänderte Farbwerte in den angegebenen Bereich der Exceldateien zurückzuschreiben. Die geänderten Farbwerte werden in Spalte C hinterlegt.
(Spalte B = Quellfarbe / Spalte C = Zielfarbe)
Nicht geänderte Farbwerte soll er nicht zurückschreiben (das war mit 'nicht aktiv' gemeint)

Ich hoffe, meine Beschreibung ist einigermassen nachvollziehbar.

Vielen Dank & viele Grüße,
Stefan



ScreenShot001.jpg
 Beschreibung:
bsp
 Dateigröße:  100.42 KB
 Angeschaut:  198 mal

ScreenShot001.jpg


Phelan XLPH
Fortgeschritten


Verfasst am:
27. Feb 2012, 14:57
Rufname: Phelan

AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

ok, was ist da jetzt 'nicht aktiv'?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
stebo69
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Feb 2012, 15:28
Rufname:


AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Hallo Phelan,

vergiss das 'nicht aktiv'. Das Makro soll einfach an der Stelle 'nichts tun', wenn Zielfarbe nicht geändert (also Zielfarbe = Quellfarbe) oder wenn Zielfarbe = 16777215 (keine Farbe)

Gruß
Stefan
Phelan XLPH
Fortgeschritten


Verfasst am:
27. Feb 2012, 15:33
Rufname: Phelan

AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Gibt es pro datei nur 1 Blatt?

meld moch heut abend wieder... Smile

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
stebo69
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Feb 2012, 15:46
Rufname:

AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Hallo Phelan,

danke noch mal! Ja, es gibt pro Datei nur 1 Tabellenblatt.

viele Grüße,
Stefan
Phelan XLPH
Fortgeschritten


Verfasst am:
27. Feb 2012, 19:41
Rufname: Phelan

AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Hallo,

versuchs hiermit:

Code:
Sub x()
    Dim i As Long
    Dim wb As Workbook
    Dim sPfad As String
    Dim sDatei As String
   
    With Tabelle1
        sPfad = .Cells(3, 7).Text & "\"
       
        For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
            If .Cells(i, 2).Interior.Color <> .Cells(i, 4).Interior.Color Then
           
                If .Cells(i, 1) <> "" Then
                    sDatei = .Cells(i, 1)
                    If Not wb Is Nothing Then
                        wb.Close 0
                        Set wb = Nothing
                    End If
                End If
               
                If Dir(sPfad & sDatei) = "" Then
                   MsgBox "Datei-Pfad: [" & sPfad & sDatei & "] existiert nicht!", , "Info"
                Else
                    If wb Is Nothing Then Set wb = Workbooks.Open(sPfad & sDatei, 0)
                    wb.Woksheets(1).Range(.Cells(i, 3)).Interior.Color = .Cells(i, 4).Interior.Color
                End If
           
            End If
        Next
       
        If Not wb Is Nothing Then
            wb.Close 0
            Set wb = Nothing
        End If
       
    End With
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
stebo69
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2012, 16:23
Rufname:


AW: per Makro pro Datei Aufgaben ausführen - AW: per Makro pro Datei Aufgaben ausführen

Nach oben
       Version: Office 2010

Hallo Phelan,

sorry für die verspätete Antwort, aber ich konnte deinen VBA-Script erst jetzt testen. Und was soll ich sagen.... Es funktioniert... wunderbar. Ganau was ich gesucht hab.

Vielen vielen Dank dafür!

Gruß Stefan
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Tabellenwert aus einem anderen Register/Datei auslesen 7 rekrut 4303 24. Apr 2014, 13:01
steve1da Tabellenwert aus einem anderen Register/Datei auslesen
Keine neuen Beiträge Excel Formeln: Wenn Formel nur ausführen, wenn Bedingung erfüllt 14 tomate 1990 19. Feb 2006, 05:11
tomate Wenn Formel nur ausführen, wenn Bedingung erfüllt
Keine neuen Beiträge Excel Formeln: externe datei durch variablen verknüpfen 3 kai roman 740 07. Dez 2005, 17:48
ae externe datei durch variablen verknüpfen
Keine neuen Beiträge Excel Formeln: Daten per Button kopieren 4 Gast 1462 16. Nov 2005, 20:38
etron795 Daten per Button kopieren
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Wer kann mir ein Makro erstellen?????? wäre echt nett 1 jvakleve61 2456 28. Okt 2005, 05:55
ae Wer kann mir ein Makro erstellen?????? wäre echt nett
Keine neuen Beiträge Excel Formeln: Shortcuts ändern oder in ein Makro einbinden? 0 Tobstar 5683 10. Okt 2005, 18:34
Tobstar Shortcuts ändern oder in ein Makro einbinden?
Keine neuen Beiträge Excel Formeln: Farbige Zelle per Funktion abfragbar? 1 vize 725 04. Sep 2005, 18:43
fl618 Farbige Zelle per Funktion abfragbar?
Keine neuen Beiträge Excel Formeln: 2 xls Datei Wert aus der auslesen 4 Gast 727 27. Jul 2005, 21:35
ae 2 xls Datei Wert aus der auslesen
Keine neuen Beiträge Excel Formeln: SVERWEIS auf externe Datei mit variablen Blattnamen 6 Bia74 1517 04. Jul 2005, 19:28
fl618 SVERWEIS auf externe Datei mit variablen Blattnamen
Keine neuen Beiträge Excel Formeln: Makro einbinden 1 danyboy 856 03. Jun 2005, 15:50
fl618 Makro einbinden
Keine neuen Beiträge Excel Formeln: Formel oder Makro??? 4 Karlito 1259 16. Mai 2005, 13:10
Gast Formel oder Makro???
Keine neuen Beiträge Excel Formeln: Berechnung von Ausgaben per Monat und per Kategorie 2 Markus54 1048 10. Mai 2005, 15:12
Markus54 Berechnung von Ausgaben per Monat und per Kategorie
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum