Suchen in anderer Datei und wenn gefunden dann

Hallo zusammen,
und zwar habe ich folgende Situation.
Ich möchte in meiner Datei Spalte G22 bis G9999 den Maschinenstatus aus einer anderen Datei auslesen mitels Makro also nicht bei jedem öffnen.
Es ist folgendes bei mir in der Spalte G steht Ja oder Nein drin.
Er sollte also aus der Datei2 Tabellenblatt 2 mit dem Namen Delivered 2017 in spalte F1 bis F999 suchen ob die Seriennummer aus meiner Datei Spalte E22 bis E999 vorhanden ist.
Wenn diese Nummer dort vorhanden ist soll G für diese Zeile z.b. 22 auf Nein gestellt werden ansonsten auf Ja.
Es hat folgenden Hintergrund:
Ich mache die Qualitätssicherung in unserem Unternehmen und habe eine QS Liste wann ich welche Maschinen prüfe, um nicht zu sehr den Überblick zu verlieren trage ich im Moment von Hand ausgeliferte Maschinen auf den Status Nein um diese wegfiltern zu können. nur mittlerweile haben wir im Jahr 450 Maschinen im Unternehmen die Kommen und gehen daher hätte ich gernen einen VBA Code welchen ich ausführen kann und er somit die Spalte G aktualisiert und ich wieder filtern kann was aktuell in der firma steht.
Auf eine Hilfe würde ich mich sehr freuen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub JaNein() Dim TB, Pfad As String, Datei As String, Jahr As Integer Dim Blatt As String, Ext As String, RNG As Range 'Anpassen Set TB = ThisWorkbook.Sheets("Tabelle1") Pfad = "X:\Temp\Test\" ' mit \ am Ende Blatt = "Tabelle2" Ext = ".xlsx" Set RNG = TB.Range("G22:G999") 'Anpassen Ende Jahr = InputBox("welches Jahr", "Delivered im Jahr", Year(Date)) Datei = "Delivered " & Jahr & Ext 'Formel setzen RNG.FormulaR1C1 = _ "=IF(RC[-2]<>"""",IF(ISNUMBER(MATCH(RC[-2],'" & Pfad & _ "[" & Datei & "]" & Blatt & "'!C6,0)),""Nein"",""Ja""),"""")" 'Formel in Werte RNG.Value = RNG.Value End Sub

Hallo
ok, dann hab ich Dateiname und Blattname verwechselt.
Dann so...

Option Explicit

Sub JaNein()
    Dim TB, Pfad As String, Datei As String, Jahr As Integer
    Dim Blatt As String, Ext As String, RNG As Range
    
    'Anpassen 
    Set TB = ThisWorkbook.Sheets("Tabelle1")
    Pfad = "X:\Temp\Test\" ' mit \ am Ende 
    Datei = "Datei2.xlsx"
    Jahr = InputBox("welches Jahr", "Delivered im Jahr", Year(Date))
    Blatt = "Delivered " & Jahr
    Set RNG = TB.Range("G22:G999")
    'Anpassen Ende 
    
    If TBVorhanden(Blatt) Then
        'Formel setzen 
        RNG.FormulaR1C1 = _
        "=IF(RC[-2]<>"""",IF(ISNUMBER(MATCH(RC[-2],'" & Pfad & _
            "[" & Datei & "]" & Blatt & "'!C6,0)),""Nein"",""Ja""),"""")"
        
        'Formel in Werte 
        RNG.Value = RNG.Value
    Else
        MsgBox " Blatt '" & Blatt & " ' nicht vorhanden"
        RNG.ClearContents
    End If
End Sub
Function TBVorhanden(ByVal vName As String) As Boolean
   Dim sheetSuche As Worksheet
 
   TBVorhanden = False
 
   For Each sheetSuche In Worksheets
     If UCase(sheetSuche.Name) = UCase(vName) Then
       TBVorhanden = True
       Exit Function
     End If
   Next sheetSuche
 
 End Function

LG UweD

Sub JaNein() Dim TB, Pfad As String, Datei As String, Jahr As Integer Dim Blatt As String, Ext As String, RNG As Range 'Anpassen Set TB = ThisWorkbook.Sheets("Tabelle1") Pfad = "X:\Temp\Test\" ' mit \ am Ende Datei = "Datei2.xlsx" Jahr = InputBox("welches Jahr", "Delivered im Jahr", Year(Date)) Blatt = "Delivered " & Jahr Set RNG = TB.Range("G22:G999") 'Anpassen Ende On Error Resume Next ' wenn Blatt fehlt 'Formel setzen RNG.FormulaR1C1 = _ "=IF(RC[-2]<>"""",IF(ISNUMBER(MATCH(RC[-2],'" & Pfad & _ "[" & Datei & "]" & Blatt & "'!C6,0)),""Nein"",""Ja""),"""")" 'Formel in Werte RNG.Value = RNG.Value End Sub

Beliebteste Forumthreads (12 Monate)

Suchen in anderer Datei und wenn gefunden dann

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen in anderer Datei und wenn gefunden dann

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread