[Gast]  Foren Programme Office Microsoft Office Sub Replace_From_List()

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag
Microsoft Office
1624
6235
29. Feb 2024, 08:40
mudelinchen
 

Sub Replace_From_List()

pixel66
Beiträge gesamt: 7
20. Jan 2018, 15:09
Beitrag # 1 von 4
Bewertung:
(2336 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo zusammen

Ich habe in einem Excel unterschiedliche Inhalte aus dem Explorer (Datei) und einer Datenbank (Prod-ID_alt) zusammengestellt.
Gesamthaft sind das gegen 4800 Dateien in 5 Tabellen.
Die Dateibezeichnungen sind nicht nach Wunsch und müssen umbenannt werde.
Ich möchte das im excel erledigen; so habe ich eine bessere Übersicht.

Gibt’s dazu ein Script? Konnte im Netz noch nichts funktionelles finden.

Ablauf:
Inhalt in Spalte A z.B. «DAS_100391.eps» in der Spalte B suchen.
Entsprechender Eintrag aus Spalte B «PRO_458244_001_DAS_100391.eps» in Spalte C kopieren.

Spalte A: Datei
Spalte B: Prod-ID_alt
Spalte C: Prod-ID_neu ergibt die neue Dateibezeichnung

Vielen Dank für eure Unterstützung

Peter
Anhang:
1.Mappe1.xlsx (9.55 KB)   1.Mappe1.png (36.6 KB)
X

Sub Replace_From_List()

Klaus79
Beiträge gesamt: 341
21. Jan 2018, 16:08
Beitrag # 2 von 4
Beitrag ID: #561966
Bewertung:
(2286 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Peter,
probier mal:

Code 
Sub ReplaceFromList() 
Dim i As Long 
Dim lastRow As Long 
Dim varSearch As Variant 
Dim rng As Range 
Dim rngSearch As Range 
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 
Set rngSearch = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row) 
 
Application.ScreenUpdating = False 
 
For i = 2 To lastRow 
    varSearch = Range("A" & i) 
    For Each rng In rngSearch 
        If InStr(rng, varSearch) > 0 Then 
            Range("C" & i) = rng.Value 
            Exit For 
        End If 
    Next rng 
Next i 
 
Set rng = Nothing 
Set rngSearch = Nothing 
 
End Sub

Klappt's?

Gruß
Klaus

als Antwort auf: [#561957]

Sub Replace_From_List()

pixel66
Beiträge gesamt: 7
21. Jan 2018, 17:07
Beitrag # 3 von 4
Beitrag ID: #561969
Bewertung:
(2279 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Klaus

Dein Script funktioniert tadellos.
Jetzt versuch ich mal den Code zu verstehen; Buch mit sieben Siegeln.

Vielleich brauche ich mal eine Anpassung.

Vielen herzlichen Dank dafür.
Einen schönen Sonntag und guten Wochenstart
Peter

als Antwort auf: [#561966]

Sub Replace_From_List()

Klaus79
Beiträge gesamt: 341
22. Jan 2018, 13:33
Beitrag # 4 von 4
Beitrag ID: #561980
Bewertung:
(2227 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Peter,

zum besseren Verständnis habe ich Dir mal den Code kommentiert.
Vielleicht bekommst Du dann eine evtl. Anpassung selber gemacht ...

Code 
Sub ReplaceFromList() 
 
'Deklarieren der Variablen: 
'Long für Zeilen 
'Variant für Suchwort 
'Range für Zelle und Zellbereiche 
 
Dim i As Long 
Dim lastRow As Long 
Dim varSearch As Variant 
Dim rng As Range 
Dim rngSearch As Range 
 
'Ermitteln der letzten Zeile von Spalte A 
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 
'Definieren des Suchbereichs in Spalte B: von Zeile 2 bis letzte Zeile Spalte B 
Set rngSearch = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row) 
 
'Bildschirmflackern ausschalten 
Application.ScreenUpdating = False 
 
'Die erste For-Next-Schleife durchsucht Spalte A nach dem 1. Suchwort, 
'beginnend bei Zeile 2 
For i = 2 To lastRow 
    'Das Suchwort in die Variable laden 
    varSearch = Range("A" & i) 
    'Mit der 2. For-Next-Schleife wird jede Zelle in Spalte B (rngSearch) beginnend 
    'von Zeile 2 bis Ende Spalte B auf das Suchwort (varSearch) untersucht 
    For Each rng In rngSearch 
        'Falls Suchwort gefunden ... 
        If InStr(rng, varSearch) > 0 Then 
            '... dann setze den Wert in Spalte C in die gleiche Zeile (i) wie das Suchwort ... 
            Range("C" & i) = rng.Value 
            '... und verlasse die innere Schleife ... 
            Exit For 
        'Ende der If-Anweisung 
        End If 
    '(Ende innere Schleife) 
    Next rng 
' ... und erhöhe die Variable i um 1 
'Dann gehe an den Anfang der ersten Schleife und lade 
'das nächste Suchwort in die Variable 
Next i 
 
'Die Range-Variablen zurücksetzen 
Set rng = Nothing 
Set rngSearch = Nothing 
 
End Sub

Gruß
Klaus

als Antwort auf: [#561969]
X

Aktuell

InDesign / Illustrator
axaio MadeToTag für Adobe InDesign 2024 verfügbar

| 12.10.2023

MTT_300x300_11_2022

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
14.05.2024
Einsparpotenziale in der Weiterverarbeitung

Online
Dienstag, 14. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Prozessoptimierung ist ein Teamsport! Keine Software und keine Maschine allein kann Ihnen helfen, die Effizienzpotenziale Ihres Betriebes maximal auszuschöpfen. Von der Auftragsannahme über die Vorstufe und den Druck bis hin zur Weiterverarbeitung – alles muss optimal ineinandergreifen. Apropos Weiterverarbeitung – in vielen Druckbetrieben fristet sie in Sachen Prozessoptimierung immer noch ein Schattendasein. Dabei liegen hier mittlerweile die größten Einsparpotenziale! In einem Webinar von Horizon und Impressed erfahren Sie, wie Sie diese Einsparungen realisieren können. Horizon, bekannt für innovative Lösungen in der Druckweiterverarbeitung, bietet mit iCE LiNK eine Workflowlösung für die Weiterverarbeitung. iCE LiNK überwacht, visualisiert und analysiert Produktionsabläufe und unterstützt bei der Wartung – damit immer alles reibungslos läuft. Den gleichen Anspruch hat der von Impressed entwickelte Impressed Workflow Server – er ist die smarte PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt. Im Webinar zeigen Ihnen die Experten von Horizon und Impressed, wie beide Lösungen im Team die Effizienz und Produktivität Ihres Betriebes steigern können. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Ja

Organisator: Impressed / Horizon

https://www.impressed.de/schulung.php?c=sDetail&sid=327

Einsparpotenziale in der Weiterverarbeitung
Veranstaltungen
16.05.2024
Und es geht doch: Automatisierung im Großformatdruck!

Online
Donnerstag, 16. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Günther Business Solutions und Impressed treten in einem Webinar den Gegenbeweis an. Experten beider Unternehmen zeigen, wie Großformatdrucker vom Einsatz zweier bewährter Lösungen profitieren können: • von advanter print+sign von Günther Business Solutions, dem ERP-System für den Großformatdruck, dass alle Phasen der Wertschöpfung im Large Format Printing abdeckt • von Impressed Workflow Server, der smarten PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt Über die Kombination beider Lösungen können Großformatdrucker ihre Prozesse mit modernen Workflows Schritt für Schritt automatisieren – und so zügig deutliche Zeit- und Kosteneinsparungen realisieren. Das Webinar sollten Sie sich nicht entgehen lassen – damit Sie keine Effizienzpotenziale mehr liegen lassen. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Nein

Organisator: Impressed / Günther Business Solutions

https://www.impressed.de/schulung.php?c=sDetail&sid=326

Und es geht doch: Automatisierung im Großformatdruck!
Weitere Events

Neuste Foreneinträge


Switch/PitStop: Sprachdatei vom Report ändern

Mit Preflight Registerfarbe ALL nach Grau konvertieren geht nicht

Absatzsetzer in CC24 ME lösen Probleme aus

Quark Objekte lassen sich nicht neben Layout ziehen.

Barrierefreie PDFs | Mögliche unangebrachte Verwendung des Strukturelements xy

Barrierefreiheit in indesign 2022: figure-Tags haben als Attributobjekt "block" statt "inline"?

Kontrollkästchen in PDF-Formular

Indesign Tabelle ausrichten

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

InDesign 19.2 konvertiert 19.3-Dateien beim Öffnen ungefragt
medienjobs
Weitere Stellenangebote